您所在位置：网站首页 > IT计算机/网络 > 计算机应用/办公自动化VBA读取CSV内容方法

VBA读取CSV内容方法

4页

卖家[上传人]：yy****3

文档编号：356506617

上传时间：2023-07-14

文档格式：DOCX

文档大小：26.22KB

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

20 金贝

/ 4 举报版权申诉马上下载

文本预览

下载提示

常见问题

1、目录1、vba+ado读取当前目录下的CSV数据并保存为csv或本sheet中21.1 vba+ado读csv查询结果存为csv文件(逐行输出)21.2 vba+ado读csv查询结果另存为csv文件(逐个字段输出不换行)21.3 vba+ado读csv查询结果输出到本工作簿中的sheet32、vba+ado读取当前工作数据41、vba+ado读取当前目录下的CSV数据并保存为csv或本sheet中1.1 vba+ado读csv查询结果存为csv文件(逐行输出)SUB 将查询结果保存为CSV_1 ()Dim cnn, SQL$ Set cnn = CreateObject(adodb.connection) Set RS = CreateObject(adodb.recordset) cnn.Open Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source = & ThisWorkbook.Path & SQL = SELECT * FROM KPI.CSV A GROUP BY ERBSSet

2、 RS = cnn.Execute(SQL) ARR = cnn.Execute(SQL).GETROWSBRR = RS.Fields.Count RS.FIELDS.COUNTOpen ThisWorkbook.Path & 小区列表.csv For Output As #1Print #1, RS.Fields(0).Name + Chr(44) + RS.Fields(1).Name + Chr(44) + RS.Fields(2).NameFor J = 0 To UBound(ARR, 2) 列数For L = 0 To BRR - 1Print #1, ARR(0, J) + Chr(44) + ARR(1, J) + Chr(44) + ARR(2, J)NextClose #1RS.Closecnn.CloseSet rst = NothingSet cnn = NothingWorksheets(结果).ActivateMsgBox (OK)END SUB1.2 vba+ado读csv查询结果另存为csv文件(逐个字段输出不换行)SUB 将查询结果保存为CSV_2(

3、)Set cnn = CreateObject(ADODB.CONNECTION)Set RS = CreateObject(ADODB.RECORDSET)cnn.Mode = adModeReadWritecnn.Open Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=text;HDR=Yes;FMT=Delimited(,);Data Source= & ThisWorkbook.Path & SQL = select * from EUtranCellRelation.CSVSet RS = cnn.Execute(SQL) 将SQL语句获得的数据传 Open ThisWorkbook.Path & output.CSV For Output As #1For M = 0 To RS.Fields.Count - 1 Print #1, RS.Fields(M).Name + Chr(44); Next Print #1, narr = cnn.Execute(SQL).GetRowsbrr = RS.Fields.

4、Count RS.FIELDS.COUNTFor j = 0 To UBound(arr, 2) 列数For L = 0 To brr - 1Print #1, arr(L, j) + Chr(44); ;分号表示不换行NextPrint #1, nNextClose #1cnn.CloseSet rst = NothingSet cnn = NothingMsgBox OKEND SUB1.3 vba+ado读csv查询结果输出到本工作簿中的sheetSub ado读CSV存sheet()Set cnn = CreateObject(adodb.connection)Set rs = CreateObject(adodb.recordset) cnn.Open Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source = & ThisWorkbook.Path & SQL=select * FROM TEST.CSV Set rs = cnn.Execute(SQL)Sheets(结果).Cel

5、ls.ClearContentsSheets(结果).Range(a2).CopyFromRecordset rs For i = 0 To rs.Fields.Count - 1 Sheets(结果).Cells(1, i + 1) = rs.Fields(i).Name NextWorksheets(结果).ActivateMsgBox (OK) END SUB2、vba+ado读取当前工作数据SUB ado读工作簿中sheet数据()Dim cnn, SQL$ Set cnn = CreateObject(adodb.connection) Set rs = CreateObject(adodb.recordset) cnn.Open provider=microsoft.ace.oledb.12.0;Extended Properties =excel 12.0;data source= & ThisWorkbook.FullName a = “SELECT * FROM 结果$ Set rs = cnn.Execute(SQL) Sheets(修改前后输出).Cells.ClearContents Sheets(修改前后输出).Range(a2).CopyFromRecordset rs For i = 0 To rs.Fields.Count - 1 Sheets(修改前后输出).Cells(1, i + 1) = rs.Fields(i).Name Nextrs.Closecnn.CloseSet rst = NothingSet cnn = NothingWorksheets(修改前后输出).ActivateMsgBox (OK)END SUB

《VBA读取CSV内容方法》由会员yy****3分享，可在线阅读，更多相关《VBA读取CSV内容方法》请在金锄头文库上搜索。

点击阅读更多内容

TA的资源

V_ERAB_QCI1掉线率提升

volte端到端问题分析

5G网络功能介绍

ESRVCC准备阶段优化提升

EPSFB返回时延占比提升

VBA读取CSV内容方法

4G移动网络知识点汇总

新上传的WORD文档

庆三八妇女节演讲稿汇编7篇夏天作文300字电脑横机色码表胶粉聚苯颗粒外墙保温技术交底预制、现浇箱梁混凝土旁站记录填写要求市人民政府关于推进产业聚集加快城镇化进程的意见优秀别墅庭院景观设计专题方案文本电动伸缩门采购合同中考压轴题突破：几何最值问题大全(将军饮马、造桥选址、胡不归、阿波罗尼斯圆等) 2022年教师资格必考试题库含答案232 寝室安全防范大学生的安全教育心得体会 Y2系列电机技术数据[共4页] 水稻稻曲病的发生与防治技术读书申请和缺课检讨书优秀范文 2023年银行员工演讲稿_银行收员工的演讲稿

最新标签

监控施工信息化课堂中的合作学习结业作业七年级语文发车时刻表长途客运入党志愿书填写模板精品庆祝建党101周年多体裁诗歌朗诵素材汇编10篇唯一微庆祝智能家居系统本科论文心得感悟雁楠中学 20230513224122 2022 公安主题党日部编版四年级第三单元综合性学习课件机关事务中心2022年全面依法治区工作总结及来年工作安排入党积极分子自我推荐世界水日ppt 关于构建更高水平的全民健身公共服务体系的意见空气单元分析哈里德课件 2022年乡村振兴驻村工作计划空气教材分析五年级下册科学教材分析退役军人事务局季度工作总结集装箱房合同 2021年财务报表 2022年继续教育公需课 2022年公需课 2022年日历每月一张名词性从句在写作中的应用局域网技术与局域网组建施工网格薪资体系运维实施方案硫酸安全技术柔韧训练既有居住建筑节能改造技术规程建筑工地疫情防控大型工程技术风险磷酸二氢钾 2022年小学三年级语文下册教学总结例文少儿美术-小花 2022年环保倡议书模板六篇 2022年监理辞职报告精选 2022年畅想未来记叙文精品企业信息化建设与管理课程实验指导书范本草房子读后感-第1篇小数乘整数教学PPT课件人教版五年级数学上册 2022年教师个人工作计划范本-工作计划国学小名士经典诵读电视大赛观后感诵读经典传承美德医疗质量管理制度 2

进入店铺

收藏店铺