Word text nach excel
07.09.2003 01:56:49
Vedat
Ich habe ein kleines problem, wobei für euch das kein problem ist:
Mein Problem:
Ich möchte eine text die in einer Word Document bei einer Tabelle ist ins excel übertragen. Wobei das schaffe ich aber! Er nimmt mir auch die leerzeichen mit, wie kann ich das lösen, habe mit trim ausprobiert leider kein Resultat, danke schon für hielfe.
Sub WordzuExcelUebertrag()
wordPath = "V:\"
wordFileName = UserForm1.txt_name.Text + UserForm1.txt_vorname.Text
wordDatei = wordPath & wordFileName
'öffnen word datei
Documents.Open fileName:=wordPath & wordFileName
'übertragen ins excel
Cells.Range("A1") = Trim(ActiveDocument.Range.Tables(1).Columns(2).Cells(4).Range.Text)
End Sub
was mache ich falsch!!!!
Anzeige