|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.01.2017 09:02:07 |
DDMaverick |
|
|
|
16.01.2017 09:50:33 |
Gast52173 |
|
|
|
16.01.2017 10:28:07 |
Gast76877 |
|
|
|
16.01.2017 13:44:07 |
Mackie |
|
|
|
16.01.2017 14:04:52 |
DDMaverick |
|
|
|
16.01.2017 14:20:48 |
Gast77535 |
|
|
|
16.01.2017 15:02:41 |
DDMaverick |
|
|
|
16.01.2017 15:30:58 |
Gast18777 |
|
|
|
16.01.2017 16:10:43 |
DDMaverick |
|
|
 Automatisierte Durckerstatistik |
17.01.2017 09:23:23 |
Gast26922 |
|
|
Von:
Gast26922 |
Datum:
17.01.2017 09:23:23 |
Views:
663 |
Rating:
|
Antwort:
|
Thema:
Automatisierte Durckerstatistik |
|
Hallo,
das Auslesen aus dem html-Code ist hoffentlich nicht "wackelig".
Da ich heute kaum Zeit zu Programmieren habe, hier der allgemeine Ansatz:
Sub Daten_uebertragen()
Dim Qu as workbook 'Quelle
Dim Zi as workbook 'Ziel
iPath = "c:\temp\" '<<<< anpassen
iFile = '<<<<<<<<< hier den Code von gestern
set Qu = workbooks.open(iPath & iFile)
set Zi = workbooks.open(iPath & "Druckerstatistik"
'Schleife
'Kopieren
lr = Zi.sheets(1).cells(rows.count, "A").end(xlup).row +1 'erste freie Reihe
Zi.sheets(1).cells(lr,"A") = Qu.sheets(1).cells(x,y) 'zuerst Zeile x und Spalte y bestimmen
'Schleifenende
Qu.close 0
ND = Format(now, "yyyymmdd")
Zi.close "Druckerstatistik" & ND & ".xlsx" 'oder so ähnlich
end sub
Viel Glück, der Teufel steckt im Detail und davon gibt es noch viele.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.01.2017 09:02:07 |
DDMaverick |
|
|
|
16.01.2017 09:50:33 |
Gast52173 |
|
|
|
16.01.2017 10:28:07 |
Gast76877 |
|
|
|
16.01.2017 13:44:07 |
Mackie |
|
|
|
16.01.2017 14:04:52 |
DDMaverick |
|
|
|
16.01.2017 14:20:48 |
Gast77535 |
|
|
|
16.01.2017 15:02:41 |
DDMaverick |
|
|
|
16.01.2017 15:30:58 |
Gast18777 |
|
|
|
16.01.2017 16:10:43 |
DDMaverick |
|
|
Automatisierte Durckerstatistik |
17.01.2017 09:23:23 |
Gast26922 |
|
|