![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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(アクセス)
-
ACCESS への複数ファイルのインポートマクロ
Access(アクセス)
-
VBA 複数のCSVファイルを一度にインポートするには?
Access(アクセス)
-
-
4
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
5
Accessでの任意のフォルダ指定
Access(アクセス)
-
6
●ACCESS→Excelのエクスポート(マクロ)で教えて下さい。
Access(アクセス)
-
7
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
8
アクセスと同フォルダのCSVファイルをインポートしたい
Access(アクセス)
-
9
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
Access2016のExcelインポートの機能のことで教えてください
Access(アクセス)
-
12
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
13
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
14
accessへエクセルの複数のシートのインポートの仕方
Access(アクセス)
-
15
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
16
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
17
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
18
ACCESS VBAでのインポート
Access(アクセス)
-
19
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAのDirでスペース含むフ...
-
ファイル名の頭5桁と同名のフォ...
-
コマンドプロンプトの「%1」と...
-
header('Location:...');を用い...
-
.batでファイル名から抽出して...
-
[DOS] コピー先に同じファイル...
-
ファイル名を該当フォルダ内か...
-
バッチコマンドでファイル名の...
-
バッチファイルで、iniファイル...
-
ファイルの削除でゴミ箱に送りたい
-
バッチファイルでフォルダ名を検索
-
コマンドプロンプトのエラーに...
-
大量のフォルダからひとつのフ...
-
カシミール3D 無料インストール
-
テキストファイルの1行目のみを...
-
EXCELのVBAでフォルダ内のファ...
-
binファイルを解凍したいの...
-
Latexで図番号だけを「図1.1」...
-
これってパソコンの最適化が完...
-
ファイル名一括変換ソフト
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトでファイル...
-
コマンドプロンプトで変数が数...
-
[DOS] コピー先に同じファイル...
-
バッチコマンドでファイル名の...
-
バッチファイルで、iniファイル...
-
ExcelVBAのDirでスペース含むフ...
-
ftp処理でmove(移動)を行いたい
-
フォルダ内の更新日時が一番新...
-
.batでファイル名から抽出して...
-
【vbs】ファイル名の検索と該当...
-
word VBA ファイル名 保存
-
VBA GetAttrについて教えてくだ...
-
access,vbaでフォルダ内のファ...
-
バッチ処理で16進数でファイル...
-
ファイル名に ” を使うと エク...
-
サブフォルダからファイルをコ...
-
DOSのバッチ作成について‐FORの...
-
コマンドプロンプトまたはpower...
-
【バッチファイル】forコマンド...
おすすめ情報