powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TExcelApplication
2 сообщений из 27, страница 2 из 2
TExcelApplication
    #39589721
Соколинский Борис,

Да-да, спасибо! Уже нашел.

Не правильно:
Код: pascal
1.
                xlRange.Sort(Key1:=WS.Range[sAddress].Offset[6,0].Resize[Row+1,1],DataOption1:=xlSortTextAsNumbers);



Правильно:
Код: pascal
1.
2.
Rs:=WS.Range[sAddress].Offset[6,0].Resize[Row+1,1];
                xlRange.Sort(Key1:=Rs,DataOption1:=xlSortTextAsNumbers);
...
Рейтинг: 0 / 0
TExcelApplication
    #39591748
Wlr-l
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Михаил Евгеньевич,

Попробуйте так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
...
 var defaultLCID :LCID;
     XLapp       :TExcelApplication;
...
 defaultLCID:=LOCALE_USER_DEFAULT;
 try
   XLapp.Connect;
   XLapp.Workbooks.Add(Format('...',[..], defaultLCID);
...
 finally
   XLapp.Visible[defaultLCID]:=true;
   SetForegroundWindow(XLapp.Hwnd);
   XLapp.Disconnect;
 end;
...
...
Рейтинг: 0 / 0
2 сообщений из 27, страница 2 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TExcelApplication
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]