質問: Dir Loop End Sub 皆様のお知恵をご拝借ください。 よろしくお願いします。
回答: 追記、ありがとうございます。 おしいですね。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 ```