关闭窗体问题

vleexhya

请问各位老师：
cc = Application.Workbooks.Count - 1
If cc = 0 Then MsgBox "没有打开需要写入数据的文件！": Exit Sub
执行这个代码后窗体没关，如何让它既提示又可以 unload me 关闭窗体？
谢谢！

大灰狼1976

cc = Application.Workbooks.Count - 1
If cc = 0 Then MsgBox "没有打开需要写入数据的文件！": Unload Me: Exit Sub
'其他后续处理

vleexhya

大灰狼1976 发表于 2024-8-28 15:56
cc = Application.Workbooks.Count - 1
If cc = 0 Then MsgBox "没有打开需要写入数据的文件！": Unload M ...

多谢斑竹帮助！测试了一下，不行。补一个附件吧。

vleexhya

已补充附件,请老师们帮忙看看,谢谢!

大灰狼1976

窗体还在初始化的时候，启动还没有完成，退出会出错，要放在UserForm_Activate事件里

vleexhya

大灰狼1976 发表于 2024-8-29 09:22
窗体还在初始化的时候，启动还没有完成，退出会出错，要放在UserForm_Activate事件里

谢谢版主!  我昨天也感觉不应该是在代码里控制, 窗体我刚接触,  不知道UserForm_Activate怎么搞.

大灰狼1976

这是你窗体内原来的代码：


Private Sub UserForm_Initialize()
Dim wb As Workbook
Dim br(), cc&
cc = Application.Workbooks.Count - 1
If cc = 0 Then MsgBox "没有打开需要写入数据的文件！": Unload Me: Exit Sub
ReDim br(1 To cc, 1 To 1)
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then   'And InStr(wb.Name, "数据源") = 0 Then
        n = n + 1
        br(n, 1) = wb.Name
    End If
Next wb
ListBox1.List = br
End Sub


事件改一下，变成下面（就改个事件，内容不变，功能也基本不变）：

Private Sub UserForm_Activate()
Dim wb As Workbook
Dim br(), cc&
cc = Application.Workbooks.Count - 1
If cc = 0 Then MsgBox "没有打开需要写入数据的文件！": Unload Me: Exit Sub
ReDim br(1 To cc, 1 To 1)
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then   'And InStr(wb.Name, "数据源") = 0 Then
        n = n + 1
        br(n, 1) = wb.Name
    End If
Next wb
ListBox1.List = br
End Sub

大灰狼1976

vleexhya 发表于 2024-8-29 09:30
谢谢版主!  我昨天也感觉不应该是在代码里控制, 窗体我刚接触,  不知道UserForm_Activate怎么搞.

就是在代码里控制，你现在用的事件是UserForm_Initialize，改成用UserForm_Activate
代码审核中

张劲松2024

学习了！！！！！！！！！！！！！！！！！

vleexhya

大灰狼1976 发表于 2024-8-29 09:33
这是你窗体内原来的代码：

多谢斑竹老师!  我是临时报佛脚, 有窗体需求的前两天求助的, 论坛的老师们帮我写的代码, 昨天感觉就差这一点就完美了.   我晚点百度一下两者的区别,谢谢!