Open File VBA
13.10.2014 12:49:21
Riman
ich möchte eine Opendialog zur der Code haben,hier öffne ich nur diese Excel Datei. Ich möchte das die Opendialog geöffnet wird, und ich mir die Datei aussuchen kann, die dann in die Variable MyGrossFileName übergeben wird.
MyGrossFileName = ActiveWorkbook.Path & "\Erfassungsliste_FITS_FN.xls"
Function openGross() As Boolean
Dim MyGrossFileName As String
Dim fso As Object
Dim sFile As String
Set fso = CreateObject("Scripting.FileSystemObject")
MyGrossFileName = ActiveWorkbook.Path & "\Erfassungsliste_FITS_FN.xls"
MyWorkBook = ThisWorkbook.Name
If fso.FileExists(MyGrossFileName) Then
Set GrossWS = Workbooks.Open(MyGrossFileName)
openGross = True
Else
openGross = False
MsgBox ("File not found: " & MyGrossFileName)
End If
End Function
Anzeige