如何实现vb与excel的无缝连接

在通用对象的声明过程中定义EXCEL 对象： Dim xlApp As Excel. Application Dim xlBook As Excel. WorkBook Dim xlSheet As Excel. Worksheet 3、 在程序中操作EXCEL 表常用命令： Set xlApp = CreateObj ect("Excel. Application") #9; 创建EXCEL 对象 Set xlBook = xlApp. Workbooks. Open("文件名") #9; 打开已经存在的 EXCEL 工件簿文件 xlApp. Visible = True #9; 设置EXCEL 对象可见（或不可见） Set xlSheet = xlBook. Worksheets("表名") #9; 设置活动工作表 xlSheet. Cells(row, col) =值 #9; 给单元格（row, col） 赋值 xlSheet. PrintOut #9; 打印工作表 xlBook. Close (True) #9; 关闭工作簿 xlApp. Quit #9; 结束EXCEL 对象 Set xlApp = Nothing #9; 释放xlApp 对象 xlBook. RunAutoMacros (xlAutoOpen) #9; 运行EXCEL 启动宏 xlBook. RunAutoMacros (xlAutoClose) #9; 运行EXCEL 关闭宏 4、 在运用以上VB 命令操作EXCEL 表时， 除非设置EXCEL 对象不可见， 否则VB 程序可继续执行其它操作， 也能够关闭 EXCEL， 同时也可对EXCEL 进行操作。