☰

Wie automatisiere ich das Öffnen, Speichern und Schließen einer Excel-Datei unter Windows?

tag-icon • tag-icon windows automation
Wie automatisiere ich das Öffnen, Speichern und Schließen einer Excel-Datei unter Windows?

Ich habe einen Kunden, der automatisch Berichte im Excel-Format erhält. Die Dateien haben eine .xlsxErweiterung. Er verwendet FileMaker, um die Daten in ein von ihm bevorzugtes Format zu bringen.

FileMaker unterstützt den Import von .xlsxDateien, gerät jedoch ins Stocken, wenn diese nicht in Excel geöffnet, gespeichert und geschlossen werden. Alles, was Sie tun müssen, ist, die Datei zu öffnen, zu speichern und zu schließen. Es werden keine Änderungen am Inhalt vorgenommen. Dies funktioniert, wenn sie es unter Windows machen, oder ich mache es unter macOS.

Wenn sie macOS verwenden würden, würde ich AppleScript verwenden, um diesen Vorgang zu automatisieren. Gibt es hierfür eine native Windows-Methode?

Antwort1

@HelpingHand hat mich in die richtige Richtung gelenkt. Ich habe schließlich genug VB Script gelernt und ein kleines, doppelklickbares Skript geschrieben, das Dateien in einem bestimmten Pfad von Excel in CSV konvertiert.

set xls = CreateObject("Excel.Application")
xls.DisplayAlerts = False

set fso = CreateObject("Scripting.FileSystemObject")
set w_shell = CreateObject("WScript.Shell")

desktop = w_shell.SpecialFolders("Desktop")
folder_path = fso.GetAbsolutePathName(desktop) & "\Payroll\"

set folder = fso.GetFolder(folder_path)
set files = folder.Files

for each file in files
    path = folder_path & file.Name
    set workbook = xls.Workbooks.Open(path)
    path = Replace(path, "xlsx", "csv")
    workbook.SaveAs path, 6
    workbook.Close False
next

xls.Quit

verwandte Informationen