Question

我正在尝试创建一个宏，用于打开文件夹中的所有.xlsm文件：

C:\Users\iborrego\Desktop\zfichasmacro\Fichas excel\

并复制一些单元格（来自不同的工作表）。

每个文件中的信息应仅分配给一行，因为我将第一行用于标题（IDNº；访问日期等）

文件夹中的每个文件一行。

如果您能帮助我编写宏并告诉我它是如何工作的，那么我将不胜感激。

Answer 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

Excel中的仪表板

1 个答案: