| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1840 人关注过本帖
标题:vb6 关闭指定的工作簿的代码如何写?
只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:12 
vb6 关闭指定的工作簿的代码如何写?
   以下是判断指定的工作簿是否打开的代码
 On Error Resume Next
    Set wbk = Workbooks("e:\asd.xls")
    If Err.Number <> 0 Then
        MsgBox "没有打开"
    Else
        MsgBox "打开"
    '在此处加关闭("e:\asd.xls")的代码
    End If
Err.Clear
搜索更多相关主题的帖子: 如何 
2014-08-20 15:34
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:3 
工作簿是用vb6打开还是excel?
excel打开的可以用getobject 得到打开的excel再进行操作。
2014-08-20 16:29
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 2 楼 bczgvip
是人工打开的。
2014-08-20 16:42
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:3 
wbk.Application.Quit,这样应该可以,试试看
2014-08-20 22:51
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
收藏
得分:0 
实在对不起2和3楼两位,1楼的代码可能是VBA的,所以把其用于VB6是不正确的,请各位用VB6的代码解决此问题。谢谢。
2014-08-21 09:48
啊良
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:29
专家分:105
注 册:2014-5-21
收藏
得分:3 
这个是能帮助你不:
利用VB实现关闭程序.rar (3.71 KB)

VB6.0
Q:554268420
2014-08-21 19:14
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 6 楼 啊良
下载您提供的附件后:解压→打开”工程1.vbp“→“启动”→“刷新”或“关闭程序”,都不能对事先打开的一个工作簿起到关闭的作用,何因?
2014-08-22 07:09
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:3 
窗体:list1
      command1, 刷新
      command2, 关闭工作簿
----------------------------------------
Option Explicit

Dim excel1 As Object

Private Sub Command1_Click()
On Error Resume Next                '让错误继续下一步

    '引用 已打开的 Excel 对象
Set excel1 = GetObject(, "Excel.Application")           'Excel 对象
If Err.Number <> 0 Then                                 '没打开
    Err.Number = 0
    Set excel1 = GetObject(, "ET.Application")          'wps 表格 V8 DLL
    If Err.Number <> 0 Then
        Err.Number = 0
        Set excel1 = GetObject(, "Ket.Application")     'wps表格 V9 DLL
        If Err.Number <> 0 Then                         '最终的错误
            MsgBox "没有运行Excel 或 WPS 表格(Et)。运行后重新刷新。", vbCritical, "错误"
            Exit Sub
        End If
    End If
End If
Call rework
End Sub

Private Sub Command2_Click()
excel1.workbooks(List1.ListIndex + 1).Close            '关闭工作簿

Call rework
End Sub

Private Sub rework()
Dim i As Long

    List1.Clear
    '导入所有的工作簿
    With excel1
        For i = 1 To .workbooks.Count
            List1.AddItem .workbooks(i).Name
        Next i
    End With
End Sub
收到的鲜花
  • HVB62014-08-22 15:34 送鲜花  2朵  

授人于鱼,不如授人于渔
早已停用QQ了
2014-08-22 08:34
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 8 楼 风吹过 b
以下代码出错
Private Sub Command2_Click()
excel1.workbooks(List1.ListIndex + 1).Close            '关闭工作簿

Call rework
End Sub
关闭指定的工作簿.rar (2.14 KB)

2014-08-22 09:40
啊良
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:29
专家分:105
注 册:2014-5-21
收藏
得分:0 
找到啦,指定关闭:Microsoft Excel - asd
指定关闭asd.rar (3.33 KB)
收到的鲜花
  • HVB62014-08-22 15:35 送鲜花  2朵  

VB6.0
Q:554268420
2014-08-22 10:37
快速回复:vb6 关闭指定的工作簿的代码如何写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017390 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved