Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Tabelle als Pdf mit Autoupdate alle 15min

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Tabelle als Pdf mit Autoupdate alle 15min (1277 mal gelesen)
CADdoctor
Mitglied
Technischer Zeichner (Versorgungstechnik)


Sehen Sie sich das Profil von CADdoctor an!   Senden Sie eine Private Message an CADdoctor  Schreiben Sie einen Gästebucheintrag für CADdoctor

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2897
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 26. Nov. 2010 01:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CADdoctor 10 Unities + Antwort hilfreich

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 Sub

Sub 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)


Sehen Sie sich das Profil von CADdoctor an!   Senden Sie eine Private Message an CADdoctor  Schreiben Sie einen Gästebucheintrag für CADdoctor

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für den Code.

Funktioniert einwandfrei.

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz