Forums Neueste Beiträge
 

aus Excel XML-Datei speichern mit WorkbookBeforeSave

28/03/2008 - 09:19 von AndreasU | Report spam
Hallo,
ich benutze ein Excel COM-Addin um Daten aus einer DB zu lesen.
Das Workbook möchte ich speichern und in dem Verzeichnis des Workbooks
eine selbst erstellte XML-Datei ablegen. Die XLS-Datei und die XML-Datei
gehören zusammen und werden dann spàter weiterverarbeitet.

Das Problem ist die Excel-Funtion Datei Speichern unter. Hier wird ein Dialog
zur Auswahl des Verzeichnisses angeboten. Dieser Dialog kommt nach dem
Excel Application Ereignis WorkbookBeforeSave.

In dem Ereignis WorkbookBeforeSave stelle ich meine XML-Datei zusammen aber
wohin speichere ich die Datei? Der Ablageort der XLS-Datei ist noch nicht
bekannt, ich weiß also nicht wohin damit.

Gibt es ein Ereignis nach der Funktion "Datei speichern als", wo ich die
XML-Datei
zur XLS-Datei speichern kann (weil dann erst der benutzerdefiniere Ort
bekannt ist)

Für Tips wàre ich sehr dankbar.

Andreas


-
XXL-Pizza: Der Schnelle Weg zu Ihrer Pizza
http://www.xxl-pizza.de
 

Lesen sie die antworten

#1 stefan onken
28/03/2008 - 14:49 | Warnen spam
On 28 Mrz., 09:19, AndreasU
wrote:
Hallo,
ich benutze ein  Excel COM-Addin um Daten aus einer DB zu lesen.
Das Workbook möchte ich speichern und in dem Verzeichnis des Workbooks
eine selbst erstellte XML-Datei ablegen.  Die XLS-Datei und die XML-Datei
gehören zusammen und werden dann spàter weiterverarbeitet.

Das Problem ist die Excel-Funtion Datei Speichern unter. Hier wird ein Dialog
zur Auswahl des Verzeichnisses angeboten. Dieser Dialog kommt nach dem
Excel Application Ereignis WorkbookBeforeSave.

In dem Ereignis WorkbookBeforeSave stelle ich meine XML-Datei zusammen aber
wohin speichere ich die Datei? Der Ablageort der XLS-Datei ist noch nicht
bekannt, ich weiß also nicht wohin damit.

Gibt es ein Ereignis nach der Funktion "Datei speichern als", wo ich die
XML-Datei
zur XLS-Datei speichern kann (weil dann erst der benutzerdefiniere Ort
bekannt ist)

Für Tips wàre ich sehr dankbar.

Andreas



hallo Andreas,
teste mal dieses:


Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
datei = Application.GetSaveAsFilename _
(fileFilter:="Excel Files (*.xls), *.xls")
Application.EnableEvents = False
ActiveWorkbook.SaveAs datei
Application.EnableEvents = True
Cancel = True
MsgBox "gespeichert unter: " & datei
'Xml erzeugen
End Sub

datei enthàlt Pfad und Dateiname, falls du nur den Pfad brauchst:
pfad = replace(datei, Dir(datei),"")


Gruß
stefan

Ähnliche fragen