|
5#
楼主 |
发表于 2022-8-3 14:00:47
|
只看该作者
经典案例图书
Sub 打包()
Dim Swapp As Object
Dim Part As Object
Dim Gtol As Object
Dim longstatus As Long
Dim longwarbings As Long
Dim boolstatus As Boolean
N = 1
Do Until ThisWorkbook.Sheets(1).Range("A" & N) = ""
WLBM = ThisWorkbook.Sheets(1).Range("A" & N)
Set Swapp = CreateObject("SldWorks.Application")
Set Part = Swapp.OpenDoc6(ThisWorkbook.Path & "\" & "零件.SLDPRT", 1, 0, "", longstatus, longwarbings)
Set Part = Swapp.ActiveDoc
bRet = Part.AddCustomInfo3("", "物料编码", 30, WLBM)
这里把打开的零件在当前文件夹下打包,文件名称改成和Range("A" & N) 一致
Swapp.CloseDoc "零件.SLDPRT"
N = N + 1
Loop
End Sub |
|