<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access微課連載
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access數據庫-窗體/數據頁

      【Access示例】導出所有表為Excel文件

      時 間:2018-04-27 09:01:56
      作 者:繆煒   ID:24010  城市:江陰
      摘 要:將所有表導出為Excel文件
      正 文:

      代碼如下:

      Sub ExportExcelFile()
          Dim strOut As String
          Dim tbl As AccessObject
      
      
          With Application.FileDialog(4)    ' msoFileDialogFolderPicker
              .Title = "Please select the target folder"
              If .Show Then
                  strOut = .SelectedItems(1)
                  If Not Right(strOut, 1) = "\" Then
                      strOut = strOut & "\"
                  End If
              Else
                  MsgBox "You didn't select a target folder.", vbExclamation
                  Exit Sub
              End If
          End With
      
      
          For Each tbl In CurrentData.AllTables
              If Not tbl.Name Like "MSys*" And Not tbl.Name Like "~" Then
                 
                 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, tbl.Name, strOut & tbl.Name & ".xls"
              End If
          Next tbl
      End Sub

      附件示例:

      點擊下載此附件


      演   示:



      Access軟件網官方交流QQ群 (群號:198348076)       access源碼網店

      最新評論 查看更多評論(2)

      2018/5/23 14:04:01hw
      如何共用保存?

      2018/4/27 11:31:37麥田

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      最新帖子

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助