工作簿名称作为variables

一直试图谷歌这一段时间，不能让我的语法正确的问题！

基本上，目前我有WorkbookA.xlsm和我的代码直接引用“WorkbookA.xlsm”

当我的工作簿被分发时，不是每个人都留下相同的名字，并且会导致下标超出范围的错误

答案可能非常明显，但是我怎样才能将工作簿声明为variables或类似呢？ thisworkbook.name？

我的产品打开一个单独的工作簿，从中提取数据，然后将其放入我的工作簿 – 我担心这个工作簿或类似可能会导致问题，如果不止一个是开放的？

对不起，这个愚蠢的问题，但希望你能帮助！

Answer 1

这应该工作

  Option Explicit Sub WorkingWithDataFromOtherWorkBook() 'You can also Dim as Sheet and then set the sheet Dim MasterWorkBook As Workbook Dim DataSourceWorkBook As Workbook Set MasterWorkBook = ThisWorkbook 'Set DataSourceWorkBook = Workbooks.Open(Filename:=" Full File Path Here") Set DataSourceWorkBook = Workbooks.Open(Filename:="C:\Users\oosthjp\Desktop\Book1.xlsm") 'Simple copy paste code below DataSourceWorkBook.Sheets("SheetReference").Range("SOMERANGE").Copy MasterWorkBook.Sheets("SheetReference").Range("SOMERANGE").Paste 'Whatever other code you have goes here End Sub