- ベストアンサー
ACCESS2000ファイルのインポートについて
ACCESS2000を使用しています。 ある指定のフォルダにある複数のEXCELファイルを、ACCESSに一括でインポートしたいです。 EXCELファイルは範囲指定を行います。(例えばb2:d100までインポートしたい) ブック名は部署名が入っており、シート名はどのブックも同一シート名です。 どのように行えばいいでしょか。 ご回答の程、どうぞよろしくお願いいたします。
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- 【AccessVBA】フォルダを指定してインポート
私は現在、Accessでフォルダ内のExcelファイルを一括でインポートし集計するというツールを作成しております。 そこで質問ですが、フォルダ指定ダイアログを表示し、ダイアログで指定したフォルダ(中はxls,xlsx,xltmなど)をテーブル上にインポートするようなVBAはありますでしょうか? まとめます。 ・フォルダを選択するダイアログを表示したい ・一つのフォルダの中に、幾つものエクセルファイルが存在する ・ファイル名などはバラバラです ・シート単位でインポートしたいです ・インポートするシートを選択できるようにしたいです ・テーブルのカラムは決まっています 以上です。 どうか皆様のアドバイスよろしくお願い致します。
- 締切済み
- Visual Basic
- Access VBA インポート シート指定
AccessのVBA を用いて、ExcelからAccessへデータを インポートする際、ダイアログボックスを表示させて Excelのファイルを選択させるようにしています。 これをシート名まで指定させる事は可能でしょうか? ◆シートは枚数が固定されず、都度かわります。 ◆インポートしたいシート数も都度かわります。 ◆1sheet = 1 テーブルにしたいです。 ◆1度の動作で、1sheetのインポートでも、複数でもかまいません。 ◆できれば、ダイアログでファイルを選択した流れで シートまで選択される方法が望ましいです。 ◆Accessのテーブル名もテキストボックスで任意なものが 付けられるようにしたいです。 お知恵をお貸し下さい、何卒よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルからアクセスへのインポートについて
エクセルにある複数のファイルをアクセスへインポートしようとしています。エクセルには数百のシートが存在し、アクセス上で個々のテーブルにインポートしたいと考えています。一つ一つやればいいのですが、マクロなどを使って、自動的にインポートする方法はないのでしょうか?何卒よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 複数のエクセルファイルをインポートする方法
仕事でアクセスを使ってエクセルファイルをまとめて分析する ようなことしてますが、任意に指定したフォルダにある エクセルファイルの指定したワークシートをインポートする コードがわかりません。 ちなみに Fanction ExcelDataImport() On Error GoTo エラー Dim varac As Variant Dim varxls As Variant Dim strrange As String Dim strmsg As String varac = "tab_原価構成" varxls = "c:\原価構成表.xls" のこのエクセルファイルを指定する部分で任意のフォルダの中の すべてのエクセルファイルを指定したいのと・・ strrange = "sheet2!b1:z1000" 複数のエクセルファイルだが、シート名は同じで指定する 範囲も同じ場合はこれでいいのか? がわかりません。 どなたか教えていただけないでしょうか? お手数ですがよろしくお願いします。
- ベストアンサー
- その他(データベース)
- access vba インポートについて
別のところで質問したのですが、回答が得られなかったので こちらで質問しまする。 昨日、accessをさわリはじめた、おっさん初心者です。 お願い:エクセルのデータをアクセスにインポートしたいです。 1つのエクセルファイルに複数(30枚)シートがあり、 それぞれのシート名で、アクセスのテーブルが複数作成できれば良いです。 アクセスのVBAにどんなコードを書けば良いのでしょうか。 1つのシートの取り込みは、 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, ”インポート先テーブル名", "ファイル名", True, "シート名" & "!" (全くわかってませんが、)これでできましたが、この辺がおっさんの限界でした。 色々web見たのですが、難しい・・・とりあえず、やさしく教えてください。 (1)フィールド名ごとインポートする方法 (2)すでに存在するテーブルにデータを継ぎ足す方法 テーブル”A”には 日付 獲物 調理 感想 1月1日 きつね なべ にがい 1月2日 もぐら からあげ まずい 1月3日 ぱんだ さしみ あまい ↑ ↑ ↑ ↑ ↑ シート ”A”から 1月4日 たぬき なべ ばかうま 1月5日 らっこ ひもの うまい を追加 この二つができるとうれしいです。 アクセスは2000です。 エクセルは2000です。 ウィンドウズはXPです。 エクセルは初級程度できます・・・。 基本を理解していなくてもわかる感じで助けてパソコン大先生!!
- ベストアンサー
- Visual Basic
- アクセス 複数のテキストファイルインポートについて
アクセス VBAについてです。 DoCmd.TransferTextで複数のテキストファイル(同一フォルダの中、上から順に全て)を取り込み、 テーブル名を一つ一つ順番につけていくことは可能でしょうか?? 例 フォルダダイアログを作ってそのフォルダを指定して フォルダ名をテキストボックスに表示、 その表示されてるフォルダの中身を 別のボタンを押せばインポートできるように、 テキストファイル A1 A2 A3 A4 インポート後のテーブル名 B1 B2 B3 B4 インポート時の定義は全て同一です。 わかりにくくてすみません、 知恵を貸してください
- 締切済み
- Visual Basic
- Accessにおけるパスワード一括解除について
指定のフォルダにあるエクセルブックをアクセスにて一括解除してそのままAccessにインポートする方法を探しています。 vba初心者なのでコードも頂けると助かります。
- 締切済み
- Access(アクセス)
- アクセス2010 VBA 指定セルのインポート
アクセス・エクセル2010を使用しています。 モジュールを用いて以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 1.ダイアログを表示させ、取り込みファイル(.xls)を指定してインポートしたい ※1シート目指定(シート名は変動の可能性アリ) 2.1で指定したファイルと同じフォルダ内にあるファイル(.xls)を全てインポートしたい ※各ファイル、インポートは1シート目のみです 3.フォームのテキスト(作成済:フォーム名(frm)・テキスト名(txt))で取り込みファイルの範囲指定をしたい ※1行目からの記載では無いです ※フィールド名行は変動しませんが値行は変動し、月によって列も変動する可能性があるため、テキストを使って範囲の変更がしたいです ※取り込みファイルの様式(形式・範囲)は全て同じです:形式はすべて倍精度浮動小数点型です) 具体的には、今月は・・ A列・1~2行目に空白があり、B列~記載がありますが、 インポート範囲としてはK列に項目・7行目にフィールド名になる名称・L8~Wに倍精度浮動小数点型の数値が入っています。 1つ1つの条件であれば、検索すれば(参考にできるものが)出てくるものもあるのですが、 それらを どう組み合わせればうまく作動するのか 処理条件を どう設定すれば良いのかが よくわからず、困っています。 知識不足で申し訳ありませんが、ご指導いただけますと幸いです。 よろしくお願いします!!
- ベストアンサー
- Visual Basic
- ACCESS VBAでexcelの複数シートをインポートしたい。
ACCESS VBAでexcelの複数シートをインポートできますか。 TransferSpreadsheetでシートを指定できるのでしょうか。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- インポートの自動化
複数のエクセルファイルを自動でインポートしたいのですが DoCmd.TransferSpreadsheet _ TransferType:=acImport, SpreadsheetType:=acSpreadsheetTypeExcel97 _ , TableName:="T1", FileName:="C:\Book1.xls", HasFieldNames:=True のコードだと特定したファイルしかできないみたいです・・。 指定したフォルダの中にある複数のエクセルファイルを 自動でインポートするコードなんてあるんでしょうか? 幾分、初心者のためわからないことが多いです。 教えていただけると助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
お礼がとても遅くなり、申し訳ございませんでした。 お蔭様で、お教え頂いた通り実行した結果、無事にインポートすることができました。 何度もご回答いただき、大変助かりました。 今後とも、どうぞよろしくお願いいたします!!