title image


Smiley Auswahl eines Pfads durch VBA
Hallo!

Versuche gerad in Sachen Office Automatisation voranzukommen und will mit GetObject(Pfad) und dann suchen/ersetzen ein Word Dokument mit Daten aus Excel bestücken.

Funktioniert soweit ganz gut - nur muss ich im VBA Code den Pfad des Excel Dokuments angeben.

Jetzt meine Frage: Wie kann ich mit einem Fenster wie bei der Funktion für "Dokument Öffnen" nach dem zu verknüpfenden Excel Dokument browsen und dann den Pfad für das ausgewählte Dokument automatisch in den unten stehenden VBA Code integrieren. Ich komm da irgendwie nicht weiter.



Vielen Dank und viele Grüße

Holger









      

Private Const Pfad = "C:\STUDIEN\2004\Results_20049898.xls"

Private Const Blatt = "Overview"



Sub Dataexchange_a()

Dim e_Test_name As String

  Dim xlWkb As Object

  Set xlWkb = GetObject(Pfad)

  e_Test_name = xlWkb.Sheets(Blatt).Cells(2, 2).Value

  xlWkb.Parent.Quit

  Set xlWkb = Nothing



Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Titem_name"

.Replacement.Text = e_Test_name

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub 





Code eingefügt mit Syntaxhighlighter 3.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: