老师们，我怎么用CAD vba打开excel 的文件窗口呢？

373294296 · 发表于 2015-7-26 07:51:00

Sub sl ()
Dim cc As CommonDialog
On Error Resume Next
cc.FileName = ""
cc.DialogTitle = "选择要导入的文件"
cc.Filter = "Microsoft Excel 2003（*.xls）|*.xls|Microsoft Excel 2007（*.xlsx）|*.xlsx"
cc.ShowOpen
If cc.FileName = "" Then Exit Sub
End Sub111

pyxb2gmkdw4.jpg

atbyhy45vho.png

373294296 · 发表于 2015-7-26 07:55:00

就是这个，第一个窗口？？？急求？在线等吧？？？？

yshf · 发表于 2015-7-26 22:23:00

copy


Sub sl ()
'Dim cc As CommonDialog
    On Error Resume Next
    cc.FileName = ""
    cc.DialogTitle = "选择要导入的文件"
    cc.Filter = "Microsoft  Excel 2003（*.xls）|*.xls|Microsoft Excel 2007（*.xlsx）|*.xlsx"
    cc.ShowOpen
    If cc.FileName = "" Then
       Exit Sub
    Else
       Dim ExcelApp As Object
       Dim Workbooks As Object
       
       Set ExcelApp = CreateObject("Excel.Application")
       If Err Then
           MsgBox Err.Number & ":" & Err.Description '打开失败
           Exit Sub
       End If
       ExcelApp.Visible = True '显示Excel
       Set Workbooks = ExcelApp.Workbooks
       Workbooks.Open cc.FileName
    End If
End Sub