Dialogfenster 'Speichern' mit Makro aufrufen?

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte mit Excel97 das Dialogfenster „Speichern unter“ aus einem Makro heraus aufrufen. Der Anwender soll dann die geöffnete Datei an den gewünschten Zielort abspeichern können. Nach dem Anklicken des OK bzw. Abbrechen Buttons des Dialogfensters „Speichern unter“ soll das Makro weiter abgearbeitet werden (es folgen einige Programmzeilen).

Leider weiß ich nicht, wie man ein in Excel integriertes Dialogfeld aufruft,und auch nicht, wie man ein Makro unterbrechen bzw. fortführen kann.

Ich würde mich über eine Hilfestellung (gerne auch Programmzeilen) sehr freuen.

Mit freundlichen Grüßen
Stefan

#2

hi,

wenn ich dich richtig verstanden hab´, willst du das Windows-Standardfenster „Speichern unter …“ aufrufen.

müsste wie folgt gehen:

Microsoft Common Dialog Control 6.0 Komponente hinzufügen
und dann einfach durch

CommonDialog1.ShowSave

aufrufen. Das wars.

gruß thomas

#3

Wenn es Dir um das Excel-Dokument selber geht, dass Du mit „Speichern unter…“ speichern möchtest, dann wird Dir folgendes Coding weiterhelfen:

Dim strBuf As String
'
strBuf = Application.GetSaveAsFilename(, "Excel-Datei (\*.xls), \*.xls")
'
Select Case UCase$(strBuf)
Case "FALSCH", "FALSE"
 'User hat abgebrochen
Case Else
 Call Me.SaveAs(strBuf)
End Select

Ist natürlich noch ausbaufähig, da die Funktionen GetSaveAsFilename() und SaveAs() noch jede Menge Parameter haben (siehe Hilfe Microsoft Excel Visual Basic).

greets from michL (vienna)

#4

Danke, hat mir geholfen Gruß Stefan (o.T.)
o.T.