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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
VBA 複数のCSVファイルを一度にインポートするには?
Access(アクセス)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
-
4
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
5
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
6
accessへエクセルの複数のシートのインポートの仕方
Access(アクセス)
-
7
ACCESS への複数ファイルのインポートマクロ
Access(アクセス)
-
8
Access2016のExcelインポートの機能のことで教えてください
Access(アクセス)
-
9
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
10
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
11
アクセスと同フォルダのCSVファイルをインポートしたい
Access(アクセス)
-
12
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
13
Accessでvlookupみたいなことはできますか。
その他(データベース)
-
14
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
15
ACCESS でインポートファイル名とエキスポートファイル名を変数にしたい
Access(アクセス)
-
16
ACCESS VBAでのインポート
Access(アクセス)
-
17
ACCESS VBA CSVのインポート ファイル名指定→ファイル名選択
その他(データベース)
-
18
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
19
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
20
どこにもフォーカスを当てたくない
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトでファイル...
-
ftp処理でmove(移動)を行いたい
-
フォルダ内の更新日時が一番新...
-
ExcelVBAのDirでスペース含むフ...
-
[DOS] コピー先に同じファイル...
-
コマンドプロンプトで変数が数...
-
スタートアップのファイルをバ...
-
word VBA ファイル名 保存
-
VBScriptで特別な意味を持つ記...
-
バッチコマンドでファイル名の...
-
【バッチファイル】forコマンド...
-
バッチ処理で16進数でファイル...
-
画像をコピーしてリネームするbat②
-
【Access】エクスポート時のフ...
-
DOSのバッチ作成について‐FORの...
-
【vbs】ファイル名の検索と該当...
-
.batでファイル名から抽出して...
-
AIX kshスクリプトのtar+compre...
-
コマンドプロンプトのエラーに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
[DOS] コピー先に同じファイル...
-
コマンドプロンプトでファイル...
-
コマンドプロンプトで変数が数...
-
バッチファイルで、iniファイル...
-
バッチコマンドでファイル名の...
-
ftp処理でmove(移動)を行いたい
-
フォルダ内の更新日時が一番新...
-
.batでファイル名から抽出して...
-
ExcelVBAのDirでスペース含むフ...
-
access,vbaでフォルダ内のファ...
-
DOSのバッチ作成について‐FORの...
-
R18文学賞はファイル名は自由で...
-
ファイル名に ” を使うと エク...
-
【vbs】ファイル名の検索と該当...
-
コマンドプロンプトまたはpower...
-
【Access】エクスポート時のフ...
-
Windowsコマンドプロンプトで、...
-
サブフォルダからファイルをコ...
-
ファイル名を該当フォルダ内か...
おすすめ情報