我想要一段代码,它允许我打开文件夹中的3个文档-每次打开文档时,我希望有一个显示文件名称的消息框。我想通过一个For Each Next结构来完成这个循环。我知道application.documents.open filename:=“链接到文档”是我需要使用的代码,但我在将它们组合在一起时遇到了麻烦。
无法使用FSO功能逐个复制文件。我尝试使用f(用于文件),因此它逐一表示每个文件,但我认为我做得不对。在没有dir函数的情况下能做到这一点吗?Dim myFSO As FileSystemObject Dim FSO As Object DimsDFolder As String
Set FSO = CreateObject(