万帖成专家之拆分

LMY123

目录

一薄拆分成多薄

2楼   二分法，查询写入模板工作薄，复制模板文件写入主程序中

3楼   字典法

4楼   ADO法

5楼   VBS法

6楼   Shape Compute 命令

7楼   排序加数组法

8楼   高级筛选法

9楼   BAT批处理命令拆分TXT

10楼  WORD文档按页拆分

11楼  PDF按页拆分

12楼  一行拆分成多行

13楼  一列拆分成多列

14楼  拆分成工作表

收集一万个帖子，成为VBA专家。当日搭好框架，次日帖上代码。

LMY123

一薄拆分成多薄
  1-1 二分法，查询写入模板工作薄，复制模板文件写入主程序中

LMY123

1-2 字典法

LMY123

1-3 ADO法，一薄拆分成多薄

LMY123

1-4 VBS法
http://club.excelhome.net/thread-1404296-2-1.html  已入代码宝库

vbs-根据模板工作表-拆分成工作薄-一行一薄

rem 拆分表， 秋枫@ExcelHome

' the code below force script runs on cscript instead of wscript

Function IsCScript()
        ' Check whethe CScript.exe is the host.
        If (InStr(UCase(WScript.FullName), "CSCRIPT") <> 0) Then
                IsCScript = True
        Else
                IsCScript = False
        End If
End Function

Sub ForceInCScript()
        Dim WshShell
        Set WshShell = WScript.CreateObject("WScript.Shell")
       
        If (Not IsCScript()) Then
                WshShell.Run "CScript.exe " & """" & WScript.ScriptFullName & """"
                WScript.Quit ' Terminate script.
        End If
End Sub

ForceInCScript

' This code try to connect WPS ET，if failed then connect to Excel
Dim ExcelApp

On Error Resume Next
' try to connect to et or excel
Set ExcelApp = GetObject(, "Excel.Application")
If ExcelApp Is Nothing Then
        Set ExcelApp = GetObject(, "KET.Application")
        If ExcelApp Is Nothing Then
                Set ExcelApp = GetObject(, "ET.Application")
                If ExcelApp Is Nothing Then
                        MsgBox "Run Excel or Kingsoft ET first.", vbInformation, "Information"
                        WScript.Quit
                End If
        End If
End If
On Error Goto 0

LMY123

1-5 Shape Compute 命令

LMY123

1-6 排序加数组法

LMY123

1-7 高级筛选法

LMY123

1-8 BAT批处理命令拆分TXT

LMY123

1-9 WORD文档按页拆分