Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
3-10098
Spawn
2003-07-13 07:38
2003.08.04
Не могу вносить данные в НД


14-10449
KaPaT
2003-07-18 13:29
2003.08.04
Кто-нибудь сталкиваля с этим бредом???


14-10411
tovSuhov
2003-07-17 13:36
2003.08.04
Вопрос немного не из той степи...


6-10324
BoxTer
2003-05-27 13:04
2003.08.04
Перехват сообщений, посланных Net send или WinPopup..


3-10135
Nick
2003-07-15 09:46
2003.08.04
Работа с TTable...