T
Tempy
Hello Tom, i am opening a file with the method below, but now need to
give the user the option of the open file dialog box. How would i do
that ?
myFile = InputBox("WELCOME " & sname & ", please put in the file
name " & vbCrLf & _
"of the Document that you would like to process" &
vbCrLf & _
" without the exstension (.xls) and click OK to
continue", "ZA-T-M-22")
If myFile = "" Then
Cancel
End If
On Error Resume Next
Range("A2").Select
Workbooks.OpenText FileName:= _
"C:\Documents and Settings\" & flname & "\SapWorkDir\" & myFile
& ".xls", Origin:=437, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
Tab:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
If Err.Number <> 0 Then
MsgBox sname & ", your have not entered the correct " & vbCrLf &
_
"file name that you saved your file as " & vbCrLf & _
"from SAP, please re-enter", 48, "ZA-T-M-22"
StartSuppE
Else
' GetSuppNameAE
End If
On Error GoTo 0
Tempy
*** Sent via Developersdex http://www.developersdex.com ***
give the user the option of the open file dialog box. How would i do
that ?
myFile = InputBox("WELCOME " & sname & ", please put in the file
name " & vbCrLf & _
"of the Document that you would like to process" &
vbCrLf & _
" without the exstension (.xls) and click OK to
continue", "ZA-T-M-22")
If myFile = "" Then
Cancel
End If
On Error Resume Next
Range("A2").Select
Workbooks.OpenText FileName:= _
"C:\Documents and Settings\" & flname & "\SapWorkDir\" & myFile
& ".xls", Origin:=437, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
Tab:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
If Err.Number <> 0 Then
MsgBox sname & ", your have not entered the correct " & vbCrLf &
_
"file name that you saved your file as " & vbCrLf & _
"from SAP, please re-enter", 48, "ZA-T-M-22"
StartSuppE
Else
' GetSuppNameAE
End If
On Error GoTo 0
Tempy
*** Sent via Developersdex http://www.developersdex.com ***