Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\VB\MXS.xls")
xlApp.Visible = True
就是打开EXCEL
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\VB\MXS.xls")
xlApp.Visible = True
就是打开EXCEL
解决方案 »
- VB获取U盘 盘符
- XP SP2下开发的程序,在WIN2000下运行,竟然发现程序界面的标签内容错乱,好象WIN2000不识别空格及全角符号一样?
- 判断数组的问题(简单)
- 在一个字符串查找某子串的,返回含有子串的数量的函数
- 为使程序健壮些, 是不是应该在程序的开头加一个 " on error resume next " 呢?
- zhangcyu (30)、 yoki (70) 拿分
- 请指点:后台是SqlServer2000,那么是否有必要所有的添加、删除、更新、查询语句都写成存储过程呢?
- VB6居然可以开发WINDOWS CE
- VB数值很小的矩阵相乘出现偏差,是精度问题吗?若是,是不是VB固有的问题?
- 如何用VB编写标准COM接口传递一个256*256数组?
- 关于AUTOCAD选择集问题
- 有没有研究过函数自动分解工具
一张是直接打开EXCEL,一张是用VB打开EXCEL
Set exwbook = ex1.Workbooks().Open("E:\VB\MXS.xls")
ex1.Visible = True并没有遇到你所说的问题~看截图你是用office2003~我是用office2010~不知道是不是版本问题