excel hücreleri ile ilgili

#include xlconstants.h

Local oExcel

oExcel = Createobject("Excel.Application")

With oExcel

    .WorkBooks.Add

    .Visible = .T.

    VFP2Excel(_samples+'data\testdata.dbc',;

        'select'+;

        '    CAST(TRIM(Company) as varchar(50)) as Company,'+;

        '    CAST(TRIM(Contact) as varchar(50)) as Contact,'+;

        '    MaxOrdAmt'+;

        '  from customer',;

        .ActiveWorkBook.ActiveSheet.Range('A1'))

    With .ActiveWorkBook.ActiveSheet

        .UsedRange.Columns.Autofit() && kolonlari otomatik genislet

        * Sola, saga, ortaya hizala

        .UsedRange.Columns(1).HorizontalAlignment = xlLeft

        .UsedRange.Columns(2).HorizontalAlignment = xlCenter

        .UsedRange.Columns(3).HorizontalAlignment = xlRight

        * Ilk satira Kenar ciz

        WITH .UsedRange.Rows(1).Borders

            .Weight = xlMedium

            .LineStyle = xlContinuous

        endwith

    Endwith

Endwith

 

Function VFP2Excel

    Lparameters tcDataSource, tcSQL, toRange

    Local loConn As AdoDB.Connection, ;

        loRS As AdoDB.Recordset,;

        ix

    loConn = Createobject("Adodb.connection")

    loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource

    loConn.Open()

    loRS = loConn.Execute(m.tcSQL)

 

    For ix=1 To loRS.Fields.Count

        toRange.Offset(0,m.ix-1).Value = Proper(loRS.Fields(m.ix-1).Name)

        toRange.Offset(0,m.ix-1).Font.Bold = .T.

    Endfor

    toRange.Offset(1,0).CopyFromRecordSet( loRS )

    loRS.Close

    loConn.Close

Endfunc

Local loExcel As "Excel.Application"

m.loExcel = Createobject("Excel.Application")

With m.loExcel As "Excel.Application"

    .WorkBooks.Open("C:\Deneme.xls")

    With .ActiveWorkbook

        .ActiveSheet.Range("A2").Value = "Deneme 123"

        .Save

        .Close

    EndWith

EndWith

m.loExcel = Null