Microsoft Access 掲示板

Microsoft Access 掲示板

htmlファイルのインポートについての相談 / 6

6 コメント
views
4 フォロー
6
hatena 2022/12/04 (日) 02:51:02 >> 3

DoCmd.TransferText メソッドを使うなら、下記のような感じです。

Private Sub コマンド1_Click()
    Dim htmlFileName As String
    htmlFileName = "C:\TEST\TEST.html"
    Dim InportTableNames As String
    InportTableNames = "Table,Table1,Table2" 'インポートしたいテーブル名をカンマ区切りで設定

    Dim tbl
    For Each tbl In Split(InportTableNames,",")
        DoCmd.TransferText acImportHTML, , tbl, htmlFileName, True, tbl
    Next
End Sub
通報 ...