如何在Excel中使用文件对话框 注意，打开程序的时候点击：工程-引用-“microsoft excel 11.0 object library”(我的是XP版本和OFFICE2003） + 工程-部件-"microsoft common dialog control 6.0" '定义excel对象 Public oldxls As Excel.Application '定义工作簿对象 Public oldbook As Excel.Workbook '定义工作表对象 Public oldsheet As Excel.Worksheet

'开始 连接 EXCEL

Private Sub Form_Load()   Call JoinExcel End Sub Public Sub    JoinExcel()   On Error Resume Next    Set oldxls = GetObject(App.Path, "Excel.Application")     If Err Then Err.Clear     Set oldxls = CreateObject("Excel.Application")       If Err Then        Exit Sub       End If    End If     oldxls.Visible = True     Set oldbook = oldxls.Workbooks.Add     Set oldsheet = oldbook.Worksheets(1) End Sub Private Sub Command1_Click() '第二步--执行“打开”对话框     Call OpenExcel End Sub Public Sub OpenExcel()       CommonDialog1.Filter = "Excel文件| *.xls"       CommonDialog1.Action = 1      If CommonDialog1.FileName <> "" Then             expath = CommonDialog1.FileName            Workbooks.Open FileName:=expath            oldbook.Close       Else      End If End Sub Private Sub Command2_Click() '第三步--执行“保存”对话框           Call SaveExcel End Sub Public Sub SaveExcel()       CommonDialog1.Filter = "Excel文件| *.xls"        CommonDialog1.Action = 2      If CommonDialog1.FileName <> "" Then             expath = CommonDialog1.FileName                ActiveWorkbook.SaveAs FileName:=expath       Else End If End Sub