求助，用打开对话框获取Excel代替指定Excel文件

jsb033 · 发表于 2022-6-6 09:34:56

经典图书

如题，工作中用到一个模型，但用于计算的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