保存CSV到位会丢失分隔符

时间:2017-08-24 09:42:04

标签: excel vba csv ms-access

从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删除原文,但我更喜欢更整洁的解决方案。

任何人都可以了解问题所在吗?

0 个答案:

没有答案