Преминете име на параметър от Outlook към Excel - excel-vba, outlook-vba, vba, excel

Мога ли да предам fileName към макроса на excelВикам в следване на рутината на Outlook? Точно сега подреда на saveReportstoDisk се стартира от правило за прогноза и мога да отворя моя Excel файл, току-що съм сигурен как да предам параметъра fileName от двата подхода на Outlook, към моя подпис Excel.

Sub saveReportstoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim fileName As String
Dim saveFolder As String
Dim i As Long
Dim dateFormat

saveFolder = "C:MyFolder"
For Each objAtt In itm.Attachments
fileName = objAtt.fileName
i = i + 1
dateFormat = Format(Now, "YYYY-mm-dd HH_mm_ss")
objAtt.SaveAsFile saveFolder & "" & fileName
Next objAtt

CallExcel

End Sub

Sub CallExcel()
Dim excelApp As Object

Set excelApp = CreateObject("Excel.Application")

excelApp.Visible = True

excelApp.Workbooks.Open "I:ImportGenerator.xlsm"

" run the macro
excelApp.Run "ThisWorkbook.PrepareReport"

excelApp.Quit

Set excelApp = Nothing

End Sub

Отговори:

Мисля, че виждам къде отиваш с това, но не търся да отворя sFIle от там. Трябва да предам sFile към моя макрос на excel. - Без турс преди 29 минути

Това, от което се нуждаете, е Как да се обадя на макроси на Microsoft Excel, които приемат параметри

Предполагам, че в момента вашият макрос изглежда така в Excel

Sub PrepareReport()

End Sub

Променете го

Sub PrepareReport(sFile As String)
"
"~~> Rest of the code
"
End Sub

И след това от Outlook предайте името на файла като

excelApp.Run "ThisWorkbook.PrepareReport", FileName