VBA宏，该宏从所有excel文件中复制特定数据并粘贴到当前的excel sheet2中，名为“导出”。

Question

我对宏/vba非常陌生.我试图在指定的文件夹中创建一个宏--循环，并从名为“查看托运”的sheet1复制数据，并将其粘贴到名为“导出”的sheet2中的当前工作簿中。但是，下面的代码不起作用，因为我首先在指定文件夹路径时，在下面的一行中出现了错误。

其次，我不明白如何为要复制的范围编写代码。名为"DailyDownl“的文件夹中的所有excel文件都有类似的数据，因此我希望复制从单元格"A2”到所有数据的范围，即尝试在每个excel文件中复制没有标题行列的数据。FOr，当我给出"A2: AAA2“时，只复制该行，而不是从该工作表复制整个数据，也不从其他工作表复制。我将在下面的截图中逐个突出显示每一件事。

我只想让宏.宏应在名为"DailyDownl“的文件夹中循环，并复制sheet1中的数据，该文件夹命名为”查看托运“，并复制整个数据而不包含标题行或顶行，即粘贴当前工作簿sheet2中的所有数据作为导出。

Answer 1

请尝试下一个经过调整的功能：

Sub CopyData(shSource As Worksheet, shTarget As Worksheet)
   Dim lastTRow As Long
    
    lastTRow = shTarget.Range("A" & rows.count).End(xlUp).row + 1
    shSource.Range(shSource.Range("A2"), shSource.cells(shSource.UsedRange.rows.count , shSource.Columns.count)).Copy
    shTarget.cells(lastTRow, 1).PasteSpecial xlPasteValuesAndNumberFormats

    Application.CutCopyMode = xlCopy
End Sub