| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求指点：有没有办法能直接打开excel中的sheet? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27029) |
|
| -- 作者：雁过不留痕8 -- 发布时间：2012/12/20 11:03:00 -- 求指点：有没有办法能直接打开excel中的sheet? 有没有办法能直接打开excel中的sheet？？ 命令如下，已经试过了，不可行 想打开C:\\型号规格配置及参数设置表(模版)20121217.xls文件中的sheet? Dim Book As New XLS.Book() Book=C:\\型号规格配置及参数设置表(模版)20121217.xls Dim Sheet1 As XLS.Sheet=Book.Sheets(0) Dim proc1 As new process proc1.file=sheet1 proc1.start()
|
|
| -- 作者：lin_hailun -- 发布时间：2012/12/20 11:27:00 -- 这样可以，不过，最好把app定义在全局，不然会多次生成excel进程而没有关闭。 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet2") ws.Select app.Visible = True \'app.Quit |
|
| -- 作者：雁过不留痕8 -- 发布时间：2012/12/20 11:43:00 -- 追问：运行代码无效 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\型号规格配置及参数设置表(模版)20121217.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("结构包装要求") ws.Select app.Visible = True \'app.Quit 运行显示“索引无效”
|
|
| -- 作者：雁过不留痕8 -- 发布时间：2012/12/20 11:44:00 -- Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\1.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") ws.Select app.Visible = True \'app.Quit 我在C盘上见了一个名为1的excel，运行上述代码可以打开 我想问一下为什么
|
|
| -- 作者：lin_hailun -- 发布时间：2012/12/20 12:03:00 -- 可以通过狐表操作excel的。 http://www.foxtable.com/help/topics/2121.htm |
|
| -- 作者：狐狸爸爸 -- 发布时间：2012/12/20 12:05:00 -- 可能Sheet的名称不等于"结构包装要求"
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\型号规格配置及参数设置表(模版)20121217.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(x) \'x为整数，表示打开第几个sheet
ws.Select()
app.Visible = True
|
|
| -- 作者：雁过不留痕8 -- 发布时间：2012/12/20 12:44:00 -- 刚试了一下，是这个问题， 我把"C:\\型号规格配置及参数设置表(模版)20121217.xls"中（模板）去掉之后就好使了
|