Question

我有一个Excel源工作簿，我有一些人给我发送了其他工作簿的信息，所以我可以将这些信息添加到源工作簿。

我想知道是否可以将这些工作簿导入源工作簿，以便我的记录自动更新，并将新记录添加到源工作簿

Answer 1

使用此代码可以获取文件夹中的所有文件。在你的情况下，将添加额外的工作簿。

Dim MyObject As Scripting.FileSystemObject
Set MyObject = New Scripting.FileSystemObject
Dim mySource As Folder
Dim myFile As Scripting.File
dim strFolder as string
strFolder = 'you folder path

dim strFilePath as string
Set mySource = MyObject.GetFolder(strFolder)
For Each myFile In mySource.Files
    strFilePath = myFile.Path
   Next

一旦有了文件路径，就可以使用此代码打开工作簿

dim wrkBook as workbook
set wrkbook = workbooks.open(strFilePath)

一旦打开工作簿，其余部分就会非常直接

youVariable = wrkbook.worksheet(1).cells(i, j)

如何在导入工作簿时批量更新记录？

1 个答案: