将数据导入到名称更改的主文件

Question

我正在尝试将所选工作簿中的数据复制并粘贴到我的主文件中。我遇到的一个主要问题是回到主文件，原因是主文件的名称每个月都会更改为它正在运行的月份，例如本月的“三月主文件” 下个月运行时的“四月主文件”。我尝试通过引用文件路径返回文件，但它不起作用，例如“Windows（模板文件）。激活”。关于是否有更简单的编写方法并且不必引用文件路径的任何建议？

这就是我到目前为止所做的：

Sub ImportRepurchData()

    Dim combinedBook As Workbook
    Dim filter As String
    Dim caption As String
    Dim combinedFilename As String
    Dim combinedWorkbook As Workbook
    Dim targetWorkbook As Workbook

    TEMPLATEFile = Sheets("Dynamic").Range("ImportRepurch")
    ' Open Source Data

    Set targetWorkbook = Application.ActiveWorkbook

    filter = "Text files (*.xlsx),*.xlsx"
    caption = "Please Select an input file"
    combinedFilename = Application.GetOpenFilename(filter, , caption)

    Set combinedWorkbook = Application.Workbooks.Open(combinedFilename)
    ' Paste Source Data into original workbook

    Range("P4:P100000,AL4:AL100000").Select
    Selection.Copy

    Windows(TEMPLATEFile).Activate

    Sheets("Input Sched-Unsched Split").Select
    Range("B9:B100000,C9:C100000").Select
    ActiveSheet.Paste

    combinedWorkbook.Close

End Sub

Answer 1

如果您从主文件中运行代码，您可以使用 本工作簿 代替 Application.Workbooks(someIndexOrName)

此工作簿始终是运行 tje 代码的工作簿，即使它是加载项 (XLAM)。

如果不是这样，您可以编写一个函数来识别您的工作簿，例如根据是否存在具有特殊名称（或代号）的工作表。甚至可能是多张纸。然后你可以遍历 Application.Workbooks 直到找到你的主文件

Answer 2

另一点是这会给你带来问题：

Range("P4:P100000,AL4:AL100000").Select
Selection.Copy

Windows(TEMPLATEFile).Activate

Sheets("Input Sched-Unsched Split").Select
Range("B9:B100000,C9:C100000").Select
ActiveSheet.Paste

当你可以达到同样的效果时

 combinedWorkbook.range("P4:P100000").copy targetworkbook.worksheets(""Input Sched-Unsched Split").range("B9")
 combinedWorkbook.range("al4:al100000").copy targetworkbook.worksheets("Input Sched-Unsched Split").range("c9")

永远不要在 VBA 中使用 select 或 activate