Visual Basic 6

[eddd82]

How do u read the contents of cells from a spreadsheet and place it on a user form in VB6. I can do it in VBA but not in VB6. Any help appreciated. Thanks,

[Tom Schreiner]

So you're gonna jump right into the frying pan? Open MSDN and search "excel automation example"
If you need more help, just say so.
Tom

[eddd82]

I did use it with access with no problems before i found it easy enough its just i didnt understand how to link cells to the userforms!

[Tom Schreiner]

VB forms are quite a bit different then designers userforms. You can do alot more with 'em.
Did you find the code example in MSDN?
Tom

[eddd82]

Couldn't find MSDN where would that be found in it. Its only the working model if that means anything. Ill have a proper version tomorrow to mess around with

[Tom Schreiner]

Yeah Brian.
The working model has no help files.
I can post an example or two using VB to automate Excel. There's probably a million others on the web as well.

Here's the one example from MSDN

Sub Command1_Click ()



    Dim ExcelApp As Object

    Dim ExcelChart As Object

    Dim ChartTypeVal As Integer

    Dim i as Integer



    '-4100 is the value for the MS Excel constant xl3DColumn. Visual

    'Basic does not understand MS Excel constants, so the value must be

    'used instead.

    ChartTypeVal = -4100



    'Creates OLE object to MS Excel

    '  the registered OLE application name for MS Excel version 97 is

    '  excel.application.8

    Set ExcelApp = CreateObject("excel.application")



    'Sending VB Applications Edition commands to MS Excel via the new OLE

    'object to create a new workbook fill in numbers, create the chart, and

    'rotate the chart.

    ExcelApp.Visible = True

    ExcelApp.Workbooks.Add

    ExcelApp.Range("a1").Value = 3

    ExcelApp.Range("a2").Value = 2

    ExcelApp.Range("a3").Value = 1

    ExcelApp.Range("a1:a3").Select

    Set ExcelChart = ExcelApp.Charts.Add()

    ExcelChart.Type = ChartTypeVal

    For i = 30 To 180 Step 10

        ExcelChart.Rotation = i

    Next



    'You must use square brackets around the Close method of the Workbook

    'object because Close is also a reserved word in Visual Basic.

    'Using the square brackets tells Visual Basic that this is an

    'MS Excel command not a Visual Basic command.

    '  in VB4 remove the brackets [ ] around the word close.

    ExcelApp.ActiveWorkbook.[Close](False)

    ExcelApp.Quit

    Set ExcelChart = Nothing

    Set ExcelApp = Nothing

    End

End Sub

[ This Message was edited by: TsTom on 2002-05-13 10:22 ]