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

VB删除EXCEL表格指定列

发布者:vbfans
发布日期:2011/5/24 19:37:27   更新日期:2011/5/24 19:38:10
阅读次数:7720
评分:4.80
介绍:本文提供的函数利用Excel自动化技术删除指定EXCEL文件中指定范围的列
正文:

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

 

Public Function BIP_xlsDeleteColumnRange (sSrcPath, sDestPath, sStartCol, sEndCol)
'创建Excel对象
Set oExcel = CreateObject("Excel.Application")
'设置为不告警
'在这种情况下,允许文件覆盖时加一个"yes/no"对话框
oExcel.DisplayAlerts = False'Open Book in Excel
Set oBook = oExcel.Workbooks.Open(sSrcPath)
'设置活动工作表
Set oSheet = oExcel.Activesheet

'删除指定范围的列
oSheet.Columns(sStartCol + ":" + sEndCol).Delete

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

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

End Function

 

 


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

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