Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Вниз

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]

У меня так:

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);

Работает от Of 97 до Of XP

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c