opening excel file in visual basic 6

Expand Post »

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.

Similar Threads

Open Excel file from Visual Basic 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
open a PDF file in visual basic in Visual Basic 4 / 5 / 6

locsin

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

47 posts
since Aug 2007

Permalink

Sep 9th, 2007

Re: opening excel file in visual basic 6

Hi,

Use this code:

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

kb.net

Reputation Points: 13

Solved Threads: 29

Junior Poster

Offline

169 posts
since Aug 2007

Permalink

Sep 9th, 2007

Re: opening excel file in visual basic 6

Hi,

If you want to save you work just before xl.quit add:
xlwbook.saveas "c:\x.xls"

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 transparent the background of the image on PDA/Mobile Simulator (VB)

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Referencing a picture in Word 97

DaniWeb Message

Cancel Changes

User Name
Password