.csv型文本文件导入时出错，是否有解？

baiqingrui　发表于：2014-07-18 11:07:25 　

复制

我有一个扩展名为.csv的文本文件，可以用Excel打开，里面内容显示如下

姓名“张,老三”和 “李老,四”中间有一个英文逗号（,）。

.CSV文件字段间是也是用英文逗号（,）分隔开的，这个文件用EXCEL打开是正常的，但是用ACCESS导入（导入外部数据-->文本文件）会出错，变成这样：

我现在只能先把.CSV文件另存为EXCEL文件，再导入到ACCESS，不知道哪位大侠能解决这个问题。（.CSV的数据无法传上来, 可以用EXCEL另存为.CSV格式。）

Top

麥田发表于：2014-07-18 11:48:50

逗号在excel里面去除在导入

Top

baiqingrui 发表于：2014-07-18 12:04:18

数据很大的，我上面只是做个演示。

Top

baiqingrui 发表于：2014-07-18 12:04:18

数据很大的，我上面只是做个演示。

Top

baiqingrui 发表于：2014-07-18 12:05:54

字段也很多，事先并不知道那个字段可能会有问题

Top

baiqingrui 发表于：2014-07-18 12:07:00

估计这个奇葩的问题大家都没碰到过

Top

西出阳关无故人发表于：2014-07-18 17:13:11

在导入前用代码转换为:文本文件(制表符分割)

Private Sub Command1_Click()
On Error Resume Next
Dim ex As Boolean
Dim a
Dim xlBook As Excel.Workbook
Dim j
Dim xlApp As Object
Dim varItem As Variant

Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlApp = CreateObject("Excel.Application")
Err.Clear
ex = False
Else
ex = True
End If
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\文本逗号分隔.csv")
xlApp.Visible = True
xlBook.SaveAs FileName:="F:\lxt\年度\2014\设计\文本逗号分隔6.txt", FileFormat:=xlText, CreateBackup:=False
xlBook.Close
Set xlBook = Nothing
If ex = False Then
xlApp.Quit
End If
Set xlApp = Nothing
End Sub