当从outlook vba运行宏时显示excel文件
问题描述:
我在Outlook中写入一个宏来设置excel文件中打开的单元格的值。当从outlook vba运行宏时显示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
我的问题是,当我运行此宏,细胞正常的设定值,但我还是站在Outlook应用程序,怎么能当我在Outlook中运行宏将其设置为单元格的值,并显示这个Excel文件,而不是仍然站在前景
答
要做到这一点的方法是尽量减少应用程序窗口,然后使其最大化。
objExcel.WindowState = xlMinimized
objExcel.WindowState = xlMaximized
您只需激活展望 – 2016-11-20 15:05:57
我复制你的线给我的脚本,请看看我的脚本编辑之上,但它得到错误“无效的过程调用或参数”。请告诉我它有什么问题 – Bruce