对象全局的方法（一切）失败答案

【问题标题】：Method (everything) of object Global failed对象全局的方法（一切）失败
【发布时间】：2014-12-09 10:24:02
【问题描述】：

我有一个宏，它获取电子邮件的正文，将其拆分为一个数组并将其放入 excel 中。然后它使用冒号将行拆分为 [label] 和 [data]。

由于某种原因，它已停止工作。我得到了一些很好的帮助here，但它现在在第二个子例程中失败了，我无法解决这个错误。我确信这很简单，可能与从 Outlook 运行或范围定义不正确有关。使用行、单元格、范围对象等的所有内容都会出现此错误。

确切的错误是Runtime 1004 error. Method [cells, rows] of object Global failed

我用注释来标记问题的开始点：

Private oXLApp As Object, oXLWb As Object, oXLWs As Object
Sub Thermo_to_excel()
    Dim myOlApp As Object, mynamespace As Object
    Dim ThermoMail As Object
    Dim msgText, delimtedMessage, Delim1 As String



    Set myOlApp = Outlook.Application
    Set mynamespace = myOlApp.GetNamespace("mapi")
    Set ThermoMail = Application.ActiveInspector.CurrentItem

    delimtedMessage = ThermoMail.Body

    '~~> Establish an EXCEL application object
    On Error Resume Next
    Set oXLApp = GetObject(, "Excel.Application")

    '~~> If not found then create new instance
    If Err.Number <> 0 Then
        Set oXLApp = CreateObject("Excel.Application")
    End If
    Err.Clear
    On Error GoTo 0

    Set oXLWb = oXLApp.Workbooks.Add
    Set oXLWs = oXLWb.Sheets("Sheet1")

    'Truncated [Array definition goes here]

    With oXLWs
        .Range(.Cells(1, 1), .Cells(lastRow, 1)).Value = _
        oXLApp.WorksheetFunction.Transpose(messageArray)
    End With

    Call splitAtColons
    ThermoMail.Close (olDiscard)
End Sub

Sub splitAtColons()

Dim Roows As Integer
'PROBLEMS start here now
Roows = Cells(oXLWs.Rows.Count & "," & oXLWs.ActiveCell.Column).End(xlUp).Row 

Range("A1").Select
Range("A1:B" & Roows).Font.Name = Range("B1").Font.Name
Range("A1:B" & Roows).NumberFormat = "@"



'Application.ScreenUpdating = False
Do Until Z = Roows

If Not InStr(ActiveCell.Value, ":") = 0 Then
    Cells(ActiveCell.Row, 2).Value = Trim(Mid(ActiveCell.Value, InStr(ActiveCell.Value, ":") + 1))
    ActiveCell.Value = Left(ActiveCell.Value, InStr(ActiveCell.Value, ":"))
Else
    Cells(ActiveCell.Row, 2).Value = Trim(ActiveCell.Value)
    ActiveCell.Value = ""
End If
If ActiveCell.Value = "" And Range("B" & ActiveCell.Row).Value = "" Then
ActiveCell.EntireRow.Delete
Roows = Roows - 1
Z = Z - 1
End If


    Range("A" & Z + 2).Select
    Z = Z + 1
Loop
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
'Application.ScreenUpdating = True
End Sub

【问题讨论】：

失败？你能详细说明到底是什么失败了吗？
对不起，我应该更清楚。请查看我的编辑。
你仍然可以；）哪一行会抛出错误？
Roows = Cells(oXLWs.Rows.Count & "," & oXLWs.ActiveCell.Column).End(xlUp).Row
查看评估结果...并与您希望评估的结果进行比较。

标签： excel vba outlook

【解决方案1】：

我相信您的问题是您没有完全定义您的 Range、Cells 和 Columns 函数。尝试在每个函数之前添加oXLWs.，或添加With oXLWs 行并在每个函数之前添加.，看看会发生什么。

如果您在 Excel 中运行此程序，Range、Cells 和 Columns 函数将起作用，因为它们将引用活动工作表。如果您通过 Outlook 运行此操作，则如果工作表未处于活动状态，它可能无法正常工作。

【讨论】：