0

我有不同的 excel 文件,其中有多个工作表,我想将它们导入到一个主 excel 文件中。这些文件位于不同的目录下。因此,我想知道将所有这些文件中的特定单元格导入一个主 excel 文件是否可行,该文件应在每次更改时更新。

4

4 回答 4

2

http://www.rondebruin.nl/win/addins/rdbmerge.htm

This is a great macro/add-in to import all files in folder and if you want sub-folder into one spreadsheet.

于 2014-05-15T04:08:30.197 回答
1

您可以像这样创建宏:

Sub ConsolidateWorkbooks()
    Dim myRange As String
    myRange = "A1:B2" 'Put the range you want to copy from each workbook here
    Dim thisWorkbook As String
    Dim thisWorksheet As String
    thisWorkbook = ActiveWorkbook.name
    thisWorksheet = ActiveSheet.name

    CopyPasteOneWorkbook ("C:\firstworkbook.xls")
    CopyPasteOneWorkbook ("C:\secondworkbook.xls")


End Sub

Sub CopyPasteOneWorkbook(name As String)
    Workbooks.Open Filename:=name
    range(myRange).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(thisWorkbook).Activate
    'Select the first empty cell in column A:
    Worksheets(thisWorksheet).range("A1").End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
End Sub

如果您的工作簿都在一个文件中并且具有顺序名称(workbook1.xls、workbook2.xls 等),那么您可以创建一个For循环。否则,只需根据需要对 CopyPasteOneWorkbook 进行尽可能多的调用。

于 2013-06-03T17:26:17.487 回答
1

使用以下内容:

=('NAME_OF__SHEET'!A1)

NAME_OF__SHEET = "您的工作表的名称" A1 = 列、行

你完成了!

于 2013-06-03T17:04:27.767 回答
0

关于这个问题的第二部分(包括从其他文档中的单元格到您的文档的数据),答案在这里:

https://superuser.com/questions/835940/import-one-cell-of-data-from-one-spreadsheet-to-another

于 2014-11-04T21:19:25.150 回答