![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VBA初心者です。色々調べてやってみましたがうまくいきません。
どのようにすればいいでしょうか?
よろしくお願いいたします
ACCESSでVBAで、
注文フォルダ内にある 全てのorder_2022で始まるcsvファイルを
Accessの Order_2022というテーブル にインポートする
またファイル名の末尾一部を ファイル名というフィールド(短いテキスト型)に追加する。
(またはファイルごとに番号をふる その際はファイル名フィールドは長整数型)
結果→全てのファイルはインポートできたが、
ファイル名のフィールドには全て最後のファイル名が追加される
ファイル名で失敗したのでファイルごとに番号を振ろうとしたが
1,2,3,4,とは振られず全て4になる(全ファイル数は4ケです)
4回ファイルがインポートされた後、最後に1回ファイル名のフィールドに追加されているようです。
他に試したこと UPDATEではなくINSERT INTO で2種 試す
結果→両方とも 型変換エラー
DoCmd.RunSQL "INSERT INTO Order_2022(ファイル名) VALUES('" & filename & "')"
DoCmd.RunSQL "INSERT INTO Order_2022(ファイル名) VALUES(" & i & ")"
Public Function Import_ALLCSV_Files()
'order_2022のテーブルのデーターを削除します
DoCmd.RunSQL "DELETE * FROM Order_2022"
Dim myFilename As String
Dim myPath As String
Dim i As Integer 'ファイル名用変数
myPath = "C:\Users\y\Desktop\注文\
myFilename = Dir(myPath & "order_202*.csv")
i = 0
Do Until myFilename = ""
i = i + 1
'注文フォルダ内にある全てのorder_2022*ファイルをOrder_2022テーブルにインポートする
DoCmd.TransferText acImportDelim, "Orderインポート定義", "Order_2022", myPath & myFilename, False
'Order_2022テーブルの ファイル名フィールドにファイルごとの番号を追加
DoCmd.RunSQL "UPDATE Order_2022 SET ファイル名=" & i & ""
'実行結果 ALL 4になる、その都度更新されない最後に一回のみ更新される"
’DoCmd.RunSQL "UPDATE Order_2022 SET ファイル名='" & Right(myFilename, 6) & "' "
'ファイル名で試すも実行結果 ALL29.csvになる
' 次のファイル名取得
myFilename = Dir()
Loop
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
VBA 複数のCSVファイルを一度にインポートするには?
Access(アクセス)
-
ACCESS への複数ファイルのインポートマクロ
Access(アクセス)
-
-
4
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
5
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
6
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
7
Accessでの任意のフォルダ指定
Access(アクセス)
-
8
アクセスと同フォルダのCSVファイルをインポートしたい
Access(アクセス)
-
9
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
10
●ACCESS→Excelのエクスポート(マクロ)で教えて下さい。
Access(アクセス)
-
11
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
12
Access2016のExcelインポートの機能のことで教えてください
Access(アクセス)
-
13
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
14
accessへエクセルの複数のシートのインポートの仕方
Access(アクセス)
-
15
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
16
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
17
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
18
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
19
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
20
accessテーブル作成クエリを実行したときにオートNo(のような)振る方法
その他(データベース)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトでファイル...
-
コマンドプロンプトで変数が数...
-
[DOS] コピー先に同じファイル...
-
フォルダ内の更新日時が一番新...
-
バッチコマンドでファイル名の...
-
ftp処理でmove(移動)を行いたい
-
word VBA ファイル名 保存
-
【バッチファイル】forコマンド...
-
コマンドプロンプトまたはpower...
-
バッチ処理で16進数でファイル...
-
ファイル名に ” を使うと エク...
-
バッチファイルで、iniファイル...
-
VBA GetAttrについて教えてくだ...
-
ExcelVBAのDirでスペース含むフ...
-
VB6.0 Dir関数について
-
バッチファイル
-
DOSのバッチ作成について‐FORの...
-
サブフォルダからファイルをコ...
-
VBScriptで特別な意味を持つ記...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトで変数が数...
-
コマンドプロンプトでファイル...
-
バッチファイルで、iniファイル...
-
[DOS] コピー先に同じファイル...
-
バッチコマンドでファイル名の...
-
ftp処理でmove(移動)を行いたい
-
access,vbaでフォルダ内のファ...
-
ExcelVBAのDirでスペース含むフ...
-
フォルダ内の更新日時が一番新...
-
DOSのバッチ作成について‐FORの...
-
word VBA ファイル名 保存
-
ファイル名に ” を使うと エク...
-
.batでファイル名から抽出して...
-
ファイル名を該当フォルダ内か...
-
サブフォルダからファイルをコ...
-
【vbs】ファイル名の検索と該当...
-
【DOSバッチ開発】末尾のタブの...
-
VBA GetAttrについて教えてくだ...
-
バッチ処理で16進数でファイル...
おすすめ情報