Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 1998 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
E-Mail
E-Mailanhänge automatisch ausdrucken (2)

Frage von HeinrichM zum Thema E-Mail ...

Microsoft Office
Button für Wechseln zwischen den Tabellenblättern (6)

Frage von lupi1989 zum Thema Microsoft Office ...

Microsoft Office
gelöst Einzelnes Tabellenblatt als E-Mailanhang mit Outlook versenden (5)

Frage von manfredwerner zum Thema Microsoft Office ...

SAN, NAS, DAS
Mit NAS E-Mails automatisch ausdrucken (8)

Frage von miichiii9 zum Thema SAN, NAS, DAS ...

Neue Wissensbeiträge
Viren und Trojaner

Link: Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (11)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...