VBA如何在另一個工作簿上運行代碼

我不知道如何從另一個工作簿中的一個工作簿運行代碼。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。

任何幫助或建議將不勝感激。

來源

2012-06-21 TBone2087

檢查下面的[鏈接1]（http://www.ozgrid.com/forum/showthread.php ？t = 47315）和[link2]（http://www.excelforum.com/excel-programming/374909-open-a-closed-workbook-with-vba.html） – higuaro

你問的如何以編程方式運行一個宏在另一個工作簿中找到？或者如何將代碼應用到工作簿以外的其他工作簿（即不是活動工作簿）？ – JimmyPena

既然你已經使用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

來源

2012-06-21 12:49:05

VBA如何在另一個工作簿上運行代碼

回答

相關問題