469,626 Members | 1,046 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,626 developers. It's quick & easy.

Visual Basic 6.0 and Excel

JW
I am looking for sample code to learn me about using excel from a visual
basic program.

I want to open a file, store code in a certain cell and save this again.

Who can help me

Regards
Jul 17 '05 #1
3 25984

"JW" <j@hetnet.nl> wrote in message news:c1**********@reader08.wxs.nl...
I am looking for sample code to learn me about using excel from a visual basic program.

I want to open a file, store code in a certain cell and save this again.
Who can help me

Regards


This example shows the basic operations.
Set a reference in you VB project to the Microsoft Excel Object Library.

Private Sub Command1_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet

Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Documents\MyFile.xls")
Set oWS = oWB.Worksheets("Sheet1")

oWS.Range("B1").Value = 23.5
oWS.Range("B2").Value = 17.6
oWS.Range("B3").Formula = "=B1+B2"

oWB.Save

oXL.Quit

End Sub


Jul 17 '05 #2
Hi

I have p[icked up this thread and have a student who is trying to enter data
to Excel from a VB form and this works a treat. Is there any way to get the
system to enter each instance into successive rows in the spreadsheet.

e.g. first use enters to B1,C1,D1 and the next to B2,C2,D2 etc. etc.

Regards

Terry

"Steve Gerrard" <no*************@comcast.net> wrote in message
news:Ib********************@comcast.com...

"JW" <j@hetnet.nl> wrote in message news:c1**********@reader08.wxs.nl...
I am looking for sample code to learn me about using excel from a

visual
basic program.

I want to open a file, store code in a certain cell and save this

again.

Who can help me

Regards


This example shows the basic operations.
Set a reference in you VB project to the Microsoft Excel Object Library.

Private Sub Command1_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet

Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Documents\MyFile.xls")
Set oWS = oWB.Worksheets("Sheet1")

oWS.Range("B1").Value = 23.5
oWS.Range("B2").Value = 17.6
oWS.Range("B3").Formula = "=B1+B2"

oWB.Save

oXL.Quit

End Sub

Jul 17 '05 #3
In the previous example, you could use

oWS.Cells(mRow, 2).Value = 23.5
oWS.Cells(mRow, 3).Value = 17.6
oWS.Cells(mRow, 4).Value = 19

where mRow is a variable in the module, and the 2, 3, and 4 are column
numbers (i.e. B, C, and D).

So, you could start with mRow = 1, then increment it each time the
procedure is called.

"terry.wright" <te***@wrico.karoo.co.uk> wrote in message
news:Rt********************@karoo.co.uk...
Hi

I have p[icked up this thread and have a student who is trying to enter data to Excel from a VB form and this works a treat. Is there any way to get the system to enter each instance into successive rows in the spreadsheet.

e.g. first use enters to B1,C1,D1 and the next to B2,C2,D2 etc. etc.

Regards

Terry

"Steve Gerrard" <no*************@comcast.net> wrote in message
news:Ib********************@comcast.com...

"JW" <j@hetnet.nl> wrote in message news:c1**********@reader08.wxs.nl...
I am looking for sample code to learn me about using excel from a

visual
basic program.

I want to open a file, store code in a certain cell and save this

again.

Who can help me

Regards


This example shows the basic operations.
Set a reference in you VB project to the Microsoft Excel Object Library.
Private Sub Command1_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet

Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Documents\MyFile.xls")
Set oWS = oWB.Worksheets("Sheet1")

oWS.Range("B1").Value = 23.5
oWS.Range("B2").Value = 17.6
oWS.Range("B3").Formula = "=B1+B2"

oWB.Save

oXL.Quit

End Sub


Jul 17 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by Rebecca | last post: by
5 posts views Thread by JimS | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.