Microsoft Office 2000

← →
edit_box (2003-07-19 12:09) [0]

Народ, помогите, как записать информацию в Excel.
Пробывал записывать в Excel 97, получается, а в 2000 не хочет.
Наверно Microsoft сделало какието изменения в Ole.
Если кто работал, то помогите.

А засовываю данные так:

var n : OleVariant;
q:string;
begin
q:=Table1["name"]....;
n:="d:\jjj.xls";
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkBook);
ExcelApplication1.Cells.Item[i,j].Value:=q;
ExcelWorkBook1.Save;
ExcelWorkBook1.Close;

← →
Palladin (2003-07-19 12:36) [1]

> Наверно Microsoft сделало какието изменения в Ole.

:)
А если у тебя стиральная машина работает, а утюг нет, это значит электричества нет?

var xlApp:OleVariant; xlDDE:TDdeClientConv; Buffer:string; begin xlApp:=CreateOleObject("Excel.Application"); xlApp.WorkBooks.Add; xlApp.Sheets[1].Name:="Отчет типа"; Buffer:="1,1"#9"2,1"#13#10"1,2"#9"2,2"; xlDDE:=TDDEClientConv.Create(nil); xlDDE.SetLink("EXCEL", "Отчет типа"); xlDDE.PokeData(OLEVariant(xlApp.Range["A1","B2"]).Address[ReferenceStyle:=xlR1C1], pchar(Buffer)); xlDDE.free; end;

Excel закрыть то сам сможешь?
xlApp.Quit;

← →
AbrosimovA (2003-07-21 08:44) [2]

Я думаю, вместо ExcelApplication1.Cells.Item[i,j].Value:=q
надо ExcelWorkSheet1.Cells.Item[i,j].Value:=q ,
где ExcelWorkSheet1:=ExcelWorkBook1.WorkSheets[1]

← →
FlyingHome (2003-07-21 12:45) [3]

У меня так:

var WrkBk, WrkSht, AxcApp : variant;

......
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey("\Excel.Application\CurVer", false) then begin
ExcVer := Reg.ReadString("");
Reg.CloseKey; end;
Reg.RootKey := HKEY_LOCAL_MACHINE;
finally
Reg.Free;
end;

.....
ExcApp := CreateOleObject(ExcVer);
ExcApp.Visible := False;
WrkBk := ExcApp.Workbooks.Open(AppPath + "\StencilMonth.xls");
WrkSht := WrkBk.ActiveSheet;

.....

WrkSht.Cells[m + 5, 1] := m;
WrkSht.Cells[m + 5, 3] := Recordset.Fields.Item[0].Value;
WrkSht.Cells[m + 5, 4] := uv;

.....

WrkBk.SaveAs(Form1.SaveDlg.FileName);
WrkBk.Close;
ExcApp.Quit;
MessageBox(FrmHandle, PChar("Файл " + Form1.SaveDlg.FileName + chr(10) +
"был успешно сгенерирован и сохранен." ),
PChar(AppName), MB_OK + MB_ICONINFORMATION + MB_SETFOREGROUND);

← →
FlyingHome (2003-07-21 12:46) [4]

Microsoft Office 2000 Найти похожие ветки