Inhalt einer .doc in Excel importieren
30.09.2007 19:59:00
{Boris}
ich brauche den Inhalt einer Worddatei in Excel - ab Zelle A1.
Meine höchst laienhafte Vorgehensweise (die auch funktioniert):
1. .doc öffnen (mit GetObject)
2. Inhalt kopieren (mit Sections(1).Range.Copy)
3. .doc schließen
4. in Excel einfügen (mit Sendkeys: Strg+V)
Das läuft bisher so (wahrscheinlich völlig unelegant - aber ich kenn mich mit Word-VBA nun überhaupt nicht aus - den Verweis auf Word hab ich gesetzt):
Option Explicit
Public Sub getWordDocument()
Dim objWD As Object
Dim strMyDoc As String
strMyDoc = "C:\Dokumente und Einstellungen\Boris\Test.doc"
Set objWD = GetObject(strMyDoc)
With objWD
.Sections(1).Range.Copy
.Close False
End With
Tabelle1.Range("A1").Select
SendKeys "^{v}"
End Sub
Jetzt möchte ich strMyDoc aber nicht statisch vorgeben sondern über ein Browserfenster auswählen können, damit ich den kompletten Pfad incl. Dateiname bekomme (für GetObject).
Wie geht das?
Wenn das Ganze eleganter geht, dann bin ich für derartige Vorschläge natürlich offen.
Grüße Boris