---

Einen schönen guten Tag an alle,

ich möchte aus Catia Parameter über VBA auslesen und in eine Exceltabelle schreiben. Funktioniert alles soweit.
Hier mal der Code:

Private Sub Fehler()

Dim XLS As Object
Dim objxls As Object

Set objxls = GetObject("", "excel.application")
Set XLS = objxls.workbooks.Open("C:\temp\Fehler.xls")

XLS.ActiveSheet.Activate

XLS.ActiveSheet.range("a1").Select
XLS.ActiveSheet.range("A1").Value = Kante1.Value

XLS.workbook.Save

XLS.Close

End Sub

Der Hacken an der ganzen Sache ist, das ich nicht eine schon vorhandene Datei verändern will sondern eine neue Anlegen. Und das schaffe ich nicht. Wenn mir jemand den Code so umschreiben oder mir den Befehl/ die Befehl verraten könnte, die dazu nötig sind wäre ich sehr dankbar.

Sir Klabauter

------------------
Hinweise auf Rechtschreibfehler kann man sich bitte sparen.

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

---

Hi Sir Klabauter,

Sub CATMain()

Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Set oAWBook = objxl.Workbooks.Add
'wenn du die Zellen direkt ansprichst, geht das besser (=schneller) als über die Selektion
objXL.Cells(1,1).Value = "Test"
sFileName = "C:\test.xls"
oAWBook.SaveAs sFileName
objXL.Quit

End Sub

Gruß

------------------
tomtom1972

[Diese Nachricht wurde von tomtom1972 am 25. Apr. 2007 editiert.]

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

---

Danke tomtom!

Du hast meine nächste Frage auch schon vorab beantwortet. Ich habe lange versucht das Macro zu erstellen. Durch einen Zufall hab ich dann gemerkt das ca. 20 Excelprozesse im Hintergrund liefen.
Ich bin nicht auf die Idee gekommen den Befehl Quit auszuführen.

Bist mein Held des Tages!

Dominik

------------------
Hinweise auf Rechtschreibfehler kann man sich bitte sparen.

[Diese Nachricht wurde von SirKlabauter am 26. Apr. 2007 editiert.]

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