永发信息网

csv文件怎么分为两个excel表

答案:2  悬赏:60  手机版
解决时间 2021-02-03 16:59
有哪位高手知道请告诉小弟,还有具体步骤!谢谢
最佳答案
用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,选择“读数据”程序,点执行
全部回答
打开excel,单击菜单栏上的文件--另存为,弹出另存为对话框,将档案类型改为“csv(逗号分隔)”,然后点击保存就行了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
脾不统血所致的出血特点是A.血色鲜红B.血色黯
dota中高地有什么优势,为什么破高地比较困难
我力气小总是打架打不过他人
难忘的一件事作文
本期应向税务机关缴纳的消费税为()元。A.73
苹果内存满了会卡顿吗
主角林风最后是不是很所有女的在一起
T296次最近的晚点情况?
【wow两害相权取其轻】两害相权取其轻的意思.
厦门 金樽 在哪?有几家?
卫生间有暖气片还需要装整体淋浴房吗
仙桃市仙桃笑笑美发造型地址在哪里啊
为什么我建议结婚前要先同居
中石油南黄线加油站(南黄线与飞机场路交叉口
奥地利有机海盐皂可以去背后痘痘吗?
推荐资讯
台儿庄大战遗址地址在什么地方,想过去办事
怎样加盟城市微姐
那种蔬菜中钙和磷含量比的比值最高?那种最低?
望谟嘉陵三轮摩托车专卖店在哪里啊,我有事要
咋养外国的兔子?
学会调控清晰,有助于我们健康成长。请结合以
韵彩形象设计地址好找么,我有些事要过去,
封神英雄榜(张馨予版)妲己和其他女的脱衣是
在家中描写环境寂寞的句子
跃龙预制板厂地址在什么地方,想过去办事
cm1断路器规格型号有哪些
汉邦医药连锁滨河名城店地址有知道的么?有点
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?