ich habe ein kleines Problem. Ich möchte in einem Makro in Word den Wert einer Zelle entweder aus der Tabelle in Word oder einer geschlossenen Excel-Tabelle verwenden.
Ich habe aus dem Archiv einen Code herauskopiert:
Sub temp()
Dim ojbZeile As Object
Dim sPfad As String
Dim appWord As Object
Dim sWordName As String
Dim Tables As Word.Table
Dim sZellenText As String
Dim i As Integer
Dim j As Integer
Dim sZTextZusatz As String
Set appWord = CreateObject("Word.Application")
'sPfad = "C:\Documents and Settings\sobottam\privat\Gut zu wissen\Word_to_exel\"
'sWordName = "Neu Microsoft Word Document.doc"
'Worddocument öffnen
'appWord.Documents.Open sPfad & sWordName
'For Each Tables In appWord.ActiveDocument.Tables
For Each Tables In ActiveDocument.Tables
For i = 1 To Tables.Columns.Count ' Spalten abklappern
For j = 1 To Tables.Rows.Count 'Zeilen abklappern
sZellenText = Tables.Rows(j).Cells(i).Range.Text
Debug.Print sZellenText
Next j
Next i
Next
sZellenText = Tables.Rows(1).Cells(1).Range.Text
Debug.Print sZellenText
sZTextZusatz = sZellenText & "\" & "Teil"
Debug.Print sZTextZusatz
End Sub
Teile habe ich auskommentiert - da ich ja nur den Wert einer bestimmten Celle haben möchte. Das Problem ist aber, dass nicht der reine Text - übernommen wird, sondern:C:\Users\Peter\TestWord2
C:\Users\Peter\TestWord2
\Teil
Wie erreiche ich, dass diese Teil nicht übernommen wird?
Besten Dank für Eure Hilfe.
Gruss
Peter