时间戳

首页 > 解决方案 > 如何在一个模块中运行两个应用程序

vba - 如何在一个模块中运行两个应用程序

问题描述

这两个代码不会同时运行。如何？我的类模块代码

Private sub-App_workbooknewsheet (byval wb as workbook, byval sh as object)
Application.Run "PERSONAL.XLSB!Open_It"
Application.Run "PERSONAL.XLSB!Change"
End sub

打开它

   Sub Open_it()
' Open the workbook from its actual folder
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\Users\ASUS User\Desktop\MP\source.xlsm", UpdateLinks:=True, ReadOnly:=True
    ActiveWindow.Visible = False
    ThisWorkbook.Activate
    Application.ScreenUpdating = True
End Sub

改变

 Sub Change()
    Columns(2).AutoFit
    Rows().AutoFit
End Sub

标签： vbaexcel

解决方案

你做得太难了。您只需要一个循环遍历所有工作表的宏source.xlsm

Dim ws As Worksheet

Application.DisplayAlerts = False

Workbooks.Open Filename:="C:\Users\ASUS User\Desktop\MP\source.xlsm", UpdateLinks:=True, ReadOnly:=True
    For Each ws In ActiveWorkbook.Worksheets
        ws.Columns(2).AutoFit
        ws.Rows().AutoFit
    Next

Application.DisplayAlerts = False

推荐阅读