Question

我在outlook中编写一个宏来设置打开的excel文件中的单元格值。

Sub test()
    Dim objExcel As Object, WB As Object, WS As Object
    Set objExcel = GetObject(, "Excel.Application")
    objExcel.Visible = True
    Set WB = objExcel.Workbooks("Book1.xlsm")
    WB.Activate
    Set WS = WB.Worksheets("Sheet1")
    AppActivate "Microsoft Outlook"
    WS.Range("A1").Value = "hoho"
End Sub

我的问题是当我运行这个宏它为单元格设置值ok，但我仍然站在Outlook应用程序中，当我在Outlook中运行宏时它如何为单元格设置值并显示此excel文件而不是仍然站在Outlook中

Answer 1

这样做的方法是最小化应用程序窗口，然后最大化它。

objExcel.WindowState = xlMinimized 
objExcel.WindowState = xlMaximized

从outlook vba运行宏时显示excel文件

1 个答案: