Question

我正在尝试从用户选择的Excel文件中导入数据，并将其数据导入到可访问的表中。

要要求用户选择我使用此代码的文件

Private Function importarExcelTabla()
Dim excelMedi As Variant
Dim cuadroSeleccion As Office.FileDialog

Set cuadroSeleccion = Application.FileDialog(msoFileDialogFilePicker)
'Abre el cuadro de seleccion de ficheros

With cuadroSeleccion
.AllowMultiSelect = False
.Title = "Selecciona el archivo por favor"
.Filters.Clear
.Filters.Add "Todos los archivos", "*.*", 1


If .Show = True Then
excelMedi = cuadroSeleccion.SelectedItems(1)

一旦选择，我将使用transgerSpreadsheet将.xlsx文件从范围导入表中

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "MediPrueba", 
excelMedi, False, "A2:L950"

   End If

  End With

End Function

但是我的问题是表格没有填充excel数据，而且我将范围从一个文件放到了，但是：

¿可以选择不带第一行的所有文档，以便它在其他具有其他长度的excel文件中起作用吗？

提前谢谢

Answer 1

实际上有从www.accessmvp.com/KDSnell/EXCEL_Import.htm签出的代码

此代码通过选择一个起点（右上角）起作用，直到遇到空白行，直到该行停止为止。要跳过第一行，请将起点设置为A2

<sessionState mode="Custom" customProvider="LocationNewsCache">   <providers>
    <add name="LocationNewsCache" type="Microsoft.Web.Redis.RedisSessionStateProvider" host="link to AWS ElastiCache"
      port="6379" accessKey="" ssl="false" throwOnError="true"/>   </providers> </sessionState>

将数据从Excel文件导入Access表

1 个答案: