excel - VBA如何在另一个工作簿上运行代码

Question

我不知道如何从另一个工作簿中的一个工作簿运行代码。

代码示例：

Set dlsheet = appexcel.Workbooks.Open(strPath & "dlsheet.csv")

With dlsheet.Sheets("data")

    numofrows = Sheet1.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

    Columns("I:I").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

end with

我知道这不是我想要运行的代码的完整摘录，但是我如何制作它以便它不计算我正在运行代码的工作簿中的行数，而不是那个 dlsheet。

任何帮助或建议将不胜感激。

Answer 1

由于您已经在使用with，您可以使用 a.来引用参考表：

Set dlsheet = appexcel.Workbooks.Open(strPath & "dlsheet.csv")

With dlsheet.Sheets("data")

    numofrows = .Range("A1").Offset(.Rows.Count - 1, 0).End(xlUp).Row

    .Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

end with