说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB删除EXCEL表格指定列

HTML文档下载 WORD文档下载 PDF文档下载
本文提供的函数利用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 ExcelSet oBook = oExcel.Workbooks.Open(sSrcPath)'设置活动工作表Set oSheet = oExcel.Activesheet'删除指定范围的列oSheet.Columns(sStartCol + ":" + sEndCol).Delete'保存新的工作簿到Excel fileoBook.SaveAs (sDestPath)'关闭xls文件oExcel.Workbooks.Close()End Function

 

 

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘