ACCESS2010を利用しています。
CSVファイル(m159.csv)をインポートするため、下記①を記述しました。
(正確には教えてgooで教えて頂きました)
更に、ダイアログボックスでCSVファイルを指定して取り込めるようにしたかったので、ネットで調べ自分なりに追記しましたした(下記②の2箇所)
しかし、うまくいきません。
恐らく、「 DoCmd.TransferText acImportDelim, "M159定義", "M159", "C:\Users\t.yukie\Desktop\m159.csv", True」の部分がいけないと思われますが、どのように修正していいか分かりません。
ご指導をお願いします
【①】
Private Sub コマンド1_Click()
Dim msg As String
msg = getFilePicker ←【②】
If msg = "" Then Exit Sub
On Error GoTo err_sample
DoCmd.TransferText acImportDelim, "M159定義", "M159", "C:\Users\t.yukie\Desktop\m159.csv", True
MsgBox "インポートが終了しました。"
Exit Sub
err_sample:
Select Case Err.Number
Case 3011
MsgBox "ファイルが見つかりません。処理を終了します。"
Case Else
MsgBox Err.Number & ":" & Err.Description
End Select
End Sub
【②】
Function getFilePicker(Optional dTitle As String = "ファイル選択")
Const msoFileDialogFilePicker As Integer = 3
Dim fDlg As Object
Set fDlg = Application.FileDialog(msoFileDialogFilePicker)
fDlg.Title = dTitle
fDlg.InitialFileName = CurrentProject.Path
fDlg.AllowMultiSelect = False
fDlg.Filters.Clear
fDlg.Filters.Add "すべてのファイル", "*.*"
fDlg.Filters.Add "CSV ファイル (*.csv)", "*.csv"
fDlg.FilterIndex = 1
If fDlg.Show Then getFilePicker = fDlg.SelectedItems(1) Else getFilePicker = ""
End Function
No.1
- 回答日時:
確認はしていませんが
>msg = getFilePicker ←【②】
でインポートするファイルを指定しているのに
>DoCmd.TransferText acImportDelim, "M159定義", "M159", "C:\Users\t.yukie\Desktop\m159.csv", True
C:\Users\t.yukie\Desktop\m159.csvをインポートしようとしています。
ここをmsgにすればできるのでは?
y504さん、ご回答ありがとうございます。
DoCmd.TransferText acImportDelim, "M159定義", "M159", "C:\Users\t.yukie\Desktop\m159.csv", True C:\Users\t.yukie\Desktop\m159.csvをコメントに変えました。
そしたら、処理は正常終了(インポートが終了しました。のメッセージ出力)しましたが、テーブル”M159”は作成されていませんでした。
No.2ベストアンサー
- 回答日時:
意味が伝わらなかったですかね。
DoCmd.TransferText acImportDelim, "M159定義", "M159", "C:\Users\t.yukie\Desktop\m159.csv", True
はC:\Users\t.yukie\Desktop\m159.csvのファイルをM159定義を使ってM159にインポートするということなので
あなたがやりたいことは
指定したファイルをM159定義を使ってM159にインポートするなので
DoCmd.TransferText acImportDelim, "M159定義", "M159", msg, True
になるのでは?ということだったのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
VBAでcsvファイルを読み込んで...
-
複数のcsvファイルをExcelに一...
-
csvファイル 項目数取得
-
Visual C++によるcsvファイルの...
-
Excelでcsvのフィールドが減る
-
データ解析ソフトRでのファイル...
-
vb2010でCSVファイルを並び替え...
-
CSVの読み込み処理について
-
Csvから1行ずつ変数に格納する...
-
csvファイルのデータの一部を取...
-
巨大なCSVの加工(指定列のみの...
-
CSVファイル作成
-
バッチでCSVを処理する時、空の...
-
COBOL85でのCSVファ...
-
マクロから出力されるcsvのダブ...
-
CSV形式での保存時に”文字列...
-
CSVファイルを折れ線グラフ化す...
-
csvファイルでの日付設定「yyyy...
-
エクセル形式のファイルの読み込み
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
CSV形式での保存時に”文字列...
-
複数のcsvファイルをExcelに一...
-
csvファイル 項目数取得
-
csvファイルでの日付設定「yyyy...
-
バッチでCSVを処理する時、空の...
-
マクロから出力されるcsvのダブ...
-
csvファイルを列数ごとに分割す...
-
csvファイルのデータの一部を取...
-
エクセル形式のファイルの読み込み
-
エクセルVBA 大容量CSVファイル...
-
CSVファイル作成
-
EXCEL|csvで保存→開くcsvを閉じる
-
CSVファイルの項目行を削除...
-
巨大なCSVの加工(指定列のみの...
-
データ解析ソフトRでのファイル...
-
VBAでCSVファイルのデータを集...
-
【ExcelVBA】UTF-8の文字コード...
-
【C#】パス名で無効な文字
-
【エクセル マクロ】読み込ん...
おすすめ情報