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

373294296

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 Sub

373294296

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

yshf

2. Sub sl ()
   
3. 'Dim cc As CommonDialog
   
4.     On Error Resume Next
   
5.     cc.FileName = ""
   
6.     cc.DialogTitle = "选择要导入的文件"
   
7.     cc.Filter = "Microsoft  Excel 2003（*.xls）|*.xls|Microsoft Excel 2007（*.xlsx）|*.xlsx"
   
8.     cc.ShowOpen
   
9.     If cc.FileName = "" Then
   
10.        Exit Sub
    
11.     Else
    
12.        Dim ExcelApp As Object
    
13.        Dim Workbooks As Object
    
14.       
    
15.        Set ExcelApp = CreateObject("Excel.Application")
    
16.        If Err Then
    
17.            MsgBox Err.Number & ":" & Err.Description '打开失败
    
18.            Exit Sub
    
19.        End If
    
20.        ExcelApp.Visible = True '显示Excel
    
21.        Set Workbooks = ExcelApp.Workbooks
    
22.        Workbooks.Open cc.FileName
    
23.     End If
    
24. End Sub

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

373294296

老师，   本身  cc 的值就等于空的
    If cc.FileName = "" Then
       Exit Sub  这就直接结束了， ！

poly168

启用Dim cc As CommonDialog就行了呗， If cc.FileName = "" Then是控制没有选择打开文件时退出的