从CSV文件转换为Excel的多个Sheet
来源:互联网 发布:淘宝盗图修改技巧 编辑:程序博客网 时间:2024/05/21 19:31
Sub Macro3()
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")
'Now actually open the text file and import into Excel
oRS.Open "SELECT * FROM 201403_OSA_BY_SKU_DT.csv", oConn, 3, 1, 1
While Not oRS.EOF
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("A1").CopyFromRecordset oRS, 1000000
Wend
Application.ScreenUpdating = True
End 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")
'Now actually open the text file and import into Excel
oRS.Open "SELECT * FROM 201403_OSA_BY_SKU_DT.csv", oConn, 3, 1, 1
While Not oRS.EOF
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("A1").CopyFromRecordset oRS, 1000000
Wend
Application.ScreenUpdating = True
End Sub
0 0
- 从CSV文件转换为Excel的多个Sheet
- excel文件的多个sheet表合并成一个csv文件并导入数据库
- 将Excel表格多个Sheet表的数据转换为SQL存储语句
- CSV文件(可以转换为Excel)的读写
- 【Excel技巧】合并多个Sheet为一个的方法
- Tableau 数据源为EXCEL多个sheet时(无关联字段),如何转换数据源?
- python 把多个excel、csv写成同一excel多个sheet
- 如何将excel文件转换为csv格式
- 批量转换csv为excel和批量解压目录下所有压缩包的文件
- 将多个csv文件合并到一个excel文件的不同的sheet中
- VBA实现保存Excel多个工作表中的选择区域为CSV文件
- 将Dataset中的多个DataTable导入到一个Excel文件的多个Sheet中
- 保存为excel,CSV文件
- Delphi生成多Sheet的Excel文件
- Delphi生成多Sheet的Excel文件
- 将EXCEL文件转换成utf8编码的csv文件
- pb操作Excel文件多个sheet(留存备查)
- Java将多个数据表导出多个Sheet到Excel文件
- 腾讯实习笔试2014.04.12
- 浅谈Linux中系统调用代码相关
- cocos2d-x 学习——环境搭建
- 面试题整理-整数的n次方
- Leetcode:Permutations 数组的全排列
- 从CSV文件转换为Excel的多个Sheet
- MEF程序设计指南一:在应用程序中宿主MEF
- 嵌入式学习(2)---ubuntu(12.04)下minicom的上传和下载
- linux添加开机启动服务
- El表达式的简单用法
- jquery attr()方法
- 戴尔E5420拆机教程
- 高斯核函数
- MEF程序设计指南二:Silverlight中使用CompositionInitializer宿主MEF