VPF::delphi+excel - Форум программистов

bushkurta

Дата 30.5.2013, 05:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 4.5.2013

Репутация: нет
Всего: нет

как применить макрос из одного файла на другой файл excel с помощью delphhi
суть проблемы такая:
1.подключаю невизуально файл excel
2 по нажатию кнопки (поиск) запускается второй excel и должен запустить макрос и применить на 1документ.
но понажатию кнопки выходит сообщение что (макрос удален) а хотя он присутствует в книге.
помогите что можно сделать(или как перенести код макроса в сам код delphi.
вот код макроса и на всякий случай программа

Код


Sub q()
Application.ScreenUpdating = False
Range("A1:J100").Select
Range(Selection, Selection.End(xlDown)).Select
irow = ActiveSheet.UsedRange.Rows.Count
While irow > 0
Cells(irow, 2).Select
selection_one = Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range(Selection, Selection.End(xlToRight)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
icolumn = ActiveSheet.UsedRange.Columns.Count
For i = icolumn To 2 Step -1
If ActiveSheet.Cells(irow, i).Value = ActiveSheet.Cells(irow, i - 1).Value _
Then
ActiveSheet.Cells(irow, i).Delete Shift:=xlToLeft
End If
Next i
irow = irow - 1
Wend
Application.ScreenUpdating = True
End Sub

помогите капец как нужно завтра защита отчета.))

Присоединённый файл ( Кол-во скачиваний: 1 )

progra.rar 303,23 Kb

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »