- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导入代码加了 App.Quit 但程序里还是有excel程序 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10499)
-- 发布时间：2011/6/9 8:35:00
-- [求助]导入代码加了 App.Quit 但程序里还是有excel程序
[求助]导入代码加了 App.Quit 但程序里还是有excel程序
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
Dim mg As New Merger
mg.SourcePath = dlg.FileName
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Quit
mg.SourceTableName = Ws.Name & "$" \'指定要合并的表
mg.Format = "excel" \'指定格式
mg.DataTableName = "表A" \'指定接收数据的表
mg.Merge() \'开始合并
End If
此主题相关图片如下：12.jpg
附近在这个帖子中:
-- 发布时间：2011/6/9 8:49:00
--
我已经回复你的另一个帖子
-- 发布时间：2011/6/9 9:08:00
--
谢谢啊!book.Sheets(0).Name代码我就不知道有
-- 发布时间：2011/6/9 9:09:00
--
以下是引用shacool在2011-6-9 9:08:00的发言：
谢谢啊!book.Sheets(0).Name代码我就不知道有
http://help.foxtable.com/topics/1152.htm