Using ShowOpen

I found this code posted a few times on this site

Code:

---

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?

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

VB Code:

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.

Probably something like:

VB Code:

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)

I think we think alike, John. :)

Quote:

---

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

---

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

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?

Code:

---

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

---