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, 1978 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
VB for Applications
gelöst Wo ist der Fehler in diesem VBS Codeausschnitt? (2)

Frage von gabrixl zum Thema VB for Applications ...

Voice over IP
Asterisk - OpenStage40 automatisch provisionieren

Frage von DianiBeach zum Thema Voice over IP ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(5)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft Office
Saubere HTML aus Word-Dokument (16)

Frage von peterpa zum Thema Microsoft Office ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (15)

Frage von marshall75000 zum Thema Router & Routing ...

Hosting & Housing
gelöst Webserver bei WIX, aber DNS Server wo anders (9)

Frage von laster zum Thema Hosting & Housing ...