如何单表拆分多工作簿（ADO方式，且无需WORKBOOK.ADD）

作者：绿色风分类：时间：2022-08-18 浏览：91

楼主 xmyjk	Q:如何拆分单表至多工作簿，不允许用WORKBOOK.ADD语句。例如，按附表的city字段，把每个不同city的数据，拆分成独立的工作簿。 A:select into语句，能直接新建工作簿，无需workbook.add语句。 Option Explicit Sub tT() Dim arr, i&, SQL$ With CreateObject("adodb.connection") '创建ADO连接对象 .Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName '设置连接属性 .CursorLocation = 3 '设置游标类型 arr = .Execute("SELECT DISTINCT city FROM [SHEET1$]").getrows '筛选不重复的city值，并赋予arr数组 For i = 0 To UBound(arr, 2) '历遍数组 If Dir(ThisWorkbook.Path & "\效果\" & arr(0, i) & ".xls") <> "" Then Kill ThisWorkbook.Path & "\效果\" & arr(0, i) & ".xls" 如果文件夹存在city同名文件，删除 .Execute ("select * INTO [" & ThisWorkbook.Path & "\效果\" & arr(0, i) & ".xls].[" & arr(0, i) & "] FROM [sheet1$] where city='" & arr(0, i) & "'") '使用SELECT INTO语句将数据拆分新工作簿 Next .Close '关闭连接 End With Erase arr '释放数组 End Sub 拆分.rar
2楼 xyf2210	学习了
3楼水星钓鱼	学习
4楼 LOGO	请教楼主出现这个错误，应该怎么样调整:?wrong.jpg
5楼 335081548	谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表