當從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文件，而不是仍然站在前景

來源

2016-11-20 Bruce

您只需激活展望 – 2016-11-20 15:05:57

我複製你的線給我的腳本，請看看我的腳本編輯之上，但它得到錯誤「無效的過程調用或參數」。請告訴我它有什麼問題 – Bruce

要做到這一點的方法是儘量減少應用程序窗口，然後使其最大化。

objExcel.WindowState = xlMinimized 
objExcel.WindowState = xlMaximized

來源

2016-11-20 15:07:30

我將你的行復制到了我的腳本中，請查看我上面編輯過的腳本，但是它會收到錯誤「無效的過程調用或參數」。請告訴我它有什麼問題 – Bruce

Hello Thomas對不起，遲到了，我整天都在學校忙。謝謝你的回答，我檢查了你的功能，但它仍然不顯示excel文件。我的excel是開放的，我站在outlook中，我希望當我在outlook中運行宏時，它將excel中的單元格設置爲並顯示此文件，而不是使用鼠標單擊此任務欄上的excel文件 – Bruce

@Bruce我想知道。我更新了我的答案。 – 2016-11-21 14:56:13

當從outlook vba運行宏時顯示excel文件

回答

相關問題