VBA批量加表头

有时候需要把经过处理的导出数据批量加表头,好久不写VB了有点生疏,记录一个。

注意,这种方式加表头因为是反复打开文件、写入文件,所以速度是非常慢的!!!我观察了一下,基本上在我的970EVO上速度是1个文件/s。如果可能,还是尽量用pandas的功能输出excel吧。

Sub test()
Dim wb As Workbook
Dim mypath$, myname$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "*.xl*")
Do While myname <> ""
  If myname <> ThisWorkbook.Name Then
    Set wb = Workbooks.Open(mypath & myname)
    With wb
      For Each ws In .Worksheets
        Rows(1).Insert
      Next
      wb.Close True
    End With
  End If
  myname = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "添加表头完毕!", vbInformation
End Sub

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值