閱： 5380 | 回： 3
等級:初學(xué)者
-
積分:1
-
財富值:1.00
-
身份:普通用戶
用VBA實現(xiàn)批量刪除指定文件夾下工作表表頭，如圖所示，刪除前與刪除后效果。
但在運行時出錯
（文件夾內(nèi)工作薄模擬了上報的數(shù)據(jù)，只能保證結(jié)構(gòu)相同，數(shù)據(jù)質(zhì)量得不到保證，要求在這種情況下運行），請各位高手幫我看看代碼錯在哪兒？
補充內(nèi)容(2015-7-30 15:32:23):
Sub deleteheadline()
Dim Fso As Object, Folder As Object
Dim i&, n&, a, b, Wb As Workbook, p$
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\"
If .Show = False Then Exit Sub
p = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Fso = CreateObject("Scripting.FileSystemObject")
With ThisWorkbook
For Each File In Fso.GetFolder(p).Files
If File.Name Like "*.xls" Then
n = n + 1
Set Wb = Workbooks.Open(File)
Application.DisplayAlerts = False
If ThisWorkbook.MultiUserEditing Then
ThisWorkbook.UnprotectSharing ("")
End If
Application.DisplayAlerts = True
Wb.Unprotect
Wb.Sheets("基本情況（填表）").Unprotect
Wb.Sheets("基本情況（填表）").Rows("1:4").delete
Wb.Close False
End If
Next
End With
Set Fso = Nothing
Application.ScreenUpdating = True
MsgBox "表頭已刪除!"
End Sub
補充內(nèi)容(2015-7-30 15:33:13):
我的個性簽名
等級:學(xué)者