ACCESSへ EXCELインポートについて

Question

ACCESS初心者からの投稿です。
EXCELをテーブルへインポートすることで悩んでいます。
EXCELが複数あるのでファイルごとインポートできないか考えています。
ファイルには「会計、管理、雑記」等々、名前がバラバラなものが入っているものとします。

皆様のお知恵を拝借できないでしょうか？
よろしくお願いします。

---追記---
質問の内容が足りなくて申し訳ございませんでした。

1.（誤）ファイル → （正）フォルダー
フォルダー名は固定です。

1. フォルダーの中に名前が違うexcelファイルが複数あり、この複数のexcelファイルをフォルダーごと

インポートできないかという質問でした。

1. フォームにボタンを作成して、クリック時のイベントで展開するように設定してみました。

（知識不足なので他の人の案を参考にして、私なりに修正しました）

Private Sub AAA_Click() AAA=ボタン名
Dim dname As String
Dim fname As String
Dim tblname As String

dname = "c:\フォルダ名"
tblname = "テーブル名"
Do While fname <> ""
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, tblname, dname & fname, True
fname = Dir
Loop
End Sub

皆様のお知恵をご拝借ください。
よろしくお願いします。

Comments

[hatena19]

EXCELファイルが複数あるとのことですが、ファイル名は固定ですか。「会計、管理、雑記」等々というのはシート名ですか。また、その名前も固定ですか。とにかく情報が不足しています。丸投げでなく、とりあえずやってみたコードを提示できないですか。

[hatena19]

推奨していない質問 https://teratail.com/help/avoid-asking を読んで下さい。

[tomokappa07]

ご指摘ありがとうございます。　質問内容を修正しました。　昨日もお世話になりましたが、またご協力いただけますでしょうか。

Answer 1

追記、ありがとうございます。
おしいですね。１行足らないだけです。

Private Sub AAA_Click()
    Dim dname As String
    Dim fname As String
    Dim tblname As String

    dname = "c:\フォルダ名\"
    tblname = "テーブル名"
    
    fname = Dir(dname & "*.xls")
    Do While fname <> ""
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, tblname, dname & fname, True
        fname = Dir()
    Loop
End Sub

Comments

[tomokappa07]

解決しました。
ご丁寧な対応ありがとうございました！