gpt4 book ai didi

excel - 从外部 vbs 运行时宏的行为不同

转载 作者:行者123 更新时间:2023-12-04 20:53:48 32 4
gpt4 key购买 nike

我需要为打开的 xlsx 文件取消隐藏工作表 TAB,为此,我使用 VBS 文件打开 xlsm 文件并激活宏(位于模块中)。
当我手动运行宏时,它可以工作。
当它通过vbs激活时,它只能看到包含宏的xlsm文件,目前没有其他打开的excel。

有任何想法吗?
谢谢

vbs代码:

Set objExcel = CreateObject("Excel.Application")
Set book = objExcel.Workbooks.Open("C:\Users\23892\Desktop\restore_ribbon.xlsm")
objExcel.Application.Run "'C:\Users\23892\Desktop\restore_ribbon.xlsm'!Module1.Restore_Ribbons"
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Set objExcel = Nothing

宏代码:
Sub Restore_Ribbons()

Dim wb As Workbook
Dim str As String
For Each wb In Application.Workbooks
MsgBox wb.Name 'checking if name extracted correctly
wb.Activate
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
ActiveWindow.DisplayWorkbookTabs = True
wb.Application.ScreenUpdating = True

Next Workbook

MsgBox ("End")

End Sub

最佳答案

又是代码...
再次感谢

 Set objExcel = GetObject("C:\restore_ribbon.xlsm")
objExcel.Application.Run "'C:\restore_ribbon.xlsm'!Module1.Restore_Ribbons"
objExcel.Close
Set objExcel = Nothing

关于excel - 从外部 vbs 运行时宏的行为不同,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52646883/

32 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com