Dmytro Bozhik
4/20/2005 5:29:00 PM
Alexander "Phoenix" Boyko wrote:
>> aOIE VB: ?IAEIA?AAUON E MySQL ?AOAU ODBC E O?EOOIA O ?AOIAE.
>
> iO UOI N ?IO UAIAOEI ? ÷a, A EAE AUOO O o++? aOAAO IE ?IOA IIOIAIOII
> ?IO?OEIEIAOO OEUIUA OEOE?OU?
>
aOIE AUAOO MFC, OI ?IO EIA ?OEIAOA AEO?IOOA ? excel ?AOAU ODBC AOAE?AO
#include "afxwin.h"
#include "afxdb.h"
__stdcall WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
CDatabase cdbMyDB;
cdbMyDB.Open("Excel Files");
cdbMyDB.ExecuteSQL("CREATE TABLE mydata (FirstName TEXT,LastName TEXT)");
cdbMyDB.ExecuteSQL("INSERT INTO mydata (FirstName,LastName)
VALUES('Your FirstName','Your LastName');");
cdbMyDB.Close();
return 0;
}
aOOCIE ?OOO - EO?IIOUI?AOO COM EII?IIAIOU MSO
aIN UOICI ?IO?IIOUOEON AEOAEOE?IE ?OA?OIAAOOIOA #import
#import "C:\Program Files\Microsoft Office\Office\mso9.dll" rename("RGB","_RGB")
#import "C:\Program Files\Common Files\Microsoft
Shared\VBA\VBA6\vbe6ext.olb"
#import "C:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox","_DialogBox") rename("RGB","_RGB") rename("CopyFile","_CopyFile") rename("ReplaceText","_ReplaceText") exclude("IFont","IPicture")
a AAIAA EO?IIOUOE OCAIAOEOI?AIIUA EIAOOU-IAAOOEE
// Open workbook
Excel::_ApplicationPtr excel(_T("Excel.Application"));
Excel::WorkbooksPtr books = pExcel->Workbooks;
books->Open(_bstr_t("C:\\test.xls"));
// Get worksheet
Excel::_WorkbookPtr book = excel->Workbooks->Item[1];
Excel::_WorksheetPtr sheet = book->Worksheets->Item[1];
// Get the value of a certain cell
Excel::RangePtr range = sheet->Cells;
Excel::RangePtr cell = range->Item[1][1];
_variant_t value = cell->Value2;
// Set the value of a certain cell
cell = range->Item[1][2];
cell->Value2 = value;
// Save the Excel file
_variant_t vname, vnull, vformat, vamode, vconflict;
vname.SetString(_T("C:\\test2.xls"));
book->SaveAs(
vname // File name
,xlWorkbookNormal // File format
,vnull // Password
,vnull // Write-res password
,vnull // Read-only recommended
,vnull // Create backup
,xlNoChange // Access mode
// ,xlLocalSessionChanges // Conflict resolution
);
// Close everything
book->Close();
excel->Quit();
÷IAYAI, ?OI-OI OE?A UOICI.
Best regards, Dmytro Bozhik