vba - Excel VBA - 我可以在另一个工作簿上操作数据吗？

Question

背景:
每个月我都需要做一份报告。但是，在执行此操作之前，我必须将一些数据导出到 Excel 中。一旦数据在 excel 中，我必须更改一些列并获得正确的格式，然后才能将其附加到另一个文档的末尾以进行一些分析。
我想要什么:
我想要我附加数据的文档以打开。然后，我将从我的程序中将数据导出到 excel 中(excel 只是打开数据并且它没有保存在任何地方)并从我的较大文档中运行一个 VBA 脚本，该脚本将更改另一个工作簿(Book1)上的数据，以便如果格式正确，可以将其复制到分析文档中。
到目前为止我所拥有的:
我已经开始基本了。到目前为止，我要做的就是将所有单元格设置为正确的高度，以使其更易于阅读。但是，当我运行此代码时，我得到:

Run-time error '9':

Subscript out of range

我到目前为止的代码是:

Sub Data_Ready_For_Transfer()

' Format all cell heights to 15
    With Workbooks("Book1.xlsm").Worksheets("Sheet1")
        Cells.RowHeight = 15
    End With
End Sub

With Workbooks("Book1.xlsm").Worksheets("Sheet1") 似乎有问题部分代码。我也试过 With Workbooks("Book1").Worksheets("Sheet1")我已经用打开的、未保存的文档和工作簿的保存版本进行了尝试。
我错过了一些明显的东西吗？

Answer 1

作为评论的跟进，工作簿 Book1在 Application 的另一个实例中打开目的。

在这种情况下，此代码应该可以工作(对于已经打开的工作簿):

Sub Data_Ready_For_Transfer()
    Dim wb As Workbook

    Set wb = GetObject("Book1")

    'if we get workbook instance then
    If Not wb Is Nothing Then
        With wb.Worksheets("Sheet1")
            .Cells.RowHeight = 15
        End With
    End If
End Sub

又一期，我改了 Cells.RowHeight = 15至 .Cells.RowHeight = 15指定 Cells属于工作簿 Book1表 Sheet1 .