好库网 好库网首页 | 我的好库
VB爱好者

VB删除EXCEL表格指定行

发布者:vbfans
发布日期:2011/5/22 22:04:16   更新日期:2011/5/24 19:38:22
阅读次数:7511
评分:4.80
介绍:本文提供的函数可以删除EXCEL文件中指定范围的行,利用的技术是Excel自动化技术
正文:

本文提供的函数可以删除指定EXCEL文件中指定范围的行,利用的技术是Excel自动化技术,具体请看代码:

 

Public Function BIP_xlsDeleteRowRange (sSrcPath, sDestPath, sStartRow, sEndRow) 'Create Excel object
Set oExcel = CreateObject("Excel.Application")
'设置为不告警
'在这种情况下,允许文件覆盖时加一个"yes/no"对话框
oExcel.DisplayAlerts = False

'打开Excel工作簿
Set oBook = oExcel.Workbooks.Open(sSrcPath)
'设置活动工作表
Set oSheet = oExcel.Activesheet

'删除指定范围的行
oSheet.Rows(sStartRow +":"+ sEndRow).Delete

'保存新的工作簿到 Excel 文件中
oBook.SaveAs (sDestPath)

'关闭xls文件
oExcel.Workbooks.Close()

End Function

 

 


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。