我正在使用Microsoft Access。我正在使用DoCmd.RunSavedImportExport
命令通过VBA执行保存的导入(从Excel电子表格)。我想以编程方式捕获此保存的导入处理的记录数。
DoCmd.RunSavedImportExport
上的MS文档没有指示我可以使用任何返回值或ByRef参数。
我搜索了Google和SO,希望得到答案,因为我认为这已经得到解决。如果我错过了互联网上的答案,请告诉我!
这是我正在使用的代码。如果可以为我提供行数,我很高兴使用其他方法导入电子表格。
DoCmd.RunSavedImportExport "<name of saved import>"
我想要类似的东西:
numRec = DoCmd.RunSavedImportExport("<name of saved import>")
debug.print "# rec loaded="& numRec
使用DoCmd.RunSavedImportExport
确实不可用
相反,您可以使用查询来进行导入,并且Database.RecordsAffected
Dim db As DAO.Database
Set db = CurrentDb
db.Execute "SELECT * INTO SomeTable FROM [Excel 12.0 XML;HDR=Yes;DATABASE=C:\Path\To\File.xlsx].[MyNamedRange]"
debug.print "# rec loaded="& db.RecordsAffected
如果需要将记录追加到表中,可以将查询调整为追加查询。