Ohne PDMWorks zu kennen, behaupte ich erstmal: ja.
Von SolidWorks aus eine Excel-Datei öffnen und die Zeichnungsnummern auslesen ist kein großes Problem. Und in der PDMWorks-API müsste es eigentlich passende Befehle geben.
Piet
Hier ein paar Beispielzeilen für den Zugriff auf Excel:
Public xlApp As Object
Public Excelpfad As String
...
Excelpfad = Left(MacroPath, InStrRev(MacroPath, "\")) & "Materials.xls"
...
' ruft Excel auf
Set xlApp = CreateObject("Excel.Application")
...
xlApp.Visible = False ' unsichtbar
xlApp.UserControl = False ' von hier kein Zugriff auf die Excel-Datei
...
Sub addItemErsteller()
' Füllt die Combobox mit Namen aus der Excel-Tabelle
Dim Zeile As Integer
Dim Bereich As String
Set wb = xlApp.Workbooks.Open(Excelpfad)
Set ws = wb.Worksheets(3)
frmMaterial.cmbErsteller.Clear
Zeile = 1
Do
Bereich = ws.Range("A" & Zeile + 1).Value
If Bereich = "" Then
Exit Sub
End If
frmMaterial.cmbErsteller.AddItem (Bereich)
Zeile = Zeile + 1
Loop
End Sub
...
' Zum Beenden:
Set ws = Nothing
Set wb = Nothing
xlApp.Quit
Set xlApp = Nothing
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP