|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Word Tabellen in Excel kopieren |
21.01.2016 17:45:06 |
Harun Deniz |
|
|
|
21.01.2016 19:24:44 |
Gast16694 |
|
|
|
21.01.2016 19:32:56 |
Harun Deniz |
|
|
|
21.01.2016 19:43:53 |
Gast12213 |
|
|
|
21.01.2016 21:47:55 |
Gast27527 |
|
|
|
23.01.2016 09:59:30 |
Harun Deniz |
|
|
|
23.01.2016 10:16:32 |
Gast28215 |
|
|
|
24.01.2016 11:30:26 |
Harun Deniz |
|
|
Von:
Harun Deniz |
Datum:
21.01.2016 17:45:06 |
Views:
1444 |
Rating:
|
Antwort:
|
Thema:
Word Tabellen in Excel kopieren |
|
Hallo liebe Community,
ich benötige dringend eure Hilfe. Ich habe ein Problem mit einem Makro, der Tabellen aus einem Word-Dokument in Excel importiert. Das Makro funktioniert hervorragend, jedoch benötige zusätzlich die Kapitelnummern, damit ich die Tabellen zu Kapiteln zuordnen kann. Ich habe selber versucht eine Lösung zu finden, kenne mich aber mit Word-VBA wenig aus.
Bisher habe ich dieses Makro als Vorlage benutzt:
Option Explicit
Sub ImportWordTable()
Dim wdDoc As Object
Dim wdFileName As Variant
Dim tableNo As Integer 'table number in Word
Dim iRow As Long 'row index in Excel
Dim iCol As Integer 'column index in Excel
Dim resultRow As Long
Dim tableStart As Integer
Dim tableTot As Integer
On Error Resume Next
ActiveSheet.Range("A:AZ").ClearContents
wdFileName = Application.GetOpenFilename("Word files (*.doc),*.doc", , _
"Browse for file containing table to be imported")
If wdFileName = False Then Exit Sub '(user cancelled import file browser)
Set wdDoc = GetObject(wdFileName) 'open Word file
With wdDoc
tableNo = wdDoc.tables.Count
tableTot = wdDoc.tables.Count
If tableNo = 0 Then
MsgBox "This document contains no tables", _
vbExclamation, "Import Word Table"
ElseIf tableNo > 1 Then
tableNo = InputBox("This Word document contains " & tableNo & " tables." & vbCrLf & _
"Enter the table to start from", "Import Word Table", "1")
End If
resultRow = 4
For tableStart = 1 To tableTot
With .tables(tableStart)
'copy cell contents from Word table cells to Excel cells
For iRow = 1 To .Rows.Count
For iCol = 1 To .Columns.Count
Cells(resultRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
Next iCol
resultRow = resultRow + 1
Next iRow
End With
resultRow = resultRow + 1
Next tableStart
End With
End Sub
Hat jemand eine Idee oder einen Ansatz?
Vielen Dank im Voraus
LG, Harun |
- 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
|
Word Tabellen in Excel kopieren |
21.01.2016 17:45:06 |
Harun Deniz |
|
|
|
21.01.2016 19:24:44 |
Gast16694 |
|
|
|
21.01.2016 19:32:56 |
Harun Deniz |
|
|
|
21.01.2016 19:43:53 |
Gast12213 |
|
|
|
21.01.2016 21:47:55 |
Gast27527 |
|
|
|
23.01.2016 09:59:30 |
Harun Deniz |
|
|
|
23.01.2016 10:16:32 |
Gast28215 |
|
|
|
24.01.2016 11:30:26 |
Harun Deniz |
|
|