static void BankDataImport(Args _args)
{
    SysExcelApplication                 SysExcelApplication;
    SysExcelWorksheet                   SysExcelWorksheet;
    SysExcelWorksheets                  SysExcelWorksheets;
    SysExcelWorkbooks                   SysExcelWorkbooks;
    SysExcelWorkbook                    SysExcelWorkbook;
    SysExcelRange                       SysExcelRange;
    SysExcelCell                        SysExcelCell;
    SysExcelCells                       SysExcelCells;

    COMVariant                          COMVariant1;
    int i;
    str MyStr;
    container c;
    str s,j,k;
    date d;
     ;
    #excel

    sysExcelApplication                 =
SysExcelApplication::construct();
    //sysExcelApplication.visible(true);
    sysExcelWorkbooks                   =
sysExcelApplication.workbooks();
    // for filename
    COMVariant1                         = new COMVariant();
    COMVariant1.bStr("C:\\Documents and Settings\\cshowell.000\\My
Documents\\JBGL\\Customisation\\BankRecon\\ncbwk1.xls");
    sysExcelWorkbook                    = sysExcelWorkbooks.add
(COMVariant1);
    SysExcelWorksheets                  = sysExcelWorkbook.worksheets
();
    SysExcelWorksheet                   =
SysExcelWorksheets.itemFromNum(1);
    SysExcelRange                       = SysExcelWorksheet.cells
().range(#ExcelTotalRange);
    i = 1;

    while (i <=3)
    {
        SysExcelCell = SysExcelWorksheet.cells().item(i,5);
        MyStr = SysExcelCell.value().bStr();
        c = conins(c, i, MyStr);
        i = i + 1;
      //SysExcelCell.comObject();

    }

    s = conpeek(c,1);
    j = conpeek(c,2);
    k = conpeek(c,3);

    print s,' ', j, ' ', k;
    pause;

}
--- In [EMAIL PROTECTED], "Ing. Gonzalo Bastos S."
<[EMAIL PROTECTED]> wrote:
> That's a good example, but you don�t have code for open and working
with an existing excel worksheet ??
>
> Regards
>   ----- Original Message -----
>   From: k_otickashka
>   To: [EMAIL PROTECTED]
>   Sent: Wednesday, April 21, 2004 2:24 PM
>   Subject: [development-axapta] Re: COM Excel.Application
>
>
>       Custtable ct;
>       int row = 1;
>       COM excelApp, workbooks, excelCell, excelWorkSheet, workbook;
>
>       ;
>           excelApp = new COM("Excel.Application");
>
>           if (excelApp)
>           {
>               workbooks = excelApp.Workbooks();
>               workbooks.add();
>               excelWorkSheet = excelApp.ActiveSheet();
>
>               while select ct
>               {
>                   excelCell = excelWorkSheet.Range(StrFmt("A%1",
row));
>                   excelCell.value(StrFmt("%1",ct.AccountNum));
>                   excelCell = excelWorkSheet.Range(StrFmt("B%1",
row));
>                   excelCell.value(ct.Name);
>                   row++;
>               }
>
>           }
>
>           workbook = excelApp.ActiveWorkbook();
>           workbook.SaveAs("c:\\temp\\test.xls");
>           workbooks.close();
>
>
>
>   --- In [EMAIL PROTECTED], "gonzalo_edo"
<[EMAIL PROTECTED]>
>   wrote:
>   > Does anybody know where can I find any documentation about
using
>   > Excel.Application COM
>   >
>   > Or anybody has an example to connect Excel with Axapta
>   >
>   > Regards
>
>
>
> --------------------------------------------------------------------
----------
>   Yahoo! Groups Links
>
>     a.. To visit your group on the web, go to:
>     http://groups.yahoo.com/group/development-axapta/
>      
>     b.. To unsubscribe from this group, send an email to:
>     [EMAIL PROTECTED]
>      
>     c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of
Service.



Yahoo! Groups Links

Reply via email to