如何使用 Outlook VBA 獲取工作表對象？

Question

我試圖從我的 Excel 工作表中的第 1 列中獲取所有單元格。

我的代碼拋出錯誤。

“所需對象”

Public Sub emailList()
    'Setting up the Excel variables.
    Dim olApp As Object
    Dim olMailItm As Object
    Dim iCounter As Integer
    Dim Dest As Variant
    Dim SDest As String
       
    'Create the Outlook application and the empty email.
    Set olApp = CreateObject("Outlook.Application")
    Set olMailItm = olApp.CreateItem(0)
       
    'Using the email, add multiple recipients, using a list of addresses in column A.
    With olMailItm
        SDest = ""
        For iCounter = 1 To WorksheetFunction.CountA(Workbooks("Book1.xls").Sheets(1).Columns(1))
            If SDest = "" Then
                SDest = Range.Cells(iCounter, 1).Value
            Else
                SDest = SDest & ";" & Range.Cells(iCounter, 1).Value
            End If
        Next iCounter
           
        'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
        .BCC = SDest
        .Subject = "FYI"
        .Body = ActiveSheet.TextBoxes(1).Text
        .Send
    End With
       
    'Clean up the Outlook application.
    Set olMailItm = Nothing
    Set olApp = Nothing
End Sub

如何獲取工作表對象？

我試過

Workbooks("Book1.xls").Sheet1.Columns(1)

但這也會引發錯誤。

我在 Outlook 中運行代碼並打開一個 Excel 窗口。

Answer 1

您將需要添加對 Excel 對象庫的引用，這是在 VBA 編輯器中的工具/添加引用下完成的。 僅僅打開 Excel 是不夠的。