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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
VBA 複数のCSVファイルを一度にインポートするには?
Access(アクセス)
-
ACCESS への複数ファイルのインポートマクロ
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
アクセスと同フォルダのCSVファイルをインポートしたい
Access(アクセス)
-
6
Access2016のExcelインポートの機能のことで教えてください
Access(アクセス)
-
7
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
8
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
9
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
10
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
11
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
12
ACCESS でインポートファイル名とエキスポートファイル名を変数にしたい
Access(アクセス)
-
13
accessへエクセルの複数のシートのインポートの仕方
Access(アクセス)
-
14
ACCESS VBAでのインポート
Access(アクセス)
-
15
Accessでの任意のフォルダ指定
Access(アクセス)
-
16
Accessでvlookupみたいなことはできますか。
その他(データベース)
-
17
ACCESS VBA CSVのインポート ファイル名指定→ファイル名選択
その他(データベース)
-
18
どこにもフォーカスを当てたくない
Access(アクセス)
-
19
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
20
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトで変数が数...
-
コマンドプロンプトでファイル...
-
【DOSバッチ開発】末尾のタブの...
-
VBScriptで特別な意味を持つ記...
-
ExcelVBAのDirでスペース含むフ...
-
[DOS] コピー先に同じファイル...
-
エクセルVBAを使用してJPGファ...
-
DOSのバッチ作成について‐FORの...
-
バッチファイルで、iniファイル...
-
VBA GetAttrについて教えてくだ...
-
AIX kshスクリプトのtar+compre...
-
コマンドでファイルコピーする...
-
ファイル名に ” を使うと エク...
-
バッチ処理で16進数でファイル...
-
【vbs】ファイル名の検索と該当...
-
.batでファイル名から抽出して...
-
access,vbaでフォルダ内のファ...
-
ftp処理でmove(移動)を行いたい
-
コマンドプロンプトのエラーに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトでファイル...
-
バッチファイルで、iniファイル...
-
バッチコマンドでファイル名の...
-
コマンドプロンプトで変数が数...
-
[DOS] コピー先に同じファイル...
-
フォルダ内の更新日時が一番新...
-
ftp処理でmove(移動)を行いたい
-
ExcelVBAのDirでスペース含むフ...
-
.batでファイル名から抽出して...
-
DOSのバッチ作成について‐FORの...
-
access,vbaでフォルダ内のファ...
-
Windowsコマンドプロンプトで、...
-
【DOSバッチ開発】末尾のタブの...
-
word VBA ファイル名 保存
-
【vbs】ファイル名の検索と該当...
-
コマンドプロンプトまたはpower...
-
ファイル名を該当フォルダ内か...
-
バッチ処理で16進数でファイル...
-
スタートアップのファイルをバ...
おすすめ情報