csv文件怎么分为两个excel表
答案:2 悬赏:60 手机版
解决时间 2021-02-03 16:59
- 提问者网友:却不属于对方
- 2021-02-03 03:42
有哪位高手知道请告诉小弟,还有具体步骤!谢谢
最佳答案
- 五星知识达人网友:往事隔山水
- 2021-02-03 03:50
用VBA程序吧,这儿有段程序代码:
Sub 读数据()
Application.ScreenUpdating = False
Set oConn = CreateObject("ADODB.CONNECTION")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Set oRS = CreateObject("ADODB.RECORDSET")
oRS.Open "SELECt * FROM XXXX.csv", oConn, 3, 1, 1
While Not oRS.EOF
ActiveSheet.Range("A1").CopyFromRecordset oRS, 65536
Sheets.Add After:=Sheets(Sheets.Count)
Wend
oRS.Close
oConn.Close
Application.ScreenUpdating = True
End Sub
将你的csv文件放在同一目录下,并将文件名称改为xxxx.csv
步骤:
1、打开Excel程序,建一个新工作薄;
2、右击工作表标签,选择查看代码,就打开了VBE窗口;
3、将此段代码复制到代码窗口中;
4、关闭VBE窗口,保存此工作溥(不关闭);
5、将你的csv文件拷贝到此工作溥路陉之下,并改名为XXXX.csv,
6、按Alt+F8,选择“读数据”程序,点执行
Sub 读数据()
Application.ScreenUpdating = False
Set oConn = CreateObject("ADODB.CONNECTION")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Set oRS = CreateObject("ADODB.RECORDSET")
oRS.Open "SELECt * FROM XXXX.csv", oConn, 3, 1, 1
While Not oRS.EOF
ActiveSheet.Range("A1").CopyFromRecordset oRS, 65536
Sheets.Add After:=Sheets(Sheets.Count)
Wend
oRS.Close
oConn.Close
Application.ScreenUpdating = True
End Sub
将你的csv文件放在同一目录下,并将文件名称改为xxxx.csv
步骤:
1、打开Excel程序,建一个新工作薄;
2、右击工作表标签,选择查看代码,就打开了VBE窗口;
3、将此段代码复制到代码窗口中;
4、关闭VBE窗口,保存此工作溥(不关闭);
5、将你的csv文件拷贝到此工作溥路陉之下,并改名为XXXX.csv,
6、按Alt+F8,选择“读数据”程序,点执行
全部回答
- 1楼网友:鸠书
- 2021-02-03 03:56
打开excel,单击菜单栏上的文件--另存为,弹出另存为对话框,将档案类型改为“csv(逗号分隔)”,然后点击保存就行了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯