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