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.
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).