---

Hallo,

ich habe ein sehr triviales Problem, was ich allerdings nicht lösen kann... Ich übertrage die Struktur eines CATProducts in eine Excel-Liste. Diese Liste möchte ich am Ende unter einem bestimmten Pfad abspeichern, was allerdings nicht klappt!

Hier der Code:

Code:

---

Sub CATMain()

Dim objExcel As Object
Dim strExcelPfad As String
Dim strArbeitsblattname As String
Dim doc As Document
Dim ProdWurzel As Product
Dim intLetzteZeile As Integer

Set doc = CATIA.ActiveDocument

'Prüfung, ob ein Produkt in Catia geladen ist
If doc Is Nothing Then

  MsgBox "Bitte ERST ein Produkt laden - DANN dieses Makro neustarten!"
  Return
 
End If

'Speicherpfad festlegen

strExcelPfad = "irgend_ein_Pfad"

Set objExcel = CreateObject("Excel.Application")

objExcel.Application.displayalerts = False

objExcel.Workbooks.Add
objExcel.Worksheets(1).Name = strArbeitsblattname
objExcel.Application.Visible = True

Hier steht der Code zum Auslesen der Struktur

objExcel.Application.displayalerts = True
objExcel.Columns.AutoFit

objExcel.SaveAs (strExcelPfad) 'in dieser Zeile liegt mein Problem!

Debug.Print "Fertig!"
MsgBox "Struktur exportiert!"

End Sub

---

Als Fehlermeldung kommt "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht"

Wenn ich die Zeile in objExcel.Save ändere, dann öffnet Excel das Speichern-Dialogfenster, allerdings muss ich den Pfad selbst eingeben...

Weiss jemand weiter?

Danke!

[Diese Nachricht wurde von Antelito am 07. Mai. 2014 editiert.]

[Diese Nachricht wurde von Antelito am 07. Mai. 2014 editiert.]

[Diese Nachricht wurde von Antelito am 07. Mai. 2014 editiert.]

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

---

Servus
Ohne es getestet zu haben würde ich es so probieren:

Code:

---

Sub CATMain()

Dim objExcel As Object
Dim strExcelPfad As String
Dim strArbeitsblattname As String
Dim doc As Document
Dim ProdWurzel As Product
Dim intLetzteZeile As Integer

Set doc = CATIA.ActiveDocument

'Prüfung, ob ein Produkt in Catia geladen ist
If doc Is Nothing Then

  MsgBox "Bitte ERST ein Produkt laden - DANN dieses Makro neustarten!"
  Return

End If

'Speicherpfad festlegen

strExcelPfad = "irgend_ein_Pfad"

Set objExcel = CreateObject("Excel.Application")

objExcel.Application.displayalerts = False

Set MyWorkbook = objExcel.Workbooks.Add
MyWorkbook.Worksheets(1).Name = strArbeitsblattname
objExcel.Application.Visible = True

Hier steht der Code zum Auslesen der Struktur

objExcel.Application.displayalerts = True
MyWorkbook.Columns.AutoFit

MyWorkbook.SaveAs (strExcelPfad) 'in dieser Zeile liegt mein Problem!

Debug.Print "Fertig!"
MsgBox "Struktur exportiert!"

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

danke für die ultra schnelle antwort... leider funktioniert es so auch nicht... wieder die selbe fehlermeldung

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

---

Servus
Welche Zeile löst den Fehler aus?
Ist der Pfad gültig ("irgend_ein_Pfad")??
Was steht dazu in der Excel-Doku?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

den Fehler löst die Zeile MyWorkbook.objExcel.SaveAs(strExcelPfad) aus... also ganz am Schluss

Der Pfad ist gültig.

In der Excel-Doku steht folgender Code: MyWorkbook.objExcel.SaveAs Filename:=strExcelPfad

aber auch das funktioniert nicht (wieder die selbe Fehlermeldung)...

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

---

Hi,

das Problem ist gelöst!

Wenn ich bei der Code-Zeile MyWorkbook.objExcel.SaveAs Filename:=strExcelPfad

das Fettgedruckte weglasse, dann funktioniert es...

Danke!

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