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，因此可以使用.来引用参考表：

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

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

1 个答案: