Servus Bernd,
vielen Dank für die schnelle Antwort!
Hier mein Ergebnis:
Sub CATMain()
Dim Excel As Application
Dim WB As Workbook
Dim WS As Worksheet
Dim Element As Text
Dim XCoord As Double
Dim YCoord As Double
Dim ZCoord As Double
Dim nRow As Integer
Dim Part1 As Part
Dim HybShapeFac As Factory
Dim Point As HybridShapePointCoord
Dim HKoerper As HybridBodies
Dim measurement_points As HybridBody
Dim oEingabe
Dim cDateiPfad
CATIA.DisplayFileAlerts = False
Dim Message, Style, Title, Response, MyString
Message = ("Dieses Makro importiert den Namen einer Exceltabelle in Geometrische Sets. Folgendes ist zu beachten:" &_
""&(chr(13))&_
(chr(13)) &_
" - Beginn erst ab Zeile 2"&_
(chr(13)) &_
" - Spalte A= Name "&_
(chr(13)) &_
""&(chr(13))&_
" Willst du fortfahren ?")
Style = vbYesNo + vbDefaultButton2 'Define buttons.
Title = "Punkte importieren "
Response = MsgBox(Message, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes"
oEingabe="C:\Temp\Punkte.xls"
oEingabe=InputBox("Bitte den Pfad und Name der Excel Datei angeben:","Eingabe Dateipfad und Name",oEingabe)
cDateiPfad=oEingabe
' Excel starten
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
' arbeitsmappe öffnen
Set WB = Excel.Workbooks.Open(cDateiPfad)
' tabelle holen
Set WS = WB.Worksheets.Item(1)
' aktives part holen
Set Part1 = CATIA.ActiveDocument.Part
' factory zu erstellen des Geosets
Set hybridBodies1 = part1.HybridBodies
' hauptkörper holen zum einfügen des Geosets
Set hybridBody1 = hybridBodies1.Add()
' Name beginnt in der 2 Zeile der Tabelle
nRow = 2
' Zeilen solange einlesen bis nichts mehr drin steht
Do
' Spalte 1 = Name
hybridBody1.Name = (WS.Cells(nRow, 1).Text)
' Zeile hochzählen
nRow = nRow + 1
' Schleife verlassen, wenn Zelle leer ist
Loop While (WS.Cells(nRow, 2).Text <> "")
' Part aktualisieren
Part1.Update
' Ecxel schliessen
Excel.Quit
MsgBox "Fertig !" & vbCrLf & s '
Else ' User chose No.
MyString = "No"
End If
End Sub
---------------------------------------------------
Leider schaffe ich es so nur den ersten Namen auszulesen und als Geoset zu speichern...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP