Pfadangabe in Makro
03.01.2005 17:12:35
Basti
in meiner Tabelle stand in Zelle "P15" ein Pfad und in Zelle "P16" ein Dateiname und in Zelle "P17" ein Blattname.
Mit dem Makro
Sub BastiR()
Dim strSource As String, Pfad As String, Datei As String, Blatt As String
Pfad = Range("P15").Text
Datei = Range("P16").Text
Blatt = Range("P17").Text
strSource = "'" & Pfad & "\[" & Datei & "]" & Blatt & "'!R9C1"
Range("C7").Value = ExecuteExcel4Macro(strSource)
konnte aus der Datei ein Wert ausgelesen und in die Datei kopiert werden.
Nun soll in Zelle P15 der Pfad mit Dateiname nach diesem Muster stehen:
G:\DAT\User\SK\Dateien\Tabelle1.xls
In Zelle P17 steht weiterhin der Blattname.
Leider passt der Ausdruck hinter der Variablen strSource nun nicht mehr, da der Dateiname anscheinend separat in eckigen Klammern gefasst werden muss.
Ich weiß mir keinen Rat wie der Ausdruck umgestellt werden muss und jeder Versuch schlug fehl, kann mir einer helfen?
Gruß von Basti