只今、規定のフォルダに入っているEXCELファイルを
全て自動で取り込むマクロを作成したいと考えています。
ファイルの項目は全て同じですが、複数のシートがあるため、
シートを指定してひとつのテーブルにまとめたいです。
以下のように組み立てましたが、
シートの指定が正しく反映出来ない状況です。
Private Sub コマンド0_Click() Dim strPathName As String Dim strFileName As String strPathName = "C:\" strFileName = Dir(strPathName & "*.xlsx") Do Until Len(strFileName) = 0 DoCmd.TransferSpreadsheet _ TransferType:=acImport _ , SpreadSheetType:=acSpreadsheetTypeExcel97 _ , TableName:="インポート用テーブル", FileName:=strPathName & strFileName, HasFieldNames:=True strFileName = Dir() Loop End Sub
ネットで検索し試行錯誤したのですが、
初心者レベルのために理解できずにおります。
ご教授いただけると助かります。
回答1件
あなたの回答
tips
プレビュー