每次运行宏按钮就消失了，这么怎么改呢，高手帮忙看看，小弟膜拜

蒋智龙 · 发表于 2022-12-3 09:11

3190496160 · 发表于 2022-12-3 09:30

Sub 页码()
Columns(1).ClearContents
On Error Resume Next
Dim a
i = 1
For Each sht In Sheets
      If sht.Index > 1 Then
         sht.Activate
         a = ExecuteExcel4Macro("Get.Document(50)")
         Sheets("目录").Cells(i, 1) = a
         i = i + 1
         Sheets("目录").Select
      End If
Next
End Sub

于箱长 · 发表于 2022-12-3 09:31

我这里没有消失啊，代码里也没有删除对象的指令啊

3190496160 · 发表于 2022-12-3 09:32

蒋智龙 · 发表于 2022-12-3 09:42

3190496160 发表于 2022-12-3 09:32

感谢大哥

终身授用

杨建营 · 发表于 2022-12-3 11:33

蒋智龙 · 发表于 2022-12-4 08:59

于箱长发表于 2022-12-3 09:31
我这里没有消失啊，代码里也没有删除对象的指令啊

你用的什么版本的office

于箱长 · 发表于 2022-12-4 09:25

蒋智龙发表于 2022-12-4 08:59
你用的什么版本的office

wps2019

蒋智龙 · 发表于 2022-12-4 11:09

于箱长发表于 2022-12-4 09:25
wps2019

不知道原版的微软的office跟 WPC那个好用···· 我感觉微软office老出问题

		自动登录	找回密码
密码			免费注册

[求助] 每次运行宏按钮就消失了，这么怎么改呢，高手帮忙看看，小弟膜拜