Foxtable(狐表)用户栏目专家坐堂 → [求助]导入代码加了 App.Quit 但程序里还是有excel程序


  共有12849人关注过本帖树形打印复制链接

主题:[求助]导入代码加了 App.Quit 但程序里还是有excel程序

帅哥哟,离线,有人找我吗?
shacool
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
[求助]导入代码加了 App.Quit 但程序里还是有excel程序  发帖心情 Post By:2011/6/9 8:35:00 [只看该作者]

[求助]导入代码加了 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
图片点击可在新窗口打开查看

附近在这个帖子中:

http://www.datasoft.com.cn/dispbbs.asp?boardid=2&Id=10486



 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/9 8:49:00 [只看该作者]

我已经回复你的另一个帖子


 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2011/6/9 9:08:00 [只看该作者]

谢谢啊!book.Sheets(0).Name代码我就不知道有

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/9 9:09:00 [只看该作者]

以下是引用shacool在2011-6-9 9:08:00的发言:
谢谢啊!book.Sheets(0).Name代码我就不知道有

http://help.foxtable.com/topics/1152.htm

 


 回到顶部