Dateibearbeitung (VBA)

Datei öffnen

Sub Datei_oeffnen()

s_Pfad = "u:\Daten\"
s_Datei = "Musterdatei.xls"

Workbooks.Open Filename:=s_Pfad & s_Datei

End Sub

Datei schließen

Die geöffnete Datei wird geschlossen. .

Sub Tabelle_schließen()

s_Datei = "Musterdatei.xls" Windows(s_Datei).Activate

ActiveWorkbook.Close

End Sub

Wenn in der Tabelle irgendwelche Änderungen stattgefunden haben, kommt eine Meldung

[image]

Die Programmdatei (Makro) schließen

Sub Programm_schließen()

s_Datei = "VBMusterprogramm.xlm" Windows(s_Datei).Activate

ActiveWindow.Close

End Sub

Datei speichern

Deklaration

Public s_Pfad, s_Datei as String

Programm

Sub Datei_speichern_xls()

Datei_oeffnen

' speichern als xls-Datei s_Datei = "Musterdatei.xls"

ActiveWorkbook.SaveAs Filename:=s_Pfad & s_Datei, FileFormat:=xlNormal

End Sub

Sub Datei_speichern_csv()

Datei_oeffnen

' speichern als csv-Datei s_Datei = "Musterdatei.csv"

ActiveWorkbook.SaveAs Filename:=s_Pfad & s_Datei, FileFormat:=xlCSV

End Sub

Sub Datei_speichern_htm()

Datei_oeffnen

' speichern als htm-Datei s_Datei = "Musterdatei.htm"

ActiveWorkbook.SaveAs Filename:=s_Pfad & s_Datei, FileFormat:=xlHtml

End Sub

Sub Datei_speichern_pdf()

Datei_oeffnen

' speichern (drucken) als PDF-Datei s_Datei = "Musterdatei.pdf"

Application.ActivePrinter = "PDFCreator auf Ne06:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator auf Ne06:", Collate:=True

End Sub

Datei drucken

Sub Datei_drucken()

Datei_oeffnen

' Collate: Wenn dieses Argument den Wert True hat, werden Mehrfachkopien sortiert. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub