从Access我打开一个包含Excel实例的CSV文件,进行一些处理,然后保存文件。
Sub ImportFile(fp As String)
Dim xlApp as Excel.Application
Dim wb as Excel.Workbook
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open(fp)
' processing code...
wb.Save
End Sub
稍后在代码中文件被关闭,我使用TransferText方法将文件导入表中。
DoCmd.TransferText TransferType:=acImportDelim, tableName:=uploadTable, _
fileName:=fp, hasfieldnames:=True
问题是保存后所有列都已连接到A列,即分隔符已丢失。
我已经保存到位wb.Save
并且我已经保存了wb.SaveAs wb.Path & "\" & wb.Name
而没有任何区别。
我知道我可以用不同的格式做一个SaveAs,但这些是非常大的文件,并且它们的多个副本效率很低。我可以使用FSO删除原文,但我更喜欢更整洁的解决方案。
任何人都可以了解问题所在吗?