Ich versuche, eine .xls-Datei an einem fest codierten Speicherort im XLSX-Dateiformat automatisch zu speichern. Ich möchte, dass das SaveAs-Dialogfeld den fest codierten Speicherort und den Dateinamen anzeigt, der im Feld "Dateiname:" codiert wurde. Dies ist so, dass ich nur auf die Schaltfläche Speichern klicken muss.Excel VBA XLDialogSaveAs Funktion funktioniert nicht
Der SaveAs-Dialog wird jedoch immer C-Laufwerk anzeigen, wenn ich meine Datei im H-Laufwerk speichern möchte.
Die folgenden sind meine Codes:
Option Explicit
Sub externalRatingChangeFile()
'Declare the data type of the variables
Dim wks As Worksheet
Dim sFilename As String
'Set wks to the current active worksheet
Set wks = ActiveWorkbook.ActiveSheet
'Set the location to save the file to a variable
sFilename = "H:\testing file"
'Save as .xlsx file in the specific location stated earlier
'If there are errors in the code, set wks to nothing and end the process
On Error GoTo err_handler
ChDrive sFilename
ChDir sFilename
Application.Dialogs(xlDialogSaveAs).Show (sFilename & "\TestingFile - " & Format(Date, "YYYYMMDD") & ".xlsx")
'System to/not display alerts to notify Users that they are replacing an existing file.
Application.DisplayAlerts = True
err_handler:
'Set Wks to its default value
Set wks = Nothing
End Sub
Versuchen Sie, die Arbeitsmappe oder das Arbeitsblatt zu speichern? Die 'Dialoge (xlDialogSaveAs)' werden nur in einem Anfangsordner gestartet, wenn das Arbeitsbuch nicht zuvor gespeichert wurde. – Jeeped
Ich versuche, die Arbeitsmappe zu speichern. Die Arbeitsmappe wird aus einer Onlinequelle exportiert und wurde nicht zuvor in einem Ordner gespeichert. Ist das der Grund, warum der SaveAs-Dialog mir stattdessen das C-Laufwerk zeigt? – JJ2015