时间戳

首页 > 解决方案 > Excel 中的仪表板

excel - Excel 中的仪表板

问题描述

我正在尝试制作一个可以打开文件夹中所有 .xlsm 文件的宏：

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

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

每个文件中的信息应该只分配到一行，因为我将使用第一行作为标题（ID Nº；访问日期等……）

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

如果您能帮我编写宏并告诉我它是如何工作的，我将不胜感激，因为我不是 IT 人员。

标签： excelvba

解决方案

我不明白你问题的第二部分，但这是一个打开给定文件夹中每个 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

推荐阅读