möchte ein File ÖFFNEN PER VBA kenne als Name nur die ersten 7 Zeichen zb. Ind1020 (Index)
File heisste eigentlich Ind1020abcdefgxxxx.xls.
DANKE für Hilfe
Gruss aus CH
Sub openFile()
Dim fileName As String
Dim filePath As String
Dim fullFileName As String
fileName = "Ind1020"
filePath = "c:\temp\" ' Hier Deinen Pfad eingeben
fullFileName = filePath & Dir(filePath & fileName & "*.xls")
If fullFileName filePath Then
Workbooks.Open fullFileName
End If
End Sub
Gruss, JogyDim strPfad As String, strDatei As String
strPfad = "C:\Ordner\" 'Pfad angeben am ende mit \
strDatei = Dir(strPfad & "Ind1020*.xls") 'beachte Platzhalter *
If strDatei "" Then
Workbooks.Open strPfad & strDatei
Else
MsgBox "nix da"
End If
Gruß TinoDim sNummer as string, strPfad As String, strDatei As String
sNummer = "Deine Nummer"
strPfad = "C:\Ordner\"
strDatei = Dir(strPfad & "INDEX" & sNummer & ".xls")
'...
Gruß Tino