如何快速批量将csv转换成excel文件

 我来答
幻想家爱休闲
高能答主

2019-07-15 · 分享休闲中的点点滴滴!
幻想家爱休闲
采纳数:1082 获赞数:266365

向TA提问 私信TA
展开全部

快速批量将csv转换成excel文件步骤如下:

1、首先随便打开一个表格文件。

2、在开发工具标签页下有个宏功能。

3、打开宏窗口后,随便起个名字,新建。

4、箭头指的部分准备粘贴代码,代码粘贴下面的,其中目录部分换成你的csv文件所在的目录。

5、书写程序:

ChDir "C:\Users\Administrator\Desktop\新建文件夹"    

Dim sDir As String    

Dim curdir As String    

curdir = "C:\Users\Administrator\Desktop\新建文件夹"    

sDir = Dir(curdir & "\*.csv")    

While Len(sDir)        

Workbooks.Open Filename:=curdir & "\" & sDir        

Dim temp As String        

temp = Left(sDir, Len(sDir) - 4)        

ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _            

FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _            

ReadOnlyRecommended:=False, CreateBackup:=False        

ActiveWorkbook.Close       

sDir = Dir    

Wend

6、点击运行按钮运行。

7、在页面中等待一会儿。

8、现在所有csv文件都有一分转化为xls的文件了。

飞得更高200309
高粉答主

2016-04-15 · 说的都是干货,快来关注
知道顶级答主
回答量:4.6万
采纳率:93%
帮助的人:9593万
展开全部
右击“我的电脑”选择“资源管理器”,然后浏览到你那些“.csv”文件那里,看到所有文件后按Ctrl+A(全选),然后再按F2(重命名),把扩展名改成“.xls”,在弹出窗口点确定即可。如果不想改所有文件名,可以,一个一个把扩展名改成“.xls”即可。如果你懂DOS命令,可以在DOS下面把“*.csv”改成“.xls”。要是自己不懂,可以复制一份到桌面做实验。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
文夏侯菡5O
2016-04-15 · TA获得超过2766个赞
知道大有可为答主
回答量:4032
采纳率:52%
帮助的人:1225万
展开全部
csv分隔符需要打开时设置分隔的,不能直接改名什么的,除非你想把这个过程录制成VBA
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
BAIXINGR4
2016-04-15 · TA获得超过124个赞
知道答主
回答量:99
采纳率:100%
帮助的人:55.2万
展开全部
要求:
所有的CSV文件必须在同一个目录下.
步骤:
在这个目录下新建一个excel文件
打开这个文件然后按ALT+F11进入VBA编辑窗口粘贴下面的代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Sub CSV2XLS()
Dim FilePath, MyFile, iPath As String
iPath = ThisWorkbook.Path
MyFile = Dir(iPath & "\*.CSV")
If MyFile <> "" Then
Do
On Error Resume Next
If MyFile = ThisWorkbook.Name Then MyFile = Dir
Workbooks.Open (iPath & "\" & MyFile)
MyFile = Replace(MyFile, ".csv", ".xls")
Name = "\" & MyFile
FilePath = iPath & Name
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _
xlNormal, CreateBackup:=False
Workbooks(MyFile).Close True
Application.ScreenUpdating = True
MyFile = Dir
Loop While MyFile <> ""
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2019-05-09
展开全部

试试吧,it365 CSV格式转换器:

htt=ps://it365.gitlab.io/zh-cn/csv-excel/?d2697

我留的链接有点问题,你先复制链接,粘贴到浏览器地址栏,把前面的htt=ps改为https再进去。

进去就会操作了,点击选择文件按钮,然后会弹窗提示你选择文件,选择你的csv文件,

然后界面上,就可以下载转换后的Excel表格文件了。

it365 CSV格式转换器 可以快速把csv文件格式转换为Excel表格,还可以批量转换csv格式到excel表格。

截图示例:

csv格式转换效果:

csv文件快速、批量转换成excel表格、wps表格就这么简单。

希望能帮到你。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式