是否有可能自动添加1行约。 50文件夹中的excel文件？
我有一个文件夹完整的Excel文件（以.xlsx结尾）。 大约有50个。 是否有可能遍历文件夹中的每个Excel文件，并在第1行插入一个空行？
我不希望手动这样做。 另外，我想在单元格A1中为所有50个文件添加单词“NEW”。 这可能与VBA？
你可以在Excel中创build一个控制工作簿 – 这将有你的macros。
- 一种可能性是在
Do循环中使用Dir函数，该循环将遍历特定目录中的所有文件 - 您可以添加通配符并在文件名中search特定的文本位，以检查它们是否是您要处理的文件。
- 如果例程find满足条件的文件，它将使用直线vba打开文件，进行更改，然后closures并保存它。
以下是目标目录示例中循环文件的一个示例
这是一个更好的例子
- 另一种可能是使用
FileSystemObject写一个macros。 这里的例子。
以下是我经常使用的一些代码，它使用fso循环检查和删除文件夹中的文件（如果有的话），并在其标题中包含特定的string：
Function DeleteFilesNotCreatedToday(myTargetFolder As String) Dim myFolder Dim myFile Dim YesterdayDate As Date YesterdayDate = Date Set myFolder = CreateObject("Scripting.FileSystemObject").GetFolder(myMMTargetFolder).Files For Each myFile In myFolder If Left(myFile.Name, 13) = "Daily Summary" Then If DateDiff("s", myFile.datelastmodified, YesterdayDate) < 0 Then Else On Error Resume Next myFile.Delete On Error GoTo 0 End If End If Next Set myFolder = Nothing End Function 'DeleteFilesNotCreatedToday
您可以使用VBAmacros来做到这一点，让它在您的文件之一工作，然后使用Workbooks.Openfunction来打开您的其他文件，并运行相同的代码。