ADO读取CSV乱码

达姆

我这里有多个CSV文件 我想用ADO读取过来 然后再做后续处理  
但是结果显示的是乱码 求大神解决下
不用能open的方式获取 因为BD列它是零开头的 用open方式打开 开头是0的就没有了

现在的要求就是 直接把这个数据包完整的读取过来放到sheet2 就可以。。


4.rar (654.4 KB, 下载次数: 0)

前天 20:55 上传

点击文件名下载附件

李七三

用excel自带的导入外部数据的功能就行了

吕亿亿

可以这样：

•     Dim str0 As String，str1 As String
  
•     Dim strPath As String, strFile As String
  
• 
  
•     str1 = Application.GetOpenFilename(fileFilter:="CSV或Excel文件(*.csv;*.xls;*.xlsx),,CSV文件(*.csv),*.csv,Excel2003文件(*.xls),*.xls,Excel2007文件(*.xlsx),*.xlsx,所有文件(*.*),*.*", Title:="选择导入文件")   'MultiSelect:=True允许选择多个文件,返回数组
  
•     If str1 = "False" Then Exit Sub
  
•     str0=str1 '取原文件地址
  
•     strPath = Left(str1, InStrRev(str1, "")) '截取路径
  
•     strFile = Right(str1, Len(str1) - InStrRev(str1, "")) '截取文件名
  
• '--------------------------------------------------------------导入表格-------------------------
  
•         Application.ScreenUpdating = False
  
•         Set wb = GetObject(str1)
  
•         wb.Application.ScreenUpdating = False
  
• 
  
•         With wb.ActiveSheet
  
•                 '处理文件代码段
  
•                 '......
  
•                 '处理文件代码段
  
•         End With
  
•         wb.Application.ScreenUpdating = True
  
• 
  
•         If Right(str1, 4)  ".xls" Then
  
•             wb.Application.DisplayAlerts = False
  
•             str1 = strPath & Left(strFile, InStrRev(strFile, ".") - 1) & ".xls" '保存为.xls 格式
  
•             wb.SaveAs Filename:=str1, FileFormat:=xlNormal   '另存为excel 2003文件（.xls）xlExcel8值56 或 xlNormal，（.xlsx）xlOpenXMLWorkbook值51，（.xlsm）xlOpenXMLWorkbookMacroEnabled值52
  
•             wb.Application.DisplayAlerts = True
  
•             Kill str0 '删除原文件
  
•         End If
  
•         wb.Close savechanges:=True '关闭并保存工作薄
  
• 
  
•         Set wb = Nothing        Application.ScreenUpdating = True
  

糖醋红柿椒

我一个文件夹多个数据包。而且用这个导入速度慢，不是没尝试过

李鲁

并不是说打开这个CSV要干嘛 而且要把这个CSV文件读取到一个新的工作簿上 不做任何处理。

为者长成

用Open方法不会乱码的，附件楼主试试看
导入 CSV数据.zip (27.7 KB, 下载次数: 0)

前天 20:55 上传

点击文件名下载附件

金阿腾

感谢大哥，没有乱码  但是BD列原本是0开头的 用open打开0就没了

彣炆

其实还是打开CSV，把内容复制出来。

小鹿巴啦啦啦

读取到数组再处理一下呗
导入 CSV数据.zip (30.23 KB, 下载次数: 0)

前天 20:55 上传

点击文件名下载附件

贾雨石

现在容易了，excel刚加了新函数IMPORTCSV和IMPORTTEXT。