+ Reply to Thread
Results 1 to 3 of 3

Help with code

  1. #1
    Tempy
    Guest

    Help with code

    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 ***

  2. #2
    norie.macewan@ukonline.co.uk
    Guest

    Re: Help with code

    Take a look at the GetOpenFilename method.


  3. #3
    Tempy
    Guest

    Re: Help with code

    Thanks norie, just a dabbler so was'nt sure. Will play with it.

    Tempy

    *** Sent via Developersdex http://www.developersdex.com ***

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1