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

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

代码示例：

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中运行代码。

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

Answer 1

既然你已经在使用你可以使用一个. 参考参考表：

 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