从Excel自动加载到Access

Question

请在下面的代码中加载“A1：G30000”范围内的数据。我想更改此代码，以便加载A1：D30000和F1：G30000范围内的数据，即从列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

然后引用您在代码中指定此命名范围的名称。