excel-export

[my head]

hi!

ich möchte ein excel-doc öffnen, werte verändern und unter anderem namen speichern...

wie kann ich unter anderem dateinamen abspeichern??

[Semeaphoros]

etwa so:

excelApp.ActiveWorkbook.SaveAs Filename:="C:\test.xls"

[my head]

kann hier auch irgendwie bestimmen, dass schon vorhandene daten überschrieben werden sollen??

sprich: falls die datei schon vorhanden ist...

[TMC]

Mit einer if-Abfrage.

Wird die Datei nicht automatisch überschrieben?

Dann halt die Datei vorher löschen.

[my head]

wenn ich eine datei unter dem gleichen namen anlege... kommt halt danach das fenster, ob die neue datei gespeichert werden, obwohl schon eine mit dem gleichen namen vorhanden ist...

[Markus Henke]

Hi,

versuch mal vor das speichern ein

Application.DisplayAlerts = False

einzubauen. Dann solltest Du nicht benachrichtigt werden, dass es schon eine bestehende Datei gibt.

Gruß
Markus

[my head]

danke, das war's...

[Marshuhn]

Hallo,

ich würde das Thema noch einmal gerne aufgreifen. Als erstes habe ich Daten aus einer Ansicht in eine Excel-Datei exportiert. Jetzt wollte ich diese auxch automatisch speichern lassen. Hierzu hatte ich bei mir folgende Zeile eingefügt:

xlApp.ActiveWorkbook.SaveAs Filename:="C:\test.xls"

Dieses bewirkt, dass nicht eine Datei namens test.xls gespeichert, sondern eine Datei mit dem Namen Falsch.xls unter eigene Dateien. Was ist dann falsch gelaufen.

Außerdem möchte ich das ganze noch verfeinern. Ich lasse mir per Inputbox ein Anfangs- und ein Enddatum vorgeben. Dieses möchte ich gerne als Datumsnamen beim Speichern verwenden. Soll dann z. B. so aussehen: C:\Statistik\20.06.2005-31.06.2005.xls.

Ist das möglich?

Gruß + Danke

Marshuhn

[diali]

die Zeile sollte dann so aussehen:

xlApp.ActiveWorkbook.SaveAs "C:\Statistik\20.06.2005-31.06.2005.xls"

[Marshuhn]

Hallo Dirk,

danke für die Antwort. Aber ich möchte ja den Dateinamen aus über die Inbox eingegebenen Werten erstellen lassen. Gibt es dort auch eine Möglichkeit.
Die Werte werden halt über eine Inbox eingegeben und Variablen zugewiesen.

Wenn der Anwender nun als Start-Datum 18.05.2005 und als Endtermin den 15.06.2005 eingibt, dann sollen die Werte zu dem Dateinamen dazugeschrieben werden.

Quasi so:

xlApp.ActiveWorkbook.SaveAs "C:\Statistik\(Wert aus Startdatum)-(Wert aus Enddatum).xls"

Gruß + Danke

Marshuhn

[diali]

Angenommen Deine Variablen nennen sich "Startdatum" und "EndDatum".

Dann kannst Du den Aufruf so abändern:
xlApp.ActiveWorkbook.SaveAs "C:\Statistik\(" & Startdatum & ")-(" & EndDatum & ").xls"

Hinter dem SaveAs wird ein String erwartet und den kannst Du Dir mit Script zusammenbauen.

[Marshuhn]

Hallo Dirk,

super, danke für den Tipp.

Marshuhn