摘要:
Sub 获取模板信息() Call sw初始化("") FilePathName = swModel.GetPathName If swFileTYpe = 2 Then ' ElseIf swFileTYpe = 3 Then ' Dim vDepend As Variant vDepend = 阅读全文
摘要:
Public 禁止改变 As Boolean Public 表头行 As Integer Public 首行 As Integer Public 末行 As Long ' Public 首列 As Integer Public 末列 As Integer Public 配置列 As Integer 阅读全文
摘要:
Public 禁止改变 As Boolean Public 表头行 As Integer Public 首行 As Integer Public 末行 As Long ' Public 首列 As Integer Public 末列 As Integer Public 配置列 As Integer 阅读全文
摘要:
Sub 移动文件() 获取行列号 Set 已经处理文件 = CreateObject("Scripting.Dictionary") 文件个数 = 1 Set fso = CreateObject("Scripting.FileSystemObject") Call sw初始化("") For 当前 阅读全文
摘要:
Sub 热改名(ByVal 旧文件名全名, ByVal 新文件名全名, ByRef 释放锁定或关闭的文件, ByRef 是否成功) Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next fso.MoveFi 阅读全文