想要将多个 Excel 文件的每张表的第一行复制到另一个 Excel 文件

【问题标题】：Want to copy first row of each sheet of multiple Excel files to another Excel file想要将多个 Excel 文件的每张表的第一行复制到另一个 Excel 文件
【发布时间】：2013-07-12 07:28:03
【问题描述】：

有 27 个 Excel 文件（工作簿），每个 Excel 文件将有 5 个选项卡（工作表）或 2 个。

我想将每个文件（包括它们的工作表在内的 27 个工作簿）的每个工作表的第一行复制到另一个新的 Excel 工作表（在工作表上合并）以检查每个文件是否具有相同的标题。

【问题讨论】：

你的问题是什么？你试过什么？
This link 应该可以帮助您入门。请在发布问题之前向我们展示您的尝试。

标签： excel

【解决方案1】：

这里有一些你可能需要的东西；

Dim wb As Workbook
Dim rowCopy As Range
For Each sFilename In listOfFiles
    Set wb = Workbooks.Open(sFilename)
    Set rowCopy = wb.Range([rangewheretocopy])

    rowCopy.Copy

    shWhereYouCopyItAll.Range([targetrange]).PasteSpecial
Next

假设文件listOfFiles 的假设列表，您可以foreach 字符串sFilename 以打开工作簿。然后将 Range 对象 rowCopy 设置为该行所在的范围，然后调用本地工作表 Range PasteSpecial 函数。

您可能需要了解更多信息，而以上代码无法完成您要求的工作。我希望你也能在编程上付出一些努力。

【讨论】：