在Outlook中定义Excel变量(Define Excel variable in Outlook)

 我想从第3行开始遍历A列，并调试所有已填充的单元格的值。 
 
 我无法将变量定义为范围。 我认为问题在于我在Outlook VBA IDE中使用Excel VBA。 
 
Sub Test2()

    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlSheet As Object
    Dim enviro As String
    Dim strPath As String

    enviro = CStr(Environ("USERPROFILE"))

    'the path of the workbook
    strPath = enviro & "\Documents\test1.xlsx"

    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err <> 0 Then
        Application.StatusBar = "Please wait while Excel source is opened ... "
        Set xlApp = CreateObject("Excel.Application")
        bXStarted = True
    End If
    On Error GoTo 0

    'Open the workbook to input the data
    Set xlWB = xlApp.Workbooks.Open(strPath)
    Set xlSheet = xlWB.Sheets("Sheet1")
    ' Process the message record
    Dim rw As Range
    Dim RowCount As Integer

    RowCount = 3

    For Each rw In xlSheet.Rows
        Debug.Print xlSheet.Cells(rw.Row, 1).Value
    Exit For

    RowCount = RowCount + 1

Next rw

xlWB.Close 1
If bXStarted Then
    xlApp.Quit
End If
End Sub

I want to iterate through column A, starting from row 3, and debug.print the values of all the populated cells.
 
I can't define a variable as range. I think the problem is that I'm using Excel VBA in an Outlook VBA IDE.
 
Sub Test2()

    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlSheet As Object
    Dim enviro As String
    Dim strPath As String

    enviro = CStr(Environ("USERPROFILE"))

    'the path of the workbook
    strPath = enviro & "\Documents\test1.xlsx"

    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err <> 0 Then
        Application.StatusBar = "Please wait while Excel source is opened ... "
        Set xlApp = CreateObject("Excel.Application")
        bXStarted = True
    End If
    On Error GoTo 0

    'Open the workbook to input the data
    Set xlWB = xlApp.Workbooks.Open(strPath)
    Set xlSheet = xlWB.Sheets("Sheet1")
    ' Process the message record
    Dim rw As Range
    Dim RowCount As Integer

    RowCount = 3

    For Each rw In xlSheet.Rows
        Debug.Print xlSheet.Cells(rw.Row, 1).Value
    Exit For

    RowCount = RowCount + 1

Next rw

xlWB.Close 1
If bXStarted Then
    xlApp.Quit
End If
End Sub

原文：https://stackoverflow.com/questions/45561898