我有不同的 excel 文件,其中有多个工作表,我想将它们导入到一个主 excel 文件中。
这些文件位于不同的目录下。因此,我想知道将所有这些文件中的特定单元格导入一个主 excel 文件是否可行,该文件应在每次更改时更新。
最佳答案
您可以像这样创建宏:
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 进行尽可能多的调用。
关于excel - 如何将不同excel文件和工作表中的数据导入一个主excel文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16901316/