如何根据网上导出的文件转换为可见的单元格为文本的

yzyyyyyyy · 发表于 2019-10-8 14:31

基本信息表为从易查分网上下载的csv文件，网站提示：1、导出的文件为csv格式，打开后请另存为excel文件。

2、如果打开后乱码，请使用记事本打开CSV文件，“文件”->“另存为”，编码方式选择ANSI，保存完毕后，用EXCEL打开这个文件就不会出现乱码的情况。

如何选择导出的csv文件，转化为ANSI编码形式的xls文件，同时可导入到excel文件中，非乱码，单元格格式全部为文本格式。

liulang0808 · 发表于 2019-10-9 08:45

附件内容供参考。。。。。。

yzyyyyyyy · 发表于 2019-11-15 08:43

liulang0808 发表于 2019-10-9 08:45
附件内容供参考。。。。。。

感谢大师热心帮助。现有个问题，导入的证号加上了引号，日期也变成了序列号。能否，1证号不加引号，日期按正常日期格式，但要全部为文本格式；能否2打开原文件基本信息CSV，保存为ansi格式的xls文件。

liulang0808 · 发表于 2019-11-15 12:31

Sub 按钮1_单击()
Application.ScreenUpdating = False
For Each F In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path).Files
If LCase(Right(F.Name, 4)) = ".csv" Then
Open F For Input As #1
arr = Split(ReadUTF(F), Chr(10))
Close #1
For j = 0 To UBound(arr)
If Len(arr(j)) > 0 Then
brr = Split(arr(j), ",")
Cells(j + 1, 1).Resize(1, UBound(brr) + 1) = brr
End If
Next j
End If
Next F
arr = ActiveSheet.UsedRange
For j = 2 To UBound(arr)
arr(j, 3) = "'" & Replace(arr(j, 3), """", "")
arr(j, 4) = Format(arr(j, 4), "yyyy-mm-dd")
Next j
ActiveSheet.UsedRange = arr
Application.ScreenUpdating = True
End Sub
Function ReadUTF(ByVal FileName As String) As String
With CreateObject("ADODB.Stream")
.Type = 2 '读取文本文件
.Mode = 3 '读写
.Open
.LoadFromFile FileName
.Charset = "UTF-8" '设定编码
.Position = 2
ReadUTF = .ReadText
.Close
End With
End Function

复制代码

关于保存为ansi格式的xls文件，楼主自己研究下，具体对那个格式不了的

yzyyyyyyy · 发表于 2021-4-14 18:06

liulang0808 发表于 2019-11-15 12:31
关于保存为ansi格式的xls文件，楼主自己研究下，具体对那个格式不了的

导入到工作表时，单元格中内容前面的'等符号能否去掉

		自动登录	找回密码
密码			免费注册

[求助] 如何根据网上导出的文件转换为可见的单元格为文本的