Using ShowOpen

[Stan]

I found this code posted a few times on this site

Private Sub mnuFileOpen_Click ()
   ' CancelError is True.
   On Error GoTo ErrHandler
   ' Set filters.
   CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
   Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
   ' Specify default filter.
   CommonDialog1.FilterIndex = 2

   ' Display the Open dialog box.
   CommonDialog1.ShowOpen 
   ' Call the open file procedure.
   OpenFile (CommonDialog1.FileName)
   Exit Sub

ErrHandler:
' User pressed Cancel button.
   Exit Sub
End Sub

There is a call to OpenFile but the code is missing. Any idea what it could be?

[The Hobo]

It could be anything. But if you want to put the text in a TextBox, this would work:

Private Sub OpenFile(strFileName As String)
Dim iFF As Integer
 
  iFF = FreeFile() 'get available file number
 
  Open strFileName For Input As #iFF
    Text1.Text = Input(LOF(iFF), 1)
  Close #iFF
End Sub

That's assuming your TextBox is Text1.

[John McKernan]

Probably something like:

Public Sub OpenFile(FileName as String)
    Dim iFreeFile as Integer
 
    iFreeFile - FreeFile
 
    Open FileName For Input as #iFreeFile
    '... input the records
    Close #FreeFile
End Sub

(Adjusting the Access Mode as needed)

[The Hobo]

I think we think alike, John.

[John McKernan]

Originally posted by The Hobo
I think we think alike, John.

Sure, looks that way. (If it's true, I feel bad for you).

[Stan]

Okay - I seem to be getting some sense of it. What I want to do is open an Excel file in my VB application (not visible). There is already a *.xls file open (loaded automatically when the program starts0 that I want to close and replace with the new file. Can I adapt the following and do I really need to make a call to a separate procedure?

Private Sub Form_Load()

    Set xlApp = New excel.Application
    'Set xlBook = xlApp.Workbooks.Open(App.Path & "\New ME Model #5e.xls")
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls")
    Set xlSheetData = xlBook.Worksheets("input")

End Sub

Private Sub Form_Unload(Cancel As Integer)

    xlApp.Workbooks.Close
    xlApp.Quit
    Set xlApp = Nothing
    
End Sub