Autor
|
Thema: Tabelle als Pdf mit Autoupdate alle 15min (1277 mal gelesen)
|
CADdoctor Mitglied Technischer Zeichner (Versorgungstechnik)
Beiträge: 313 Registriert: 12.05.2007 Software: AutoCAD MEP 2013 Excellink 2013 Windows 7 x64 Pro SP 1 Office 2010 SP 1 Mozilla Firefox 13.0.1 Mozilla Thunderbird 13.0.1<P>Hardware: ASUS P6T WS Professional Intel Core i7-920, 4x 2.67GHz PNY Quadro FX 1800 Kingston HyperX DIMM XMP Kit 6GB Kingston HyperX SSD 120GB, SATA 6Gb/s
|
erstellt am: 25. Nov. 2010 15:35 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich soll für unseren Verein eine Bestehende Exceltabelle in ein pdf konvertieren und dann eine Verknüpfung zu der Excel-Datei herstellen die alle 10 bis 15 Minuten die neuen Ergebnisse auf einem LCD Fernseher im Vereinsraum Updatet. Das Excel-Sheet enthält verschiedene Tabellenblätter (Damen, Herren, Jugend usw.). In der Pdf ist jedes Tabellenblatt eine eigene Seite. Jede Seite hat einen Seitenübergang und die Funktion Automatisch blättern nach 5 Sekunden zugewiesen. Im Adobe Reader X Vollbildmodus funktioniert das alles einwandfrei, bis auf die letzte Seite, da sollte alles wieder bei der Seite 1 beginnen. Macht es aber nicht. Auch die Verknüpfung mit dem Original Excel Sheet für die neuesten Ergebnisse bekomme Ich nicht hin. Gibt es eventuell eine möglichkeilt das nur in Excel zu realisieren? Kann mir da wer weiter helfen. ------------------ Mit freundlichen Grüßen CADdoctor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 26. Nov. 2010 01:07 <-- editieren / zitieren --> Unities abgeben: Nur für CADdoctor
Bsp.-code setzt timer, durchläuft dann alle Sheets und wechselt alle 5 sec (default) zwischen Sheetcount 1,2,3 durch - die beiden Calls VollbildAllesAus & Standardansicht sind in der Mappe, Link unten. Code: Dim timer_enabled As Boolean Dim timer_interval As Double Sub cmd_TimerOn() Dim interval As Double interval = InputBox("intervall in sec", , 5) / 3600 / 24 Call VollBildAllesAus Call timer_Start(interval) End SubSub cmd_TimerOff() Call StandardAnsicht Call timer_Stop End Sub Sub Timer() sheetCount = Sheetnr(ActiveSheet.Name) 'MsgBox Worksheets(sheetCount).Name If sheetCount < 3 Then Worksheets(Worksheets(sheetCount + 1).Name).Activate Else Worksheets(Worksheets(1).Name).Activate End If End Sub Sub timer_OnTimer() Call Timer If timer_enabled Then Call timer_Start End Sub Sub timer_Start(Optional ByVal interval As Double) If interval > 0 Then timer_interval = interval timer_enabled = True If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer" End Sub Sub timer_Stop() timer_enabled = False End Sub Function Sheetnr(Shtnm As String) For i = 1 To ActiveWorkbook.Sheets.Count If Sheets(i).Name = Shtnm Then Sheetnr = i Exit Function End If Next i Sheetnr = "" End Function
http://dl.dropbox.com/u/11817810/XL2003%20Excel%20TimerExample.xls Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADdoctor Mitglied Technischer Zeichner (Versorgungstechnik)
Beiträge: 313 Registriert: 12.05.2007 Software: AutoCAD MEP 2013 Excellink 2013 Windows 7 x64 Pro SP 1 Office 2010 SP 1 Mozilla Firefox 13.0.1 Mozilla Thunderbird 13.0.1<P>Hardware: ASUS P6T WS Professional Intel Core i7-920, 4x 2.67GHz PNY Quadro FX 1800 Kingston HyperX DIMM XMP Kit 6GB Kingston HyperX SSD 120GB, SATA 6Gb/s
|
erstellt am: 26. Nov. 2010 10:45 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|