Вызов макроса Excel из Outlook 16

Я сталкиваюсь с некоторыми головными болями, чтобы вызвать макрос Excel, содержащийся в моем личном. Xlsm, пожалуйста, помогите мне.

Я запускаю Outlook 2016. Попытка вызывать макросы из personal.xlsm при открытии Outlook. Ключевой вопрос (я думаю, основываясь на других решениях) – это правильная библиотека объектов Excel Data, которая не включена, но я включил то, что кажется релевантным (без успеха).

Включает

Программа просто запускается по строке без вызова макроса. Я поместил приглашение MsgBox в начале макроса Excel, чтобы проверить, запускается ли он каждый раз.

Выдержка из кода ниже; Я удаляю код, не имеющий отношения к этой проблеме.

В прогнозе: ThisSession

Private Sub Application_Startup() Dim macroFile As String, networkFilePath As String, sourceFile as String Dim DestFile As String: DestFile = "FolderTree.csv" Dim SourceFolder As String: SourceFolder = "[NetworkLocation]" Dim foldersRequired As String Dim objShell As Object Dim objFile As Object Dim fso As FileSystemObject: Set fso = CreateObject("Scripting.FileSystemObject") Dim xlApp As Object: Set xlApp = CreateObject("Excel.Application") 'open the excel csv source file Dim xlWkb As Object, xlSht As Object On Error Resume Next ''get the core xlsb macros file - saves updating the individual user outlook macroFile = userProfilePath & "\Personal.xlsb" 'This works fine & opens the file with no issues. Set xlWkb = xlApp.Workbooks.Open(macroFile) Set xlSht = xlWkb.Worksheets(1) xlApp.Application.Visible = True '' extract the users profile path Set objShell = CreateObject("WScript.Shell") userProfilePath = objShell.ExpandEnvironmentStrings("%UserProfile%") & "[DataFolder]" sourceFile = userProfilePath & "\" & DestFile xlApp.Workbooks("Personal.xlsb").Activate xlApp.Workbooks.Open FileName:=(sourceFile) '' This opens fine If Not xlxApp Is Nothing Then '' None of the below work xlWkb.Application.Run "Module1.Clean_CSV(sourceFile, userProfilePath)" '' This doesn't work xlWkb.Application.Run "Personal.xlsb!Module1.Clean_CSV(sourceFile, userProfilePath)" '' This doesn't work xlWkb.Application.Run "Personal.xlsb!Clean_CSV(sourceFile, userProfilePath)" '' This doesn't work End If xlApp.Close xlApp.Quit '' I set all Variables & Objects to Nothing & then End Sub 

Скриншот тестового макроса Excel

Interesting Posts

Нулевые значения, считывающие данные из Excel с использованием ADO

Apache POI для Java: поиск текста вычеркивания в ячейке

VBA Excel – метод автозаполнения вне класса

EXCEL: сравнить ячейки в одном столбце и вычислить значение

Excel Countif Дата в столбце A больше, чем столбец B

Excel get_Range отсутствует, когда сборка interop встроена в .NET 4.0

Apache POI и Auto Row Height с объединенными ячейками

Excel – нужно знать, как это зацикливать

объединить два диапазона (одна ячейка и диапазон) из нескольких книг в рабочий лист

Как извлечь общую строку (шаблон) символа и цифр в VBA?

Использование кода VBA для копирования определенного значения из ячейки, когда раскрывающийся список изменяет это значение

Различные защиты ячеек в том же рабочем листе

Может ли панды неявно определять заголовок на основе значения, а не строки?

Ссылка на раскрывающийся список Значение на другом листе

проверка значений

Давайте будем гением компьютера.