从excel导入并制作列备忘录

Question

我从excel导入数据正常工作。

我需要解决的问题是，当它导入时我需要在数据进入之前备份一个列。目前并非所有数据都是导入的，因为列没有设置为备忘录。

我的代码：

    Dim oExcel As Object, oWb As Object
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.workbooks.Open(FileName:=strFile, _
Password:=strPassword)
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, "_tmp_table", strFile, -1
oWb.Close SaveChanges:=False
oExcel.Quit
Set oExcel = Nothing

Dim strClsExl As String
     strClsExl = "TASKKILL /F /IM Excel.exe"
     Shell strClsExl, vbHide

有关如何执行此操作的任何帮助表示赞赏

Answer 1

如果您事先使用已设置为“备忘录”的相应字段类型设置了导入temp_table，它将按您的意愿运行。