時間：2013-07-02 08:17 來源：網(wǎng)絡 作者：未知 閱讀：次

如何在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() '第二步--執(zhí)行“打開”對話框
    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() '第三步--執(zhí)行“保存”對話框
          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

(責任編輯：admin)

上一篇：用快捷鍵實現(xiàn)相對引用和絕對引用快速來回切換
下一篇：為選擇的區(qū)域添加邊框

• ·[摘錄]Excel亂碼修復的幾點方法與經(jīng)驗
• ·創(chuàng)建一個溫度計式的Excel圖表
• ·為選擇的區(qū)域添加邊框
• ·如何在Excel中使用文件對話框
• ·用快捷鍵實現(xiàn)相對引用和絕對引用快速來
• ·【技巧】Excel控制特定單元格輸入文本
• ·Excel技巧集錦
• ·Excel技巧大匯總
• ·在word中輸出數(shù)學符號
• ·Excel表格中的序號操作技巧
• ·關于用SUMPRODUCT取代SUM數(shù)組公式的想
• ·EXCEL減肥一得
• ·查找+格式刷的妙用
• ·輕松調(diào)整Excel奇數(shù)行行高
• ·開學后，在按年級整理各班以電子形式上
• ·讓Excel中人名顯示更美觀的技巧