Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Aktuelles Tabellenblatt automatisch ausdrucken mit vbs

Frage Microsoft Microsoft Office

Mitglied: Spacewonder

Spacewonder (Level 1) - Jetzt verbinden

31.12.2014, aktualisiert 02.01.2015, 1970 Aufrufe, 2 Kommentare

Hallo

das Thema war glaube ich schon mal hier besprochen worden. Doch die richtige Antwort war so richtig nicht dabei.

Ich muss meine Arbeitszeiten pflegen und habe mir dafür eine Excelmappe erstellt für jeden Monat ein Tabellenblatt, beschriftet mit Januar usw. bis Dezember. Nun ist mein Ziel immer das aktuelle
Tabellenblatt nur auszudrucken mit hilfe des Taskplaner in Windows.

Meine bissherige VBS-Datei sieht so aus:

__________________________________________________________________________________________________________________________________________________________________

' Excel (versteckt) öffnen
Set appXLS = CreateObject("Excel.Application")

' Workbook (versteckt) und schreibgeschützt öffnen
Set wbkXLS = appXLS.Workbooks.Open("C:\Users\Wunder\Datenaustausch\Arbeitszeit Wunder 2015.xlsx", , True)
' Tabelle1 ausdrucken
wbkXLS.sheets("Januar").PrintOut
' Workbook speichern
wbkxls.Saved = True
' Workbook schließen
wbkXLS.Close

Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing
___________________________________________________________________________________________________________________________________________________________________

habe diesen Code bis jetzt gearbeitet und funktioniert. Dabei muss ich jeden Monat immer diese Datei ändern und den Monat ändern. Die Tabelle wird täglich bearbeitet und soll nur noch am Wochenende das aktuelle
Tabellenblatt mit dem Aktuellen Monat ausdrucken.

Was Muss ich verändern?

Gruß Ralph
Mitglied: 114757
LÖSUNG 31.12.2014, aktualisiert 02.01.2015
Moin Ralph,
entweder so
01.
wbkXLS.sheets(MonthName(Month(date))).PrintOut
oder auch so via Index, wenn es insgesamt nur 12 sheets sind (1 =Januar bis 12=Dezember)
01.
wbkXLS.sheets(Month(date)).PrintOut
Gruß jodel32
Bitte warten ..
Mitglied: Spacewonder
02.01.2015 um 13:09 Uhr
Danke jodel32 hat funktioniert.

Gruß Ralph
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Batch & Shell
Automatisch dateien die sich in einem Ordner befinden, zippen (6)

Frage von cdm1970 zum Thema Batch & Shell ...

Windows 7
0 KB dateien automatisch löschen (5)

Frage von amgm2006 zum Thema Windows 7 ...

Windows 7
TeamViewer 12 normale Version automatisch Konto zuweisen

Frage von Ghost108 zum Thema Windows 7 ...

Heiß diskutierte Inhalte
Linux Netzwerk
gelöst DHCP vergibt keine Adressen (32)

Frage von Maik82 zum Thema Linux Netzwerk ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...

Hardware
gelöst PCI-Express-Adapterfrage (14)

Frage von DerWoWusste zum Thema Hardware ...