Hallo Zusammen,
ich habe eine Frage.
Mit folgender Prozedur werden Log Dateien gesucht, welche dann ausgewählt und eingelesen werden können.
Ich hätte gerne, das beim Aufrufen des Makros das aktuelle Verzeichnis geöffnet wird um dort auswählen zu können.
Wie müsste ich hierfür den Code ändern?
Kann mir dabei einer helfen?
Vielen Dank vorab.
Gruß Ulli
Public Sub LoadFile()
Dim sf As LoadData
Set sf = New LoadData
Dim fileName, fileNameLog, fileNameRep
Dim LogFile, ReportFile As Boolean
' Read data
Application.ScreenUpdating = False
fileName = Application.GetOpenFilename("XL2 Data Files, *.txt", 0, "Open XL2 Data Files", , False)
blnDiagramm = True
If VarType(fileName) vbBoolean Then 'Boolean bei Abbruch von GetOpenFilename
If fileName "" Then
fileNameLog = fileName
If InStr(fileNameLog, "123_Log") > 0 Then
LogFile = True
Else
fileNameLog = Replace(fileName, "123_Rpt_Report", "123_Log") 'switch to Log file
If InStr(Dir(fileNameLog), "123_Log") > 0 Then
LogFile = True 'check if Log file exists
Else
LogFile = False
End If
If Not LogFile Then
fileNameLog = Replace(fileNameLog, "123_Report", "123_Log") 'switch to Log file
If InStr(Dir(fileNameLog), "123_Log") > 0 Then
LogFile = True 'check if Log file exists
Else
LogFile = False
End If
End If
End If
End If
End If
If fileName = False Then LogFile = False
:
:
: