Thema Datum  Von Nutzer Rating
Antwort
Rot Zahlen in erster Spalte einer CSV-Datei addieren
17.04.2024 22:40:54 LouieLoop
NotSolved
17.04.2024 23:42:54 ralf_b
NotSolved
18.04.2024 08:49:36 LouieLoop
NotSolved
18.04.2024 23:11:43 Gast82767
NotSolved
19.04.2024 17:09:43 Gast22787
Solved
18.04.2024 12:02:36 Trägheit
NotSolved
18.04.2024 13:48:47 LouieLoop
NotSolved
19.04.2024 09:39:14 Gast71028
NotSolved
20.04.2024 00:47:39 Gast50786
NotSolved
20.04.2024 15:37:02 Gast78090
NotSolved
22.04.2024 18:41:37 Gast35910
NotSolved
23.04.2024 14:47:21 Gast84819
NotSolved

Ansicht des Beitrags:
Von:
LouieLoop
Datum:
17.04.2024 22:40:54
Views:
124
Rating: Antwort:
  Ja
Thema:
Zahlen in erster Spalte einer CSV-Datei addieren

Hallo liebe VBA-Profis

Ich kriege immer wieder etwa 2 bis 15 Word-Dateien, muss diese öffnen, eine Eigenschaft der Datei notieren (bei mir ist es die Anzahl der Seiten eines bestimmten Abschnitts, nehmen wir der Einfachheit halber an, es sei die Seitenanzahl des Dokuments) und am Schluss die Werte zusammenzählen. Ich habe nun ein Makro zusammengeschustert, das diese Werte im folgenden Stil in der Datei Seitenzahlen.txt notiert:

004   Datei01.docx
021   DateiBsp.docx
017   Datei939.docx
004   DateiLouie.docx
122   Datei02.docx

Ich habe drei Leerzeichen als Trennzeichen gewählt. Sieht schön aus, ich hoffe, das geht so. Wenn der letzte Wert notiert ist, möchte ich in der gleichen Word-Datei eine Prozedur starten, die die Werte addiert. Wie ich das Resultat am Schluss wieder in Seitenzahlen.txt reinschreibe, wüsste ich wahrscheinlich. Aber wie kann ich die Werte in der ersten Spalte einer CSV-Datei zusammenzählen? Leider ist es mir gelungen, die Zahlen schön untereinander zu schreiben. Das macht das Ganze noch etwas schwieriger. Für euch Profis ist das aber sicher kein Problem, oder?

Die vereinfachte Version des Makros, das die Werte in die Textdatei schreibt:

Sub CountPages()
    
    Dim strFolderPath As String
    Dim intPages As String
    
    strFolderPath = ActiveDocument.Path & "\"
           
    ' Rufe die Anzahl der Seiten ab und speichere sie dreistellig in einer Variable
    intPages = Format$(ActiveDocument.ComputeStatistics(wdStatisticPages), "000")
    
    ' Speichere den Wert in einer CSV- bzw. Textdatei
    Open strFolderPath & "Seitenzahlen.txt" For Append As 1
    Print #1, intPages & "   " & ActiveDocument.name
    Close 1
    
End Sub

PS1: Ich muss die Word-Dateien ohnehin alle nacheinander öffnen. Eine automatische serielle Abarbeitung bringt daher wahrscheinlich nicht viel, hat bei mir auch nicht gut geklappt.


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot Zahlen in erster Spalte einer CSV-Datei addieren
17.04.2024 22:40:54 LouieLoop
NotSolved
17.04.2024 23:42:54 ralf_b
NotSolved
18.04.2024 08:49:36 LouieLoop
NotSolved
18.04.2024 23:11:43 Gast82767
NotSolved
19.04.2024 17:09:43 Gast22787
Solved
18.04.2024 12:02:36 Trägheit
NotSolved
18.04.2024 13:48:47 LouieLoop
NotSolved
19.04.2024 09:39:14 Gast71028
NotSolved
20.04.2024 00:47:39 Gast50786
NotSolved
20.04.2024 15:37:02 Gast78090
NotSolved
22.04.2024 18:41:37 Gast35910
NotSolved
23.04.2024 14:47:21 Gast84819
NotSolved