Accessのマクロを作成しています。
ファイルを開くダイアログから複数ファイルを選択してCSVファイルをインポートするマクロを書きました。(最後に抜粋を記載します)
インポートの行はこうなっています。
DoCmd.TransferText acImportDelim, , "traffic", varFname, True
ファイル名に拡張子直前以外にドットを含むファイル名だと以下のエラーとなります。
実行時エラー '3011'
オブジェクト'ドットを含むファイル名'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。
余分なドットさえ含まなければ、50ファイル、7MBのインポートも問題ありません。
わけあってファイル名は変更できません。
ファイル名にドットを含む場合のインポートの書き方を教えてください。
宜しくお願い致します。
===以下、抜粋===
'[ファイルを開く]ダイアログボックスを作成
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
'[ファイルを開く]ダイアログボックスの初期設定
dlgOpen.AllowMultiSelect = True
dlgOpen.Filters.Clear
dlgOpen.Filters.Add "CSV", "*.csv"
dlgOpen.InitialFileName = CurrentProject.Path
'[ファイルを開く]ダイアログボックスを表示
ret = dlgOpen.Show
'[キャンセル]ボタンを選択したときは、プロシージャを終了
If ret = 0 Then
Exit Function
End If
'カレントデータベースに接続
Set db = CurrentDb
'lineテーブルからレコードを取得
Set rs = db.OpenRecordset("line", dbOpenDynaset)
'単数または複数選択されたファイル分だけ処理する
For Each varFname In dlgOpen.SelectedItems
'CSVファイルをインポートする
DoCmd.TransferText acImportDelim, , "traffic", varFname, True
No.1ベストアンサー
- 回答日時:
TransferTextの仕様をかえることはできませんので
Recordset等をつかって自力でインポートするか、
一時的にファイル名を変えてインポート後に戻すか、
のどちらかになるのではないでしょうか。
TransferTextの仕様ですか...(T_T)
なるほどドットを含むファイルの場合だけ一時的にリネイムして戻すのが早くて効率的ですね。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ACCESS VBAでのインポート
Access(アクセス)
-
エラー3011
Visual Basic(VBA)
-
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
6
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
7
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
8
クエリの結果が文字化け(Access2007)
その他(Microsoft Office)
-
9
select文の戻り値を変数に格納したい。
Visual Basic(VBA)
-
10
フィルタ後のフォームの件数の取得の仕方
Access(アクセス)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
access・カウント結果がゼロでも、「0」を表示させるには?
その他(データベース)
-
13
アクセスで、レポートの幅がページの幅よりもよりも広い??
Access(アクセス)
-
14
エクセルからアクセスにインポートする際のエラーについて
Access(アクセス)
-
15
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
16
ACCESS 一番最新の日付の金額を出したいのですが・・
その他(データベース)
-
17
2つ目のレコードの値を取得するには?
Access(アクセス)
-
18
Access VBA DB(先頭の0値を消す方法)
PowerPoint(パワーポイント)
-
19
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
20
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
exeファイルをデータ転送サービ...
-
CSSを1ページに1枚作るのって変...
-
#include <Windows.h>というヘ...
-
Word VBA MSGBOX 内で降順表示
-
パイソンでpy ファイルと p...
-
C# OpenFileDialog
-
ファイル構造が破損しているフ...
-
Access のファイルの「安全でな...
-
外部ファイルの数値を合計計算...
-
binファイルを解凍したいの...
-
Latexで図番号だけを「図1.1」...
-
ファイルは何で構成されている...
-
C#でファイルに書き込める行数...
-
Windows10のScilabのV6.1.1に関...
-
ビットマップの扱い方
-
warファイルをEclipseでプロジ...
-
コマンドプロンプトで作成日時...
-
iniファイル
-
exeファイルの中身を見る方法は...
-
ドラッグしたファイルのパスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
Latexで図番号だけを「図1.1」...
-
binファイルを解凍したいの...
-
.NETアプリを作ったときの .man...
-
ファイル構造が破損しているフ...
-
2つのファイルのバイナリをコン...
-
CSSを1ページに1枚作るのって変...
-
Word VBA MSGBOX 内で降順表示
-
公文書のxmlファイルの開き方が...
-
jarファイル
-
バッチ処理で追記コピーしたい
-
自分で作成した重要ファイルを...
-
ファイルは何で構成されている...
-
exeファイルをデータ転送サービ...
-
リンクの張り付けかたを教えて...
-
exeファイルの中身を見る方法は...
-
参照するファイルをワイルドカ...
-
CRCが一致する確率
-
C言語---ファイルに出力したデ...
おすすめ情報