open existing excel file in vba

Expand Post »

im new in macro programming and vb
im doing a project office automation
how do i open (without showing) existing excel?
so i can manipulate the data

most of the snipet i see in the net is like this

Set oExcel = CreateObject("Excel.Application")
Set ExcelDoc = oExcel.Workbooks.Open(m_strPath & "project.xls")

i want the user to choose which excel file to edit
so a dialog box should prompt out
im thinking of using a dialog box
but i couldnt find any dialogbox button in vb 6

please help me
thanks in advance

Similar Threads

Open Excel file from Visual Basic in Visual Basic 4 / 5 / 6
Open Excel File in VB.NET
Getting A Data From Ms Eccess And Putting It In An Existing Excel File Using Vb 6.0 in Visual Basic 4 / 5 / 6
getting data from a text file and putting it in an excel file using visual basic 6.0 in Visual Basic 4 / 5 / 6
How do I open existing excel document using vb6? in Visual Basic 4 / 5 / 6

six888

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since Sep 2007

Permalink

Oct 11th, 2007

Re: open existing excel file in vba

Hi,

Check below example, for it to work add the component "Microsoft Common Dialouge Control" and add one to your form:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
 
Dim xl
Dim xlsheet
Dim xlwbook
Dim FilNam As String
 
    Me.CommonDialog1.ShowOpen
    FilNam = Me.CommonDialog1.FileName
 
    If Me.CommonDialog1.FileName <> "" Or Me.CommonDialog1.FileName <> ".xls" Then
 
        Set xl = CreateObject("Excel.Application")
        Set xlwbook = xl.Workbooks.Open(FilNam)
        Set xlsheet = xlwbook.Sheets.Item(1)
        xl.Visible = True 'Remove to hide the excel file
 
        Me.Text1 = xlsheet.range("A1") 'Do your work
 
        Set xl = Nothing
        Set xlwbook = Nothing
        Set xlsheet = Nothing
 
    End If
 
End Sub
Private Sub Command1_Click()

Dim xl
Dim xlsheet
Dim xlwbook
Dim FilNam As String

    Me.CommonDialog1.ShowOpen
    FilNam = Me.CommonDialog1.FileName

    If Me.CommonDialog1.FileName <> "" Or Me.CommonDialog1.FileName <> ".xls" Then
    
        Set xl = CreateObject("Excel.Application")
        Set xlwbook = xl.Workbooks.Open(FilNam)
        Set xlsheet = xlwbook.Sheets.Item(1)
        xl.Visible = True 'Remove to hide the excel file
        
        Me.Text1 = xlsheet.range("A1") 'Do your work
        
        Set xl = Nothing
        Set xlwbook = Nothing
        Set xlsheet = Nothing

    End If

End Sub

kb.net

Reputation Points: 13

Solved Threads: 29

Junior Poster

Offline

169 posts
since Aug 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: How to automatically update temperature on the form load?

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: which grid should I use

DaniWeb Message

Cancel Changes

User Name
Password