I.D.A（アイディーエー）

​​　シート名を指定して、Excelファイルをインポートしたい　
　【TransferSpreadsheet メソッド　Access VBA】

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, テーブル名, Excelファイル名, True, シート名!

※ シート名の最後に、！(ビックリマーク)をつけます。

  TransferSpreadsheet メソッド

カレントの Access データベースまたは Access プロジェクト (.adp) とワークシート ファイルとの間でデータをインポートまたはエクスポートできます。

　TransferSpreadsheet(TransferType, SpreadsheetType, TableName,
　　　　　　　　　　　　　　　　　　FileName, HasFieldNames, Range, UseOA)

指定項目	内容
TransferType	省略可能です。 AcDataTransferTypeを指定します。 変換の種類を指定します。 既定値は acImport です。
SpreadsheetType	省略可能です。 AcSpreadSheetTypeを指定します。 インポート元、エクスポート先、またはリンク先のワークシートの種類を指定します。
TableName	省略可能です。 バリアント型 (Variant)の値を指定します。 ワークシートのデータのインポート、エクスポート、リンクを行う Microsoft Office Access テーブルの名前、または結果をワークシートにエクスポートする Access 選択クエリの名前を、文字列式で指定します。
FileName	省略可能です。 バリアント型 (Variant)の値を指定します。 インポート、エクスポート、またはリンクするワークシートのファイル名およびパスを文字列式で指定します。
HasFieldNames	省略可能です。 バリアント型 (Variant)の値を指定します。 インポートまたはリンクの際にワークシートの 1 行目をフィールド名として使用する場合は、True (-1) を使います。 ワークシートの 1 行目をデータとして処理する場合は、False (0) を使います。 この引数を指定しないと、False (既定値) が使われます。 Access テーブルや選択クエリのデータをエクスポートした場合は、この引数の値に関係なく、ワークシートの 1 行目にフィールド名が挿入されます。
Range	省略可能です。 バリアント型 (Variant)の値を指定します。 ワークシートのセルの範囲または範囲の名前を文字列式で指定します。 この引数はインポートにのみ適用されます。 この引数を指定しないと、ワークシート全体がインポートされます。 ワークシートにエクスポートする際は、この引数を空白のままにしておきます。 範囲を入力するとエラーが発生します。
UseOA	省略可能です。 バリアント型 (Variant)の値を指定します。 この引数はサポートされません。

【設定値】 AcDataTransferType　変換の種類

定数	値	内容
acExport	1	データがエクスポートされます。
acImport	0	(既定値) データがインポートされます。
acLink	2	指定したデータ ソースにデータベースをリンクします。

【設定値】 AcSpreadSheetType　ワークシートの種類

定数	値	内容
acSpreadsheetTypeExcel3	0	Microsoft Excel 3.0 形式
acSpreadsheetTypeExcel4	6	Microsoft Excel 4.0 形式
acSpreadsheetTypeExcel5	5	Microsoft Excel 5.0 形式
acSpreadsheetTypeExcel7	5	Microsoft Excel 95 形式
acSpreadsheetTypeExcel8	8	Microsoft Excel 97 形式
acSpreadsheetTypeExcel9	8	Microsoft Excel 2000 形式
acSpreadsheetTypeLotusWJ2	4	日本語版のみ
acSpreadsheetTypeLotusWK1	2	Lotus 1-2-3 WK1 形式
acSpreadsheetTypeLotusWK3	3	Lotus 1-2-3 WK3 形式
acSpreadsheetTypeLotusWK4	7	Lotus 1-2-3 WK4 形式

 
​ 　　● インポート定義を使用して、CSVファイルをインポートしたい
 　　　【TransferText メソッド　Access VBA】
  ​ 　　● システム開発
　　　 　　● Access VBA
​ 　　2024-03-18　レイアウト見直し
​　　2015-04-10　初回作成
​​