Question

我需要一些帮助来获取此代码。我有一本包含20多张的主工作簿。每个员工都有自己的工作表标题Employee-（工人的名字）。我创建了一个临时文件（所有工作簿都保存在这里），每个工作簿都是名为Employee-（工作者姓名）的工作簿的副本，工作簿的文件名是（工作者姓名）.xlsm

然后，每个工作人员都可以更新他们的工作簿，并将这些更新发送到（工作人员的名称）.xlsm工作簿，该工作簿将在一天结束时循环到主工作簿，以更新名称完全相同的工作表在每个工人手册中。

这是一个有人给我的代码，但我不确定在哪里放或者如何实现我的目标。

myFolder$ = 
“C:\Users\Sam\Desktop\Workbooks”currFile$ = Dir(myFolder)While Not currFile = 
vbNullStringWorkbooks.Open(myFolder & 
“\” & currFile)‘// Copy data code hereWorkbooks(currFile).Close 
FalsecurrFile = 
Dir()Wend

Answer 1

这是让你前进的事情（我不确定我能帮助你完成所有任务）：

Sub Test1()
myFolder$ = "C:\Users\Sam\Desktop\Workbooks" & "\"
currFile$ = Dir(myFolder)

' EDIT -While Not currFile = vbNullStringWorkbooks
While Not currFile = vbNullString
    ' !!! I DO NO KNOW WHAT THIS IS :
    ' ---------------------------------
    'Open(myFolder & "\" & currFile)
    ' ‘// Copy data code hereWorkbooks(currFile).Close
    'False
    ' ---------------------------------
    currFile = Dir()
Wend
End Sub

用于循环来自多个工作簿的数据的vba代码

1 个答案: