作者:乔山办公网日期:
返回目录:excel表格制作
已经先打zhidao开的excel文档内,每删容3行保留1行
Private Sub Command1_Click()
Dim i, j As Integer
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = xlApp.Workbooks.Open("d:\book1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
For i = 1 To 100
For j = 1 To 3
xlSheet.Rows(i).Delete ' Shift:=xlUp
Next
Next
end
你去看看宏里面有没有东西要删除
代码百及注释如下:
sub main()
Dim ap As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet Set wb = ap.Workbooks.Open(“D:\123.xls”)'打开工作簿度
Set ws = wb.Worksheets(“Sheet1”)'赋值工作表回
ws.Activatews.Cells(2, 4).Select '选中D2所在单元格
Selection.EntireRow.Delete '选中D2所在的行,然后执行答删除行
wb.save‘保存工作表
wb.close'关闭工作表
ap.Quit'退出Excel程序
Set ws = Nothing
Set wb = Nothing
end sub
我这边保存的宏是在模板1里的
然后把模板1移除就可以了,不会再出现VB项目……