Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

automatische Ermittlung der Seitenzahlen von n-Dateien eines Verzeichnisses

53 views
Skip to first unread message

Karsten Schöne

unread,
May 30, 2004, 3:28:18 PM5/30/04
to
Hallo,
wie kann man die Seitenzahlen bei Exceldateien eines Verzeichnisses
automatisch (mit VBA) ermitteln?
Ich verwende Excel 2002. Es muss die Anzahl der Druck-Seiten jedes
Tabellenblattes ermittelt werden.

Gruß
Karsten

Herbert Taferner

unread,
May 30, 2004, 4:08:21 PM5/30/04
to
Hallo Karsten,

z. B. für die aktuelle Tabelle in A1 so,

'---------------------------------------

Sub WievielSeiten()

[A1] = ExecuteExcel4Macro("Get.Document(50)")

End Sub

mfg Herbert


Karsten Schöne

unread,
May 31, 2004, 6:26:10 AM5/31/04
to
Hallo Herbert,

vielen Dank für dein Makro.
Leider ist es noch nicht ganz, was ich brauche.
Ich möchte gerne ohne die einzelnen Arbeitsmappen / Tabelle öffnen zu
müssen für ein Verzeichnis (am Besten auch alle Unterverzeichnisse)
die Druck-Seitenzahlen ermitteln.
Ich habe in der Word-Newsgroup dafür folgendes Makro bekommen, dass
ich auf Excel angepasst habe. Wenn ich den Verweisen die
Excel-Objektbibliothek reinnehme, dann führt er auch deinen Befehl
aus, aber ständig mit 0 Seiten. Er ermittelt zwar die Exceldateien
aber nicht die Seitenzahlen.
Public Sub count_pages()

Dim lFls As Long ' files

Dim lPgs As Long ' pages`

'Dim oDcm As Document

Dim oDcm As worksheet

Application.Visible = False

With Application.FileSearch

.NewSearch

.LookIn = "C:\Documents and Settings\<username>\My Documents"

'.FileName = "*.doc"

.FileName = "*.xls"


.Execute

For lFls = 1 To .FoundFiles.Count

Documents.Open .FoundFiles(lFls)

Set oDcm = ActiveDocument

' lPgs = oDcm.BuiltInDocumentProperties("Number of Pages")

lPgs = ExecuteExcel4Macro("Get.Document(50)")


oDcm.Saved = True

oDcm.Close

Selection.TypeText Text:=.FoundFiles(lFls) & " = " & lPgs

Selection.TypeText Text:=vbCr

Next

End With

Application.Visible = True

End Sub

"Herbert Taferner" <t.he...@SPAMgmx.at> schrieb im Newsbeitrag
news:uPXCcGo...@TK2MSFTNGP10.phx.gbl...

Herbert Taferner

unread,
May 31, 2004, 6:39:05 AM5/31/04
to
Hallo Karsten,

versuche mal das Makro mit F8 zeilenweise zu durchlaufen
ich vermute mal weil du in der For - Next Schleife zwar
alle Dateien durchläufst aber den Wert für die Seitenanzahl
addierst du dabei nirgends,

da kann zwangsläufig höchstens der Wert von der letzten Datei
drinnstehen ?

mfg Herbert


0 new messages