DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

opening excel file in visual basic 6

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Aug 2007

Posts: 47

Reputation: locsin is an unknown quantity at this point

Solved Threads: 0

locsin

Offline

Light Poster

opening excel file in visual basic 6

Sep 9th, 2007

I try to open excel file in visual basic 6. Somebody gave me this code to open excel file. But when i create a my new form and type this code. An error occured for this code

Private Sub Form_Load()
Dim x_app As Excel.Application
Dim x_wbk As Excel.Workbook
Dim x_wsh As Excel.Worksheet

Set x_app = New Excel.Application
Set x_wbk = x_app.Workbooks.Add
Set x_wsh = x_wbk.Worksheets.Add

x_wsh.Cells(1, 1) = 50
x_app.Visible = True

End Sub

When I declare

Dim x_app as Excel.Application in my new form it is not accepted It change to Dim x_app as Excelfrm.

How to add Excel in my object browser. Maybe it is the solution to open my excel file in visual basic 6.

Anybody can help me and I appreaciate it alot. Step by step instruction to clearly open excel file in vb6 is served me best.

Thank you in advance.

Last edited by locsin; Sep 9th, 2007 at 3:53 am.

•

Join Date: Aug 2007

Posts: 160

Reputation: kb.net is an unknown quantity at this point

Solved Threads: 26

kb.net

Offline

Junior Poster

Re: opening excel file in visual basic 6

Sep 9th, 2007

Hi,

Use this code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
 
Dim xl As Object
Dim xlwbook As Object
Dim xlsheet As Object
 
    Set xl = CreateObject("Excel.Application")
    Set xlwbook = xl.Workbooks.Add
    Set xlsheet = xlwbook.Worksheets.Add
 
    'do your staff example:
    xlsheet.range("A1") = 100
    'finish you staff
 
    xl.Quit
    Set xl = Nothing
    Set xlwbook = Nothing
 
End Sub
Private Sub Command1_Click()

Dim xl As Object
Dim xlwbook As Object
Dim xlsheet As Object

    Set xl = CreateObject("Excel.Application")
    Set xlwbook = xl.Workbooks.Add
    Set xlsheet = xlwbook.Worksheets.Add
    
    'do your staff example:
    xlsheet.range("A1") = 100
    'finish you staff
    
    xl.Quit
    Set xl = Nothing
    Set xlwbook = Nothing

End Sub

It is never about the number of languages you know, you either have the logic of programming or you don't ...

Some of the codes I post are collected from different sites during the past couple of years, so I would like to thank them for their help and for enabling me to help.