Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

из Delphi в Excel

olookin © (2003-01-31 17:35:00)
Здравствуйте.
Как передать из Делфи в Эксел строку с русскими символами?

Заранее спасибо.

olookin (2003-02-01 14:55:00) [1]
To TUX

не помогает я уже пробовал. Похоже в Excel либо другая кодировка либо еще что то

Tux (2003-02-01 14:37:00) [2]
Млин... WideString ом строки передавай, юникод ведь как-никак...

olookin (2003-02-01 13:55:00) [3]
Пожалуйста, ответьте.... Кто знает ответ, конечно

olookin (2003-02-01 12:39:00) [4]
to Crash/
Спасибо за развернутый пример, но я уже реализовал взаимодействие с Excel.

Для всех...

Я ошибался, считая что русские символы вообще не передаются. Они передаются (как и все остальные), но в количестве не более чем 255 символов в строке. У меня же строка содержит 2048 символов. В итоге при передаче длинной строки в TextFrame она то ли обрезается, то ли еще что то. В общем, в отличие от коротких, длинная строка не отображается в TextFrame. Как быть? Заранее спасибо.

Cr@sh (2003-01-31 21:07:00) [5]
procedure TForm1.BitBtnToExcelOnClick(Sender: TObject);
var
WorkBk : _WorkBook; // определяем WorkBook
WorkSheet : _WorkSheet; // определяем WorkSheet
I, J, K, R, C : Integer;
IIndex : OleVariant;
TabGrid : Variant;
begin
if GenericStringGrid.Cells[0,1] <> "" then
begin
IIndex := 1;
R := GenericStringGrid.RowCount;
C := GenericStringGrid.ColCount;
// Создаём массив-матрицу
TabGrid := VarArrayCreate([0,(R - 1),0,(C - 1)],VarOleStr);
I := 0;
// Определяем цикл для заполнения массива-матрицы
repeat
for J := 0 to (C - 1) do
TabGrid[I,J] := GenericStringGrid.Cells[J,I];
Inc(I,1);
until
I > (R - 1);

// Соединяемся с сервером TExcelApplication
XLApp.Connect;
// Добавляем WorkBooks в ExcelApplication
XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
// Выбираем первую WorkBook
WorkBk := XLApp.WorkBooks.Item[IIndex];
// Определяем первый WorkSheet
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
// Сопоставляем Delphi массив-матрицу с матрицей в WorkSheet
Worksheet.Range["A1",Worksheet.Cells.Item[R,C]].Value := TabGrid;
// Заполняем свойства WorkSheet
WorkSheet.Name := "Customers";
Worksheet.Columns.Font.Bold := True;
Worksheet.Columns.HorizontalAlignment := xlRight;
WorkSheet.Columns.ColumnWidth := 14;
// Заполняем всю первую колонку
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].Font.Color := clBlue;
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].HorizontalAlignment := xlHAlignLeft;
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].ColumnWidth := 31;
// Показываем Excel
XLApp.Visible[0] := True;
// Разрываем связь с сервером
XLApp.Disconnect;
// Unassign the Delphi Variant Matrix
TabGrid := Unassigned;
end;
end;

Chubais (2003-01-31 18:46:00) [6]

> Не передается.

как это понимать? чо - совсем ничо не передается?

olookin (2003-01-31 18:07:00) [7]
to ef2000 нет не так абсолютно. Не передается.

ef2000 (2003-01-31 17:39:00) [8]
так же как с латинскими или что-то не так?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »