Function ExportHoleWizardItem( _
   ByVal StdToExport As System.String, _
   ByVal DestinationFolderPath As System.String _
) As System.Integer

Dim instance As ISldWorks
Dim StdToExport As System.String
Dim DestinationFolderPath As System.String
Dim value As System.Integer
 
value = instance.ExportHoleWizardItem(StdToExport, DestinationFolderPath)

System.int ExportHoleWizardItem( 
   System.string StdToExport,
   System.string DestinationFolderPath
)

System.int ExportHoleWizardItem( 
&   System.String^ StdToExport,
&   System.String^ DestinationFolderPath
) 

Parameters

StdToExport

Standard to export (see Remarks)

DestinationFolderPath

Path where to export the data (see Remarks)

Return Value

'VBA Preconditions'

'Open a part.

'Ensure that c:\temp exists.

Dim swApp As SldWorks.SldWorks
Dim SourceHWItem As String
Dim DestinationFoldeName As String
Dim longstatus As Long
Option Explicit

Sub Main()

    Set swApp = Application.SldWorks
   
    SourceHWItem = "ansi inch\Counterbore Holes\Hex Bolt"
   
    DestinationFolderName = "C:\temp"
   
    longstatus = swApp.ExportHoleWizardItem(SourceHWItem, DestinationFolderName)
   
    Exit Sub
       

End Sub

Specify StdToImport with the path and file name as shown on the Hole Wizard tab of the Toolbox, e.g., "ansi inch\Counterbore Holes\Hex Bolt".

Specify DestinationFolderPath with the path where to create the Excel Workbook (*.xslx). The data is exported to a file whose name is formatted as follows:

standard_hole class_hole type.xslx