Оформление в Excel, непонятные символы

[dsbv]

Заполняю документ Exel из ListView и в Exel появляются какие то непонятные символы. Не могу понять как с этим бороться.
Строки такие:
ListView2.Items.Item[i].Caption=ключ_рожково-накидной,_24мм,_матовый

пробую вырезать

ListView.Items.Item[i].Caption:=StringReplace(ListView.Items.Item[i].Caption, '_', ' ', [rfReplaceAll, rfIgnoreCase]);

В Exel все равно печатаются какие то квадратики

[Serge_Bliznykov]

Сообщение от dsbv

В Exel все равно печатаются какие то квадратики

я заголовок темы исправил. Может быть, зря? Exel или всё же - Excel ?

p.s.тут явно с кодировкой беда. И нет кода, как и что Вы выводите собственно в Excel

[dsbv]

Сообщение от Serge_Bliznykov

я заголовок темы исправил. Может быть, зря? Exel или всё же - Excel ?

p.s.тут явно с кодировкой беда. И нет кода, как и что Вы выводите собственно в Excel

Опечатался Excel
Вот код вывода

var
  exApp, exBook, exSh, exRng : OleVariant;
  Colum:Variant;
  i_str:Integer;
//////////////////////


    try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel.', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  exApp.Application.EnableEvents := false;
  exApp.Visible := True;         
  exBook := exApp.WorkBooks.Add; 
  exSh := exBook.Worksheets[1];
           exSh.Cells[3, 1].Value := 'наименование';
           exSh.Cells[3, 2].Value := 'ед.изм.';
           exSh.Cells[3, 3].Value := 'кол-во';
           exSh.Cells[3, 4].Value := 'цена';
           exSh.Cells[3, 5].Value := 'сумма';
for i := 0 to ListView2.Items.Count - 1 do 
 begin
    ListView2.Items.Item[i].Caption:=StringReplace(ListView2.Items.Item[i].Caption, '_', ' ', [rfReplaceAll, rfIgnoreCase]);
    ListView2.Items.Item[i].SubItems.Strings[0]:=StringReplace(ListView2.Items.Item[i].SubItems.Strings[0], '_', ' ', [rfReplaceAll, rfIgnoreCase]);
    i_str:=i+3;
    exSh.Cells[i_str+1, 1].Value := ListView2.Items.Item[i].Caption;//наименование
    exSh.Cells[i_str+1, 2].Value := ListView2.Items.Item[i].SubItems.Strings[3];//ед.изм.
    exSh.Cells[i_str+1, 3].Value := ListView2.Items.Item[i].SubItems.Strings[2];// кол-во
    exSh.Cells[i_str+1, 4].Value := ListView2.Items.Item[i].SubItems.Strings[1];// цена
    exSh.Cells[i_str+1, 5].Value := ListView2.Items.Item[i].SubItems.Strings[4];// сумма
 end;
 exRng:=exApp.ActiveWorkBook.ActiveSheet.Range[exSh.Cells.Item[3, 1], exSh.Cells.Item[i_str+1,5]];
 // оформление
  exApp.ActiveWorkBook.ActiveSheet.PageSetup.LeftMargin := 30;
  exApp.ActiveWorkBook.ActiveSheet.PageSetup.RightMargin := 10;
  exApp.ActiveWorkBook.ActiveSheet.PageSetup.TopMargin := 20;
  exApp.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleColumns := '$A:$I';
  exApp.WorkBooks[1].WorkSheets[1].PageSetup.PrintTitleRows := '$2:$2'; // Печатать шапку таблицы на каждом листе

  exRng.Rows[1].Font.Bold := True;
  exRng.Borders.LineStyle := 1; 
  exRng.Borders.Weight := 2; 
  exRng.Columns.HorizontalAlignment := 3;
  exRng.Columns.VerticalAlignment:= 2;
 
 exRng := Unassigned;
 exSh := Unassigned;
 exApp := Unassigned;

[dsbv]

Нашел причину методом тыка, удалил из строки символы #13#10 и все пришло в норму. Не понятно от куда взялся перевод каретки в строке, ListView чтоль сам косячит?
Целый день потраченного времени(((

[leoparrd]

А зачем собственно огород городить. Не проще было бы составить файл таблицы а потом открыть его в Excel?
PS
Кстати про название. Excel переводится ка расширенная ячейка.

[dsbv]

Сообщение от leoparrd

А зачем собственно огород городить. Не проще было бы составить файл таблицы а потом открыть его в Excel?
PS
Кстати про название. Excel переводится ка расширенная ячейка.

Что Вы имели ввиду под "составить файл таблицы" ?
Мне нужно, чтоб было видно какими данными заполняется ListView. От этого и плясал

[leoparrd]

Я имел в виду что вы работаете с объектной моделью excel через Delphi
И предложил ликвидировать эту модель, как ненужную.
Вместо этого составить из данных вашего списка, файл, который откроется в Excel в виде готовой таблицы, ну а сам документ дооформить простейшим макросом.
В этом способе есть свои преимущества, о которых говорить трудно, не зная что вы там делаете и для чего это вообще нужно. Я вообще противник навороченных компонентов и если мне нужно составить документ для офисных систем или прочих прог, я попросту пишу сам документ и открываю его, где нужно.