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

我在outlook中写macros，为正在打开的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 

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

Answer 1

要做到这一点的方法是尽量减less应用程序窗口，然后使其最大化。

 objExcel.WindowState = xlMinimized objExcel.WindowState = xlMaximized