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(逗号分隔)”，然后点击保存就行了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯