MyTetra Share
Делитесь знаниями!
Запуск макроса в книге MS Excel (из библеотеки личных макросов)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 15 Приложения Внешние

Запуск макроса в книге MS Excel (из библеотеки личных макросов)

Private Sub TestExcelMacro()

Dim XLApp As Object

Dim s$

'es 03.03.2018

'Запуск макроса из книги MS Excel

'--------------------------------------------------------------------------

On Error GoTo TestExcelMacro_Err

Set XLApp = CreateObject("Excel.Application")


With XLApp


.Application.Visible = True

.UserControl = True


'Путь к библеотеке личных макросов (нужно только если макрос иммено ТАМ!)

s = Environ("UserProfile") & "\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.xlsb"

.Workbooks.Open s, True

'Открываем книжку

.Workbooks.Open "d:\Temp\MyFile.xlsx", False


.Run "PERSONAL.xlsb!mmm01Macro" 'Запуск макроса (mmm01Macro) из PERSONAL.xlsb

'Или так: .Run "mmm01Macro" - Запуск макроса (mmm01Macro) из MyFile.xlsm

.ActiveWorkbook.Close True

.Quit

End With



TestExcelMacro_Bye:

On Error Resume Next

Set XLApp = Nothing

Exit Sub


TestExcelMacro_Err:

MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in Sub: TestExcelMacro in module: [Имя Модуля]", vbCritical, "Error in Application: " & Err.Source

Err.Clear

Resume TestExcelMacro_Bye

End Sub



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования