如何在EXCEL中删除<em>VB</em>程序-vb 删除excel,vb打开excel

1 把以下函数复制到代码框，就得到百度 =数字（） 这个自定义函数
Function 数字(var1 As Range)
K = Len(var1)
For I = 1 To K
If IsNumeric(Mid(var1, I, 1)) = True Then
数字 = 数字 & Mid(var1, I, 1)
End If: Next
End Function
2 例如在B1 输入专 =数字（A1) 就得到A1单元格的纯数字，往下填充即属可

一、首先，打开Excel表格程序，在程序中打开要进行清抄空数据操作的表格。

二、然后，在表格中全部选中要清除zd内容的单元格。

三、然后，在选中区域中点击鼠标右键，在右键菜单中选择“清除内容”，点击打开。

四、最后，即可看到Excel表格选中区域内容全部清除，问题解决。

'其他代码不变，只增加三行代码：

Private Sub Command5_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim ADOrs As New Recordset
Dim i As Integer
Set xlApp = New Excel.Application
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(App.Path + "\" + "学生报表.xls")
Set xlSheet = xlBook.Worksheets(1)
ADOrs.ActiveConnection = ADOcn
ADOrs.Open "select * from 学生 order by XH"
i = 3
'以下三行为清除excel表格的代码
xlSheet.Cells.Select
xlSheet.Selection.Delete Shift:=-4162
xlSheet.Cells(1, 1).Select
'-----------------------------
Do While Not ADOrs.EOF
xlSheet.Cells(i, 1) = Trim(ADOrs("XH"))
xlSheet.Cells(i, 2) = Trim(ADOrs("XM"))
xlSheet.Cells(i, 3) = Trim(ADOrs("XB"))
ADOrs.MoveNext
i = i + 1
Loop
xlBook.Save
xlBook.Close
xlApp.Quit
MsgBox "报表已生636f7079e799bee5baa6332成！", vbOKOnly, "信息提示"
End Sub