sách gpt4 ai đã đi

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

In lại 作者:行者123 更新时间:2023-12-04 20:53:48 33 4
mua khóa gpt4 Nike

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

有任何想法吗?
Cảm ơn

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

1 Câu trả lời

又是代码...
再次感谢

 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/

33 4 0
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com