VB与EXCEL无缝操作

时间:2013-05-06 08:49:53
【文件属性】:

文件名称:VB与EXCEL无缝操作

文件大小:1KB

文件格式:TXT

更新时间:2013-05-06 08:49:53

VB 读写 EXCEL 张志晨老师

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见(或不可见) Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏


网友评论

  • 仅仅一段txt文件,毫无用处。