Excel中的仪表板

时间:2018-10-18 07:55:33

标签: excel vba

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

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

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

每个文件中的信息应仅分配给一行,因为我将第一行用于标题(IDNº;访问日期等)

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

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

1 个答案:

答案 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