|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Цитата:
Последний раз редактировалось brookhut, 19.04.2018 в 12:59. |
#17
|
||||
|
||||
Они открываются смотря какая выбрана сортировка в проводнике сиречь диалоге выбора файлов, могут по-имени (в алфавитном порядке), могут по дате создания или размеру etc. но к сожалению, обед завершился, пора под клиентские авто лезть, но глядишь, к вечеру чегонить и соберётся по вашей теме, удачи!
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#18
|
||||
|
||||
Вот про цикл немного
Код:
procedure TForm1.Button3Click(Sender: TObject); var i,j: integer; exApp,exBook,exBook2,exSh,exSh2: Variant; begin if not OpenDialog1.Execute then exit; if not OpenDialog2.Execute then exit; i:= OpenDialog1.Files.Count; j:= OpenDialog2.Files.Count; if i-j < 0 then j:= i; exApp:= CreateOleObject('Excel.Application'); exApp.Visible:= false; for i := 0 to j-1 do begin Application.ProcessMessages; exBook:= exApp.Workbooks.Open(OpenDialog1.Files[i]); exSh:= exApp.ActiveWorkbook.WorkSheets[1]; exBook2:= exApp.Workbooks.Open(OpenDialog2.Files[i]); exSh2:= exApp.ActiveWorkbook.WorkSheets[1]; exSh2.Move(EmptyParam, exBook.WorkSheets[1]); exBook.Save; exBook:= UnAssigned; exBook2:= UnAssigned; end; {for} exApp.Quit; exApp:= Unassigned; ShowMessage('Выполнено'); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
brookhut (19.04.2018)
|
#19
|
||||
|
||||
Цитата:
Код:
exBook:= UnAssigned; Последний раз редактировалось LIONSMILE, 19.04.2018 в 18:24. |
#20
|
|||
|
|||
Цитата:
|
#21
|
|||
|
|||
Цитата:
|