---

Hallo zusammen

Ich habe eine Frage.

Ich würde gerne aus einer Catia Tabelle die Daten exportieren in ein Excellfile.
Und das dann unter dem Zeichnungsnamen in einem Ordner meiner wahl abspeichere.

Das erstellen des Excelfiles hab ich bereits hingekriegt.

Hat jemand eine Idee wie ich das Makro vervollständigen muss damit dies auch noch automatisch abgespeichert wird?

Vielen Dank für die Hilfe

Gruss

Rico

Sub CATMain()
'On Error Resume Next
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingViews1 = drawingSheet1.Views
Set ActView = drawingViews1.ActiveView
Set ActTables = ActView.Tables

' Exel öffnen
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Set oAWBook = objxl.Workbooks.Add

m=1 ' Zeile in Exel
i = 0

'Anzahl der Tabellen________________

For ii = 1 To ActTables.Count
    Set drawingTable1 = ActTables.Item(ii)

    Dim long2
    long2 = drawingTable1.NumberOfColumns 'Zeile

    Dim long3
    long3 = drawingTable1.NumberOfRows 'Spalte

'Werte aus aktiver Tabelle beziehen________________________________________
    For Row = 1 To long3
        For Col = 1 To long2
            objXL.Cells(m, Col).Value = drawingTable1.GetCellString(Row, Col)
        Next
    m = m + 1 'Zähler
    Next
m = m + 1
Next

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rico,

am einfachsten ist eigentlich du schließt am Ende das Workbook.
Dann fragt dich Excel automatisch ob du die Datei speichern willst.
Am Ende vom Code, nach der Schleife, einfach

oAWBook.Close

Du kannst auch über Excel den Speicherdialog öffnen, und ein ein Pfad mit Name ermitteln, und die Datei dann speichern

Dim s As String
s = objXL.GetSaveAsFilename("Hallo", "Excel-Datei (*.xls),*.xls", 1)
If s <> "False" Then
    oawbook.SaveAs s
    oawbook.Close False
End If

------------------
Gruss Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP