![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります
現在1ファイルごとでインポートさせていますが
複数選択でインポートさせたいのですがわかる方ご教授お願いします。
■現在のVBA
'実行ボタンのイベント
Private Sub 参照_Click()
Dim strFileName As String
'ファイルを開くダイアログを表示
strFileName = GetFile("")
If Len(strFileName) > 0 Then
Me.テキスト1 = strFileName
Else
MsgBox "ファイルは選択されていません!
End If
End Sub
Private Sub 実行_Click()
TextConv Me.テキスト1, "定義名", "テーブル名"
End Sub
'テキストコンバートルーチン
Sub TextConv(strFle As String, strInp As String, strTbl As String)
If MsgBox("インポートしますか?", 4, "実行確認") = vbYes Then
DoCmd.TransferText acImportDelim, strInp, strTbl, strFle, False
MsgBox "テーブルデータを更新しました"
End If
End Sub
上記の内容を変更だけでよいのか
まったく書き直しかどうかもわかっていません
わかる方ご教授よろしくお願いします。
No.2ベストアンサー
- 回答日時:
>Accessで動きますか?
>又、複数選択できたとして後の処理がわかりません
記述のとおり、アクセスは使ったことがないので
分かりませんが、VBAはアクセスでもほとんど同じだと思います。
ダイアログで複数選択した場合の処理もリンク先に載っています。
No.1
- 回答日時:
アクセスは使ったことがないので分かりませんが、参考になると思います。
エクセルVBAの参考HPです。
↓の一番下あたりに複数選択のサンプルがあります。
http://www.officetanaka.net/excel/vba/file/file0 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
VBA 複数のCSVファイルを一度にインポートするには?
Access(アクセス)
-
-
4
Accessのフォームのみ表示させたい
Access(アクセス)
-
5
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
6
「#エラー」の回避
Access(アクセス)
-
7
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
8
どこにもフォーカスを当てたくない
Access(アクセス)
-
9
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
10
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
11
アクセスVBAのMe!と[ ]
Access(アクセス)
-
12
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
13
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
14
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
15
ACCESS クエリで、グループ化したものをカウントしたい
その他(データベース)
-
16
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
17
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
18
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
19
Accessのレポートの文字にカッコを追加したい。
Access(アクセス)
-
20
accessで該当するレコードがない場合
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Access】クエリで抽出...
-
Excelのデータ(数字)をテキス...
-
Wordの文章をExcelに内容ごとに...
-
Excelでhtml形式のテキストを表...
-
アクセスで小数点以下1桁まで...
-
[VBA]csvファイルを開いて保存...
-
ダブルクォーテーション囲いカ...
-
ACCESS でインポートフ...
-
CSVファイルを固定長のテキスト...
-
【AccessVBA】ダイアログで複数...
-
Access CSVインポート フィール...
-
多数のeml形式ファイルを1つの...
-
ExcelのCSV形式について
-
CSVファイルでの数字表記のエラー
-
2列に並んだ数値のテキストファ...
-
AccessのマクロでCSVファイルを...
-
アクセス2007でのインポートエ...
-
秀丸で数字に3桁ごとにカンマを...
-
差し込み印刷の元データファイ...
-
iphoneにPDFファイルを保存した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Access】クエリで抽出...
-
Wordの文章をExcelに内容ごとに...
-
SQLSever 一括インポートについて
-
Excelのデータ(数字)をテキス...
-
Excelでhtml形式のテキストを表...
-
多数のeml形式ファイルを1つの...
-
複数eml形式のBecky!への一括イ...
-
ダブルクォーテーション囲いカ...
-
アクセス(ACCESS) インポート...
-
アクセスで小数点以下1桁まで...
-
エクセル2000で65536行を超える...
-
【AccessVBA】ダイアログで複数...
-
CSVファイルを固定長のテキスト...
-
[VBA]csvファイルを開いて保存...
-
ACCESS でインポートフ...
-
複数のメールファイルを1つの...
-
複数のエクセルファイルをアク...
-
VBA 複数のCSVファイルを一度...
-
notepad++ で作成した文書を cs...
-
ACCESS CSV形式でエクスポート...
おすすめ情報