Function ImportHoleWizardItem( _
   ByVal StdToImport As System.String, _
   ByVal DestinationFilePath As System.String, _
   ByVal ReplaceData As System.Boolean, _
   ByVal ErrorFile As System.Boolean _
) As System.Integer

Dim instance As ISldWorks
Dim StdToImport As System.String
Dim DestinationFilePath As System.String
Dim ReplaceData As System.Boolean
Dim ErrorFile As System.Boolean
Dim value As System.Integer
 
value = instance.ImportHoleWizardItem(StdToImport, DestinationFilePath, ReplaceData, ErrorFile)

System.int ImportHoleWizardItem( 
   System.string StdToImport,
   System.string DestinationFilePath,
   System.bool ReplaceData,
   System.bool ErrorFile
)

System.int ImportHoleWizardItem( 
&   System.String^ StdToImport,
&   System.String^ DestinationFilePath,
&   System.bool ReplaceData,
&   System.bool ErrorFile
) 

Parameters

StdToImport

Standard to import (see Remarks)

DestinationFilePath

Path and name of file to import (see Remarks)

ReplaceData

True to replace data, false to not

ErrorFile

True to create an error file, false to not

Return Value

'VBA Preconditions'

'Open a part.

'Ensure the *.xlsx file 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\ANSI Inch_Counterbore Holes_Hex Bolt.xlsx"
   
    longstatus = swApp.ImportHoleWizardItem(SourceHWItem, DestinationFolderName, True, True)
   
           
    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 DestinationFilePath with the path and file name of the Excel Workbook (*.xslx) you want to import. The Excel file name is formatted as follows:

standard_hole class_hole type.xslx