SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 求助，用打开对话框获取Excel代替指定Excel文件 [打印本页]

作者: jsb033 时间: 2022-6-6 09:34
标题: 求助，用打开对话框获取Excel代替指定Excel文件
如题，工作中用到一个模型，但用于计算的Excel工作薄很多。我想在SolidWorks-vba里运行宏的时候，可以自己选择需要的Excel，从中读取数据，用作绘图。先前从网上摘抄的代码，路径是写死，不可以选择，哪位大佬帮我改下代码，不甚感激。
代码如下：
Private Sub CommandButton3_Click()
Dim a As Integer
Dim scxls As New Excel.Application
Dim scbook As Excel.Workbook
Dim scsheet As Excel.Worksheet
Set scxls = CreateObject("excel.application") '创建EXCEL对象
scxls.DisplayAlerts = False '不显示对话框,如果D:\2\1\3.xls文件已存在，让它不出现这个提示，就需加这段代码。

'想把下句中的文件名（E:\模板\100.xlsm）换成可以通过对话框选择。

Set scbook = scxls.Workbooks.Open("E:\模板\100.xlsm")
'Set scbook = scxls.Workbooks.Add '新建EXCEL工件簿文件
Set scsheet = scbook.Worksheets(1) '设置活动工作表
scxls.Visible = True '显示Excle
TextBox1.Text = scsheet.Cells(2, 1) '读取数据并在textbox1里显示
TextBox2.Text = scsheet.Cells(2, 2) '读取数据并在textbox2里显示
TextBox3.Text = scsheet.Cells(2, 3) '读取数据并在textbox1里显示
TextBox4.Text = scsheet.Cells(2, 4) '读取数据并在textbox2里显示

'scsheet.SaveAs ("D:\2\1\3.xlsx") 'excel 存档语法:表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

scxls.DisplayAlerts = flase
scxls.Quit 'excel 关闭
Set scbook = Nothing
' UserForm1.Show
End Sub

外壳底座宏 - 从Excel.zip

（335.05 KB, 下载次数: 146 ）

作者: biwbjog03 时间: 2022-6-7 13:19
好好学习，天天向上！

作者: 淡淡的雲 时间: 2022-6-7 15:48
百度一下，很多

作者: wetiuer 时间: 2022-6-7 16:37
看论坛里这个帖子就可以实现VBA中通用对话框 CommonDialog 的使用！

作者: 淡淡的雲 时间: 2022-6-8 08:29
活到老学到老！

作者: jsb033 时间: 2022-6-10 16:36
网址打不开啊

作者: jsb033 时间: 2022-6-10 16:40
我按网上的方法，在SolidWorksvba里，对话框 CommonDialog 无法使用

作者: 淡淡的雲 时间: 2022-6-11 08:52
顶一下，坐等高手！

作者: DFFDSGG114485 时间: 2022-9-22 21:15
好好学习，天天向上！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)