Excelからのアクセスへの自動ロード

Question

"A1：G30000"の範囲のデータをロードする時点で、以下のコードを参照してください。このコードを変更して、A1：D30000とF1：G30000の範囲のデータがロードされるようにします。つまり、columnn Fのデータはアップロードから除外されます。

strFile = Dir(strPath & "*.xlsx") 
Do While Len(strFile) > 0 
     strPathFile = strPath & strFile 
     DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 
      strTable, strPathFile, blnHasFieldNames = False, _ 
      "Data!A1:G30000," 

Answer 1

いずれかを使用：

"Data!A1:D30000;Data!F1:G30000" 

または：

"Data!A1:D30000,Data!F1:G30000" 

又はオープンExcelおよびこの化合物の範囲をカバーする範囲名前を定義：

=Data!$A$1:$D$30000,Data!$F$1:$G$30000 

次に、という名前のを参照して、この名前付き範囲をコードに割り当てます。