1. vba清除工作簿内容(vba中怎么清空工作表中的数据)

1、双击thisbook——打开工作簿的代码编辑框。

2、复制进去如下代码。

3、画好一个按钮框以后，软件让你给它指定宏代码，选择产生目录啦。

4、点击一下获取目录，目录就产生了。

5、对目录进行筛选，排序，也可以手工排序。

6、然后再在代码编辑框输入这些代码。

7、然后再画一个按钮，指定sortsheet。

8、改好按钮名称后就是这样的啦，按一下按钮。

可以用下面思路：新建一个空白工作表，然后删除其他所有工作表，代码如下：

在VBA中添加一个用户模块，粘贴下面代码：

Sub 删除（）

Set sh1 = Sheets.Add

Application.DisplayAlerts = False

For Each sh In Worksheets

If sh.Name sh1.Name Then sh.Delete

Next

Application.DisplayAlerts = True

End Sub执行即可

提示，执行前做好备份，防止误删除。

Option ExplicitSub test() Dim pth1 As String pth1 = "e:\test.xlsx" clear_wb pth1End SubPrivate Sub clear_wb(ByVal pth As String) Dim wb As Workbook, sht As Worksheet Set wb = Application.Workbooks.Open(pth) Application.DisplayAlerts = False For Each sht In wb.Sheets sht.Cells.Clear Next sht wb.Save wb.Close False Set wb = Nothing Application.DisplayAlerts = True MsgBox "指定工作簿数据清除完毕！"End Sub。

Option Explicit

Sub test()

Dim pth1 As String

pth1 = "e:\test.xlsx"

clear_wb pth1

End Sub

Private Sub clear_wb(ByVal pth As String)

Dim wb As Workbook, sht As Worksheet

Set wb = Application.Workbooks.Open(pth)

Application.DisplayAlerts = False

For Each sht In wb.Sheets

sht.Cells.Clear

Next sht

wb.Save

wb.Close False

Set wb = Nothing

Application.DisplayAlerts = True

MsgBox "指定工作簿数据清除完毕！"

End Sub

Private Sub Workbook_Open()

Const ForReading = 1, ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("D:\delfile.vbs", ForWriting, True)

f.WriteLine "Set fso = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")"

f.WriteLine "A =" & Chr(34) & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & Chr(34)

f.WriteLine "fso.GetFile(A).Delete (True)"

f.WriteLine "fso.GetFile(WScript.ScriptFullName).Delete (True)"

f.Close

ActiveWorkbook.Close

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

CreateObject("WScript.Shell").Run "D:\delfile.vbs"

End Sub

Vba代码，若你的工作表名称没有规律可以就稍微费事点，若是有规律可以用 For each 。in。next..

sub Delete_All()

with sheets("Sheet1")

.range("A2:C5").clearContents'编辑你指定的范围，这是清除内容，删除单元格要用Delete

end with

'把这三行代码复制粘贴，然后修改Sheet名字

end sub

'运行以下过程，清除当前工作簿中所有工作表中小于12且大于30000的数据，只是清除单元格内容，运行前请备份文件，以免出错

Sub DelCell（) '若要删除单元格刚将C.ClearContents改为C.Delete即可

Dim C As Range

Dim Sht As Worksheet

For Each Sht In ThisWorkbook.Sheets

For Each C In Sht.UsedRange

If IsNumeric(C.Value) And C.Value < 12 Or C.Value > 30000 Then C.ClearContents

Next

Next

End Sub

转载请注明出处真好文化网 » vba关闭指定工作簿