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