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, 1973 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 ..
Ähnliche Inhalte
Microsoft Office
gelöst Automatisch entscheiden ob prozentual oder fest anzahl von Datensätze (7)

Frage von hugothemagpie zum Thema Microsoft Office ...

Windows Server
gelöst Client werden automatisch verschoben (11)

Frage von Gregor81 zum Thema Windows Server ...

Entwicklung
Seite automatisch wieder ausrichten mit css oder javascript? (2)

Frage von rababar2014 zum Thema Entwicklung ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(8)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte