FiveTech Support Forums

Dim Spread As OWC11.Spreadsheet

Dim stYears(0 To 2) As String
Dim iCounter As Integer

stYears(0) = "1996"
stYears(1) = "1997"
stYears(2) = "1998"

Set Spread = Me.Spreadsheet1

With Spread

    .Height = 3540

    .Width = 4695

    With .ActiveWindow

    'Set the caption of the actual columnheadings.

        .ColumnHeadings(1).Caption = "Country "

        .ColumnHeadings(2).Caption = "Freight "

        .ColumnHeadings(3).Caption = "Shipments "

        'Set the caption of the actual rowheadings.

        For iCounter = 0 To 2

            .RowHeadings(iCounter + 1).Caption = stYears(iCounter)

            .RowHeadings(iCounter + 4).Caption = stYears(iCounter)

        Next iCounter

        'Limit the viewable part of the worksheet.

        .ViewableRange = "A1 : D6"

    End With

End With

Set Spread = Nothing

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oOwc, oColumnHeadings

    DEFINE WINDOW oWnd

    @ 0, 0 ACTIVEX oOwc;
           PROGID "OWC.Spreadsheet"

    oColumnHeadings = oOwc:GetProp( "ColumnHeadings" )

    // This is NIL and I don't know why:

//    ? oColumnHeadings

    oWnd:oClient = oOwc

    ACTIVATE WINDOW oWnd

    RETURN NIL

#include "Fivewin.ch" 

FUNCTION MAIN() 

   LOCAL oWnd, oOwc, oActiveWindow, nCounter

   DEFINE WINDOW oWnd 

   @ 0, 0 ACTIVEX oOwc; 
           PROGID "OWC11.Spreadsheet" 

   oActiveWindow = oOwc:GetProp( "ActiveWindow" )

   OleSetProperty( oActiveWindow, "ColumnHeadings", 1, "Country" )
   OleSetProperty( oActiveWindow, "ColumnHeadings", 2, "Freight" )
   OleSetProperty( oActiveWindow, "ColumnHeadings", 3, "Shipments" )

   for nCounter = 0 To 5 
      OleSetProperty( oActiveWindow, "RowHeadings", nCounter + 1, Str( 2000 + nCounter ) )    
   next   

   OleSetProperty( oActiveWindow, "ViewableRange", "A1:D6" )

   oWnd:oClient = oOwc
    
   ACTIVATE WINDOW oWnd

RETURN NIL

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oOwc, hSheet, hActiveWindow

    DEFINE WINDOW oWnd

    @ 0, 0 ACTIVEX oOwc;
           PROGID "OWC.Spreadsheet"

    hSheet = oOwc:GetProp( "ActiveSheet" )

    OLESETPROPERTY( hSheet, "Cells", 1, 1, "This is a test" )

    oWnd:oClient = oOwc

    ACTIVATE WINDOW oWnd

    RETURN NIL