Q&A

  • ole error 800a03ec 에러메세지 아시는 분~~~
디비그리드에 데이타를 엑셀로 보내는 화일을
만들고 있습니다..

두개의 화일을 만들고 있는데요...

하나의 화일은 잘 되거든요?
근데 두번째것은 에러가 생깁니다.

begin
XTitle := VarArrayCreate([1, FieldCount], VarVariant);
XArr := VarArrayCreate([1, FieldCount], VarVariant);
try
XL := CreateOLEobject('Excel.Application');
except
MessageDlg('Excel이 설치되어 있지 않습니다.',MtWarning, [mbok], 0);
Exit;
end;
XL.WorkBooks.Add;
XL.Visible := True;
i := 1;
k := 1;
while i <= FieldCount do begin
XTitle[i] := Fields[i-1].FieldName;
Inc(i);
end;
XL.Range['A1', CHR(64 + FieldCount) + '1'].Value := XTitle;  //이부분요
First;
                

도무지 알길이 없어서요..
부탁 드립니다...
0  COMMENTS