Здравствуйте побратимы.
Не могу понять что не так помогите плиз.
| Код |
var
Form1: TForm1;
SP, Date: string;
FileFormat, Encoding, i: integer;
WordA, ExA, Workbook, v: OLEVariant;
FileName: string;
*********
procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Execute;
SP:= OpenDialog1.FileName;
ExA.Workbooks.OpenText(FileName:= SP, Origin:= 1251, StartRow:= 1, DataType:= 1, TextQualifier:=1, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:='!', TrailingMinusNumbers:=True);
v:= ExA.Range('D10');
Edit2.Text:= v;
ExA.Quit;
end;
|
Аппликэйшен ругается по поводу ОЛЕ. Этот пример из ДРКБ. |