我正在尝试创建一个宏,用于打开文件夹中的所有.xlsm文件:
C:\Users\iborrego\Desktop\zfichasmacro\Fichas excel\
并复制一些单元格(来自不同的工作表)。
每个文件中的信息应仅分配给一行,因为我将第一行用于标题(IDNº;访问日期等)
文件夹中的每个文件一行。
如果您能帮助我编写宏并告诉我它是如何工作的,那么我将不胜感激。
答案 0 :(得分:1)
我不理解您问题的第二部分,但这是一个代码,用于打开给定文件夹中的每个xlsm:
Sub Xlsmopener()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\iborrego\Desktop\zfichasmacro\Fichas excel")
i = 1
For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Path) = "xlsm" Then
Workbooks.Open (objFile.Path)
End If
i = i + 1
Next objFile
End Sub