从外部工作簿复制数据基于标题不是为了另一个工作簿

Question

我希望这是一个正确的地方来问这个问题，因为我正处于疯狂的边缘。我很生疏，我有VBA（只适用于C++，JAVA）

问题零经验： 我试图将数据从一个工作簿复制到另一个。

可以说我有一个工作簿（称为数据）与几个充满数据的工作表。每一列数据都有一个唯一的标题（同一行上的所有标题）。

另一方面，我有另一个工作簿（称为报告）与一个工作表，只包含数据的标题（在一行）。它们与DATA工作簿中的顺序不同。例如，我在REPORT工作表中可以在DATA工作簿的不同工作表中找到3个标题。

我需要遍历DATA工作簿中的所有工作表，并在找到相同标题时将整列粘贴到REPORT工作表中。

此图片可能有助于理解。Explanation

非常感谢ALOT提前给予的帮助。我已经搜索了很多代码，但发现类似的东西，但没有设法了解任何。

首先尝试这样做，但得到运行时错误“1004”的错误。 有什么帮助吗？

Dim MyFile As String 
Dim ws As Worksheet 

''Workbook that contains one worksheet with all the headings ONLY NO DATA 
Dim TargetWS As Worksheet 
Set TargetWS = ActiveSheet 
Dim TargetHeader As Range 

''Location of Headers I want to search for in source file 
Set TargetHeader = TargetWS.Range("A1:G") 

''Source workbook that contains multiple sheets with data and headings _ 
not in same order as target file 
Dim SourceWB As Workbook 
Set SourceWB = Workbooks("Source.xlsx") 
Dim SourceHeaderRow As Integer: SourceHeaderRow = 1 
Dim SourceCell As Range 

''Stores the col of the found value and the last row of data in that col 
Dim RealLastRow As Long 
Dim SourceCol As Integer 

''Looping through all worksheets in source file, looking for the heading I want _ 
then copying that whole column to the target file I have 
For Each ws In SourceWB.Sheets 
    ws.Activate 
    For Each Cell In TargetHeader 
    If Cell.Value <> "" Then 
      Set SourceCell = Rows(SourceHeaderRow).Find _ 
       (Cell.Value, LookIn:=xlValues, LookAt:=xlWhole) 
     If Not SourceCell Is Nothing Then 
       SourceCol = SourceCell.Column 
       RealLastRow = Columns(SourceCol).Find("*", LookIn:=xlValues, _ 
       SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
       If RealLastRow > SourceHeaderRow Then 
       Range(Cells(SourceHeaderRow + 1, SourceCol), Cells(RealLastRow, _ 
        SourceCol)).Copy 
       TargetWS.Cells(2, Cell.Column).PasteSpecial xlPasteValues 
       End If 
     End If 
     End If 
    Next 
Next 

Answer 1

你的问题没有具体说明什么问题的一部分，你实际上是停留在，所以我会假设你不知道如何下手。请注意，这里没有人会为您提供完整的工作解决方案以解决您的问题 - 这取决于您自己。

的一些技巧，让你开始工作：

1. 你要问自己与涉及多个工作簿问题的第一个问题通常会是我该怎么附上一份工作簿我的宏？

在你的情况下，报告工作簿看起来像一个理智的选择，因为你可能希望某人在该报告的东西，以便产生它被点击。尽管如此，你也可以反过来辩论。

1. 一旦您选择了放置VBA的位置，您必须建立对其他工作簿的引用。

你要么必须从磁盘加载使用Workbooks.Open其他Excel文件，或有两个工作簿是在您的Excel实例，这我会建议你，因为它更容易同时打开。在这种情况下，只需使用Workbooks对象建立参考。

Dim exampleRefToDATA As Workbook: Set exampleRefToDATA = Workbooks("data.xlsx") ' or index

然后，通过每个工作表

循环使用类似For Each ws As WorkSheet In exampleRefToDATA.WorkSheets作为For循环

在该循环中，使用类似于

的文本循环遍历第一列

For Each allName As Range In ws.Range(... for you to figure out ...)

在这个循环中，你必须看，如果该名称是您REPORTS片做另一个循环像

For Each thisName As Range in Range(... seriously, there's enough on stackoverflow on how to properly iterate over the used range of a row ...)

注如何拨打Range()等于ActiveWorkbook.ActiveWorkSheet.Range，这是您的报告表。

1. 然后只需检查相等性，并根据需要复制该行。同样，复制一行也已在此处介绍过。

希望这对你有帮助。