如何錄製 :零件表 另存為...

ㄚ水

請問要如何錄製 :

零件表  另存為... > 檔案名稱(同檔案) 格式(excel2007)

我錄製出來資料入下 但按了沒反應..

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("零件表1", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("零件表1", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)

End Sub

chou0928

參考
https://bluebyte.biz/macros/expo ... ks-with-thumbnails/

ㄚ水

chou0928 發表於 2021/3/10 07:57
參考
https://bluebyte.biz/macros/export-bill-of-materials-to-excel-solidworks-with-thumbnails/

感謝大大
但好像有點太深了...

這方面我還只是初學者 , 大概只會用錄製的...

EasonZheng

我也不負責的貼一個連結XD
http://www.solidworks.org.tw/for ... &extra=page%3D1

rock6098

以下這個也是抄來的，也可以參考看看！
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swBOMTable As SldWorks.BomTableAnnotation
Dim swTable As SldWorks.TableAnnotation
Dim swAnn As SldWorks.Annotation
Const BOMTemplate As String = "D:\SW Data\templates\BOM.sldbomtbt"  ' ""內指定BOM範本，若使用系統，則為空白
Dim ConfigName As String
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    ConfigName = swModel.GetActiveConfiguration.Name
    Set swBOMTable = swModel.Extension.InsertBomTable(BOMTemplate, 0, 0,
swBomType_e.swBomType_TopLevelOnly, ConfigName)
    Set swTable = swBOMTable
    ModelPath = swModel.GetPathName
    ModelPathName = Left(ModelPath, InStrRev(ModelPath, "\"))
    FileName = Left(swModel.GetTitle, Len(swModel.GetTitle))
    swTable.SaveAsText ModelPathName & FileName & ".xls", ""
    Set swAnn = swTable.GetAnnotation
    swAnn.Select3 False, Nothing
    swModel.EditDelete
    MsgBox "Done!"
End Sub

ㄚ水

rock6098 發表於 2021/3/11 08:55
以下這個也是抄來的，也可以參考看看！
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc ...

先感謝大大提供的資訊可以用而且很快速就導出資料
但我發現表頭的連結屬性就會出不來...

可能是程式沒經過實際的插入表格再導出的關係...

不知道還有沒有得改?

rock6098

ㄚ水 發表於 2021/3/11 17:44
先感謝大大提供的資訊可以用而且很快速就導出資料
但我發現表頭的連結屬性就會出不來...

建議你可以上YOUTUBE，搜尋"Excel VBA教學"，然後跟著教學認真的做過一遍，就會對VBA有初步的概念，之後在編輯巨集上就會知道如何去除錯及修訂，如果只是套用別人的程式，而不了解的話，不適用的情形會是常態！

ㄚ水

rock6098 發表於 2021/3/15 08:22
建議你可以上YOUTUBE，搜尋"Excel VBA教學"，然後跟著教學認真的做過一遍，就會對VBA有初步的概念，之後在 ...

好的,目前已經有緩慢的在學習及GOOGLE VBA當中

感謝大大的指點