如何给多个excel文件自动加上一样的表头，这些excel文件都有三列，联系人，单位，联系方式，但是没有表头

2024-07-03 05:50| 来源: 网络整理| 查看: 265

Sub 添加表头() Dim SL As Object, Folder As Object Dim Path As String, Spath As String Dim Arr(0, 1 To 3), N As Long Set SL = CreateObject("shell.application") Set Folder = SL.BrowseForFolder(0, "", 0, "") '打开对话框 If Folder Is Nothing Then Exit Sub '如果没有选择路径则退出 Path = Folder.Items.Item.Path & "\" '获得选择的路径 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.ShowWindowsInTaskbar = False Arr(0, 1) = "联系人" Arr(0, 2) = "单位" Arr(0, 3) = "联系方式" Spath = Dir(Path & "*.XLS*") Do Until Spath = "" With Workbooks.Open(Path & Spath) .Worksheets(1).Rows(1).Insert .Worksheets(1).Range("A1:C1") = Arr .Close True N = N + 1 End With Spath = Dir Loop Application.ScreenUpdating = True Application.DisplayAlerts = True Application.ShowWindowsInTaskbar = True MsgBox "共添加了 " & N & "个文件的表头", vbOKOnly + vbInformation, "完成！"End Sub

打开一个新的表格，按ALT+F11，再按F7，把上面代码复制进去。按F5执行。或者回到工作簿，按ALT+F8执行，执行后会弹出一个选择文件的对话框，选择你要添加的文件所在的文件夹。

整个文件夹的xls文件都被添加，所以不相关的文件不要放里面。

还是不懂操作就下载附件，有个按钮，点下就好了。

还有别忘了启用宏。工具---宏---安全性---调到中，或者低，然后重新打开工作簿。

【本文地址】

公司简介

联系我们