ACCESSのデータをEXCELに表示する

Sub ACCESSのデータをEXCELに表示する()
  Dim qt As QueryTable
   Dim sh As Worksheet
   Dim connectstr As String
   Dim sqlstr As String
   Dim rs  As Recordset
   Dim i As Integer
   For i = 1 To 20
       Set sh = ThisWorkbook.Worksheets(i)
       sh.Cells.Clear
       connectstr = "ODBC;DSN=MS Access Database;DBQ=C:\Users\BackUp\Downloads\Access_PT\Sample\ch14_data.accdb"
       sqlstr = "SELECT * FROM M_得意先"
       Set qt = sh.QueryTables.Add(Connection:=connectstr, Destination:=sh.Range("A1"), sql:=sqlstr)
       qt.Refresh
       Set sh = Nothing
   Next
End Sub

  • 最終更新:2020-02-01 16:58:28

このWIKIを編集するにはパスワード入力が必要です

認証パスワード