Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle aus Word in Excel kopieren
 18.06.2015 16:07:57 Hopsi
Solved

Ansicht des Beitrags:
Von:
Hopsi		 Datum:
18.06.2015 16:07:57		 Views:
1241		 Rating:
     
Antwort:
 Nein
Thema:
Tabelle aus Word in Excel kopieren

Hallo zusammen,

 

ich bin recht unerfahren in dem Gebiet der VBA Programmierung.

Allerdings benötige ich einen Code, der bestimmte Word Dateien (aus verschiedenen Pfaden) nach Tabellen mit der gleichen ersten Zeile durchsucht. Anschließend sollen diese Tabellen in einer Excel Datei kopiert werden.

Ich habe bereits einen Code zum kopieren einer Tabelle in eine Excel Datei, allerdings fehlt mir jetzt das Wissen diesen Code so anzupassen damit auch die übrigen Funktionen erfüllt sind.

Im voraus schon ein Dank für eure Hilfe.

Gruß Hopsi

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Test()
    Dim r As Row
    Dim cL As Cell
    Dim sPfad As String
    Dim sFile As String
    Dim appExcel As Object
    Dim sWorkbook As Object
    Dim i As Long
    Dim counter As Long
     
    'Pfad
    sPfad = "C:\Temp"
    'Dateiname
    sFile = "Test.xls"
 
    'ExcelObject erstellen
    Set appExcel = CreateObject("Excel.Application")
 
    'neue ExcelDatei erstellen
    Set sWorkbook = appExcel.Workbooks.Add
     
    'Wordtabelle auslesen
    For Each r In ActiveDocument.Tables(1).Rows
        counter = counter + 1
        i = 0
        For Each cL In r.Cells
            i = i + 1
            'Wert aus Zelle nach Excel übertragen
            sWorkbook.ActiveSheet.Cells(counter, i) = Left(cL.Range.Text, Len(cL.Range.Text) - 2)
        Next
    Next
     
    'ExcelDatei speichern unter
    sWorkbook.SaveAs sPfad & "\" & sFile
     
    'ExcelDatei schliessen
    sWorkbook.Close
   
    'ExcelObject löschen
    Set appExcel = Nothing
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Tabelle aus Word in Excel kopieren
 18.06.2015 16:07:57 Hopsi
Solved