![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Excel複数シートを、accessへ1つのテーブルへ一括インポート
(1) ワークブックは複数あります。
(2) ブックには、色々な名前のシート名があります。
(3) テーブルに指定する名前をワークブックに合わせればと思ってます
複数シートの一括取り込みの vb は以下の通り作ってみました。
ここでは、 vbの中で「テーブル名」・「ドライブ内のワークブック(xlsデータ)」指定しなければいけないので、
任意で「テーブル名」・「ワークブック(xlsデータ)」「ドライブ」を(ダイアログボックスなど)指定出来ればと思っています。
=====================================================================
Private Sub コマンド0_Click()
'//////////////////////////////////////////////////////////
'/Excel複数シートのAccessテーブルへのインポート /
'/参照設定 Microsoft Excel x.x Object Library /
'//////////////////////////////////////////////////////////
Const csWsRng As String = "A1:D1000"
Const csTblName As String = "インポートテーブル"
Const csWbPath As String = "D:\"
Dim voXlApp As Excel.Application
Dim voXlWb As Excel.Workbook
Dim voXlWs As Excel.Worksheet
Set voXlApp = New Excel.Application
voXlApp.Visible = True
Set voXlWb = voXlApp.Workbooks.Open(FileName:=csWbPath & "\aaaa.xlsx", _
ReadOnly:=True)
For Each voXlWs In voXlWb.Worksheets
DoCmd.TransferSpreadsheet TransferType:=acImport, _
SpreadsheetType:=acSpreadsheetTypeExcel9, _
TableName:=csTblName, _
FileName:=voXlWb.FullName, _
HasFieldNames:=True, _
Range:=voXlWs.Name & "!" & csWsRng
Next voXlWs
voXlWb.Close
voXlApp.Quit
Set voXlWs = Nothing
Set voXlWb = Nothing
Set voXlApp = Nothing
End Sub
=====================================================================
ご教示頂ければと思います。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
ファイル選択なら、FileDialog を使うとかして
http://www.geocities.jp/cbc_vbnet/tips/dialog.html
上記サンプルコード中の変数名を使うとして
(FileName:=csWbPath & "\aaaa.xlsx" を
(FileName:=vrtSelectedItem
テーブル名はご自身でも
TableName:=csTblName
とされているので、テーブル名の重複が起きない保証があればこのままで
でなければ、
Book名も付け足すとか(Book名_シート名)すれば良いのかな?
任意のテーブル名にしたいならば、
一旦テーブル(Bookフルパス|テーブル名)にでもBookフルパスを書き出して
テーブルを開いてテーブル名を手入力し、そのテーブルのレコードセットを廻して
インポート処理と絡めればよいのでは?
返信遅くなり申し訳ありませんでした。 早速ご教示頂きました方法を行ってみましたところ、無事思い通りのものが、完成しました。 ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
accessへエクセルの複数のシートのインポートの仕方
Access(アクセス)
-
エクセル複数シートをアクセスで1つのテーブルに。
Access(アクセス)
-
複数のエクセルファイルをアクセスにインポートし自動で一つのデータにまとめたい
Access(アクセス)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
Accessのマクロを使用してExcelのシートをインポートしたい
Access(アクセス)
-
6
ACCESS への複数ファイルのインポートマクロ
Access(アクセス)
-
7
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
8
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
9
エクセルの指定したシートにエクスポート
その他(データベース)
-
10
AccessのテーブルデータをExcelの特定のワークシート名にエクスポートすることは可能ですか
Excel(エクセル)
-
11
エクセルからアクセスにインポートする際のエラーについて
Access(アクセス)
-
12
【Access】テーブルをエクスポートする際、ファイル名末尾に日付をつけたい!
Windows 10
-
13
ACCESSでのエクセルインポート時のシート有無の判定について
その他(データベース)
-
14
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
15
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
16
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
17
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
18
Access クエリ実行が急に非常に遅くなりました。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
DataGridViewに複数テーブルの...
-
アクセステーブル、リンクとロ...
-
同一セッションIDのブラウザを...
-
『列名 '担当者CD' があいま...
-
access2007 「#Deleted」
-
COBOLのINVALID KEYが理解でき...
-
AccessVBAコミットとロールバッ...
-
エクセルのテーブルを解除する...
-
.net 複数の主キーを設定する方法
-
ダイナセットタイプのレコード...
-
Access VBA について質問があ...
-
ワークテーブルの作成について
-
他のMDBのテーブルに追加したい
-
ADO&mdbで、リンクテーブルの...
-
二重引用符(")について
-
MDBテーブルへの追加変更を教え...
-
C# OleDbDataAdapter.Fillメソ...
-
CSVファイルのエクスポートでソ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
エクセルのテーブルを解除する...
-
手動または分散トランザクショ...
-
他のMDBのテーブルに追加したい
-
HTMLのテーブルの行数が多くな...
-
SQLを発行とは?クエリの作成と...
-
WORD VBA プログラム修正をお願...
-
ACCESS2010 実行時エラー 2766
-
Excel複数シートをaccessへ一括...
-
ACCESSのテーブル名をリストに...
-
アクセステーブル、リンクとロ...
-
.net 複数の主キーを設定する方法
-
MDBテーブルへの追加変更を教え...
-
Accessで宛名ラベルに同一宛先...
-
DataGridの中身をDataSetにテー...
-
COBOLのINVALID KEYが理解でき...
おすすめ情報