Чтение данных из закрытого файла Excel в Outlook

Question

Как мне прочитать данные из файла CLOSED excel в коллекции Outlook VBA?

Размер Sheet1 равен N-строкам на 3 столбца, а данные редко заполнены текстом и числами.

N не является фиксированным (изменяется при добавлении или удалении строк в конце листа 1).

Я хотел бы прочитать данные (включая пустые ячейки) из всего диапазона N x 3.

Общее количество коллекций VBA, очевидно, равно 3, скажем, ColumnA, ColumnB, ColumnC, поскольку в файле excel есть данные в столбцах A, B, C соответственно.

Файл Excel должен быть прочитаннеоткрытый (я видел, как это было сделано ранее).

Пожалуйста, предоставьте код VBA, если это возможно.

Answer 1

В редакторе Outlook VBA установите ссылку на Excel.

Tools | References
Tick Microsoft Excel Object Library

Добавить параметр Explict для новых модулей.Вы найдете это полезным.

Tools | Options | Editor tab
Tick Require Variable Declaration

.Вы можете прочитать данные Excel в Outlook, используя приведенный ниже код: Опция Явный

Sub links()

Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Dim ExcelFileName As String
Dim FilePath As String

Dim oMsg As mailItem

ExcelFileName = "C:\links.xlsx"

Set exWb = objExcel.Workbooks.Open(ExcelFileName)

FilePath = exWb.Sheets("Sheet1").Cells(1, 1)

On Error Resume Next
Set oMsg = ActiveInspector.currentItem
On Error GoTo 0
If oMsg Is Nothing Then
    Set oMsg = CreateItem(0)
    oMsg.Display
End If

' This adds to existing text. 
' Must display first to save a signature
'oMsg.body = Chr(34) & FilePath & Chr(34) & oMsg.body
'or
oMsg.HTMLBody = Chr(34) & FilePath & Chr(34) & oMsg.HTMLBody

ExitRoutine:
    Set oMsg = Nothing
    Set exWb = Nothing
    Set objExcel = Nothing

End Sub

Ссылка из:

Макрос Outlook 2007 для чтения файла Excel, содержащего пути к файлам, и создания гиперссылок