CSV格式转换到excel,怎么做?

Question

CSV文件中内容格式: A,B,C.......; 想转成按列分割的excel文件; 但是,Csv文件太大了,不能一次性转换,总是提示我超过列范围,有没有办法,列满了之后,能折换一行的?!

Answer 1

excel只有240列，大量数据不宜作为列导入，应作为行导入（最多支持65535行，超过65535应考虑使用excel2007或access桌面数据库）。要作为行导入，共两个步骤。
步骤一，打开VB编辑器编辑宏。工具，宏，visual
basic
编辑器（alt
+
F11）单击打开
左上角
模块
文件夹
，双击
模块1
复制以下内容，覆盖原有代码
Sub
Macro1()
Dim
fso
As
Object,
f
As
Object,
ar
Set
fso
=
CreateObject("Scripting.FileSystemObject")
p
=
"C:\Book1.txt"
'/////可根据文件Book1.txt实际路径修改
Set
f
=
fso.OpenTextFile(p)
s
=
f.readall
ar
=
Split(s,
",")'/////可根据文件Book1.txt实际分隔符修改Set
fso
=
Nothing:
Set
f
=
Nothing
i
=
1
For
Each
x
In
ar
Cells(i,
1)
=
ar(i
-
1)
i
=
i
+
1
Next
x
End
Sub
对代码中文本位置和分隔符两个变量做相应调整后，保存退出vb编辑器。
步骤二
运行宏单击A1单元格
工具，宏，宏（alt+
F8）
选中Macro1，单击执行按钮。