Глюки при экспорте в Excel

← →
Дмитрий Иванов © (2002-08-25 03:28) [0]

Вот так делаю экспорт:

procedure TAlphForm.Export(Sender: TObject);
var FIXLSApp:IxlApplication;IWorkbook:IxlWorkbook;Iworksheet:IxlWorksheet;
xlDDE: TxlDDEClient;i: integer;IR1, IR2, IRange: IxlRange;Buff,FileName: string;
begin
...

FIXLSApp := CreateComObject(Excel8TLB.CLASS_Application_) as Excel8TLB._Application;
FIXLSApp.Application_.EnableEvents:=False; IWorkbook := FIXLSApp.Workbooks.Add(ExtractFilePath(ParamStr(0)) + "data\1.xls", LOCALE_USER_DEFAULT);
Iworksheet:=IWorkbook.Worksheets.Item["InformUnion"] as Excel8TLB._worksheet;

try
xlDDE := TxlDDEClient.Create(Self);
if xlDDE.SetLink("EXCEL", IworkSheet.Name) then
begin
Buff:="";
j:=0;
for i := Low(Mas) to High(Mas) do
begin
//Buff := "Название предприятия"+#9+"Адрес"+#9+"Телефон"+#9+"Факс"+#9+"E-mail"+#9+"URL"+#9+#10;
Buff := Buff + Mas[i].Name+#9+Mas[i].Adress+#9+Mas[i].Tel+#9+Mas[i].Fax+#9+Mas[i].Email+#9+Mas[i].URL+#9+#10;
IDispatch(IR1) := IworkSheet.Cells.Item[2, 1];//левая верхняя ячейка области
IDispatch(IR2) := IworkSheet.Cells.Item[High(Mas)+2,6];//правая нижняя ячейка области
IRange := IworkSheet.Range[IR1, IR2];
xlDDE.xlPokeData(OLEVariant(IRange).Address[ReferenceStyle:=xlR1C1],PChar(Buff));
finally
xlDDE.CloseLink;
xlDDE.Free;
end;//try
IWorkbook.SaveAs(FileName,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlExclusive,
EmptyParam, false, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);

FIXLSApp.Quit;
finally
Iworksheet:=nil;IworkBook:=nil;FIXLSApp:=nil;
end;//try
end;

Глюк: некоторые номера телефонов и факсов, неправильно отображены в xls файле. Например, был телефон 4-24-80, после экспорта стал 4/24/1980,а похожий 4-54-56 экспортируется как 4-54-56.
Как лечить я знаю, меня интересует: почему одни телефоны нормально экспортируются, а другие нет?

← →
Дмитрий Иванов © (2002-08-25 03:32) [1]

Неужели Excel думает, что это дата? и потом сам переводит в формат дыты?...

Глюки при экспорте в Excel Найти похожие ветки