引用工作簿vba索引

Question

我试图用循环来引用工作簿。

Workbooks(iter2).Worksheets("Sheet1").Cells(1, 1) = sh1.Cells(1, pre_fab_dtl - 4)

是我目前正在引用它的方式。

我想用变量“filename”的值将其命名为

filename = wb.cells(x,y)

但显然最后需要.xlsx。

我如何参考？

Answer 1

我最近解决了这种情况。我创建了一个单独的子，它仅用于根据范围和/或输入打开工作簿。那个子在适当的时候运行。

            Sub wkbkOpen()
            'opens workbook based on user input, also stores as variables
            Dim fPath As String, fName As String, fType As String

            fPath = Range("FilePath")
            fName = Range("FileName")
            fType = Range("FileType")

              Range("M2").Value = fPath & fName & Format(dNum, "Fixed") & fType
              Set x = Workbooks.Open(fPath & fName & Format(dNum, "Fixed") & fType)
              Set y = Workbooks("Forecast-Storage_Monthly_v02.xlsm")

            End Sub

基本上，我在工作表的单独部分处理了文件名的每个部分。