Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1995|回复: 3

[已解决]求一个拆分的VBA 老师们帮忙看看能不能做

[复制链接]
发表于 2015-11-16 23:27 | 显示全部楼层 |阅读模式
本帖最后由 tzjx200521 于 2015-11-17 18:08 编辑

表1 中有无数行。根据行数把表1拆分成无数个小表。并在当前文件夹建个新名为"B"的文件夹,把所有
拆分的表放里面。。。。workbook必须包含模板和SHEET1两个小表
最佳答案
2015-11-17 15:34
tzjx200521 发表于 2015-11-17 12:52
On Error GoTo 0    这句放这是干嘛???

on error resume next,相当于错误部分的开始位置。
on error goto 0,相当于错误部分的结束位置。
这两句之间的,是错误部分。
我个人是这么理解的:只忽略 设定错误 ,但并不忽略任何其它的错误。


http://club.excelhome.net/thread-85674-1-1.html
该链接现在打不开,请稍后再访问。
我觉得其中这个回复不错:
举例如多个错误发生,用on error resume next 则忽略错误,而在第一个错误后加入on error goto 0
则第一个错误忽略,但遇到第二个错误,则显示错误信息并终止程序。




A.rar

35.86 KB, 下载次数: 3

发表于 2015-11-17 09:16 | 显示全部楼层
Sub test()
    Dim A, i
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    A = Range("a1").CurrentRegion

    For i = 1 To UBound(A)
        Sheets.Copy
        ActiveSheet.Shapes("Button 1").Delete
        Range("a:a").ClearContents
        Range("a1") = A(i, 1)
        ActiveWorkbook.SaveAs getPath & A(i, 1)
        ActiveWorkbook.Close
    Next i
End Sub

Function getPath() As String
    Dim p As String
    p = ThisWorkbook.Path & Application.PathSeparator
    ChDir p
    p = p & "B" & Application.PathSeparator
    On Error Resume Next
    MkDir p
    On Error GoTo 0
    getPath = p
End Function
1.rar (15.08 KB, 下载次数: 3)
回复

使用道具 举报

 楼主| 发表于 2015-11-17 12:52 | 显示全部楼层
爱疯 发表于 2015-11-17 09:16
Sub test()
    Dim A, i
    Application.ScreenUpdating = False

On Error GoTo 0    这句放这是干嘛???
回复

使用道具 举报

发表于 2015-11-17 15:34 | 显示全部楼层    本楼为最佳答案   
tzjx200521 发表于 2015-11-17 12:52
On Error GoTo 0    这句放这是干嘛???

on error resume next,相当于错误部分的开始位置。
on error goto 0,相当于错误部分的结束位置。
这两句之间的,是错误部分。
我个人是这么理解的:只忽略 设定错误 ,但并不忽略任何其它的错误。


http://club.excelhome.net/thread-85674-1-1.html
该链接现在打不开,请稍后再访问。
我觉得其中这个回复不错:
举例如多个错误发生,用on error resume next 则忽略错误,而在第一个错误后加入on error goto 0
则第一个错误忽略,但遇到第二个错误,则显示错误信息并终止程序。




回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:47 , Processed in 0.236834 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表