摘要：
Sub 遍历配置() Dim swDim As SldWorks.Dimension 清除_保留首行 sw全名 = Cells(首行, 文件路径列) & Cells(首行, 文件名称列) Call sw初始化(sw全名) 获取浮动列 '先一次性获取所有配置尺寸值，再在后面列出==开始 configN 阅读全文
摘要：
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 阅读全文
摘要：
Dim sw全名, 另存全名 As String Dim a, b As String Dim 拟转格式, 拟生成文件夹, SheetName As String Dim 当前行 Sub 另存为其他格式(ByVal 拟转格式) '拟转格式 = "dwg" 拟生成文件夹 = Range("A4") & 阅读全文
摘要：
Sub 格式化项目号() Set 表字典 = CreateObject("Scripting.Dictionary") Call Excel转字典(表字典) 最大级数 = 1 For Each 行 In 表字典.items 行("项目号").Select a = Split(行("项目号"), ". 阅读全文
摘要：
Private Sub Workbook_Open() ' Set 当前表 = ActiveSheet ' ' 文件短名称 = "查表填表.xlsm" ' 文件全名 = "D:\余魁\swvba\" & 文件短名称 ' For Each kk In Workbooks ' Debug.Print k 阅读全文
摘要：
Sub 插入孔() Call sw初始化("") 总数 = SelMgr.GetSelectedObjectCount2(-1) Set 边线1阵列方向 = Nothing For i = 1 To 总数 Set 对象 = SelMgr.GetSelectedObject6(i, -1) nSelT 阅读全文