Ich habe das Problem mit einem Excelsheet und WScript gelöst
'-----------------------------------------------------------------------------
' Reihen Durchlauf
' Durchlauf durch alle Reihen die Daten enthalten
'
For row = 0 to (usedRowsCount-1)
' nur nach denen gucken die gebraucht werden
curRow = row+top
' curCol = column+left
curCol = 1
' hole den (teilschaltung name) der in jeder Reihe ist
teilschaltung = Cells(curRow,curCol).Value
ver = Cells(curRow,curCol+1).Value
' wenn nicht leer dann importiere nach E³
If Not (IsEmpty(teilschaltung)) Then
ret = Projekt.ImportDrawing(ver&teilschaltung, 0, 100, 100 )
' Auskommentieren für debug: WScript.Echo (ver&teilschaltung)
' Auskommentieren für debug: Wscript.Echo teilschaltung
End If
Next
'
' Ende Reihen Durchlauf
'-----------------------------------------------------------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP