sendkeys “%{A}” 另存新檔問題

excel vba

darban 2022-11-06 16:52:09 ‧ 1181 瀏覽

分享至

如在網路上找到的這張圖片
VBA使用sendkeys “%{A}”想另存新檔,結果有回應的是我的最愛

該如何使用sendkeys達成另存新檔呢?(另存新檔隱藏在儲存裡)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

生活實踐家Adam

iT邦新手 4 級 ‧ 2022-11-07 01:29:40

最佳解答

請將
sendkeys “%{A}”
改為
SendKeys "A"
即可正常執行。
下面提供一個另存網頁的範例:

Function SaveWebPage()
     Set web = CreateObject("InternetExplorer.Application")
     web.Visible = True
     For i = 1 To 10
     Dim WshShell
     Set WshShell = CreateObject("WScript.Shell")
     URL = "www.google.com"
     web.Navigate URL
     Do

       Loop Until web.readystate = 1

       WshShell.AppActivate (i)
       WshShell.SendKeys "%F"
       WshShell.SendKeys "A"
       WshShell.SendKeys i
       WshShell.SendKeys "{ENTER}"
       WshShell.SendKeys "%F"
       WshShell.SendKeys "C"
     Next
End Function

回應 1
分享
檢舉

darban iT邦新手 5 級 ‧ 2022-11-07 08:56:23 檢舉

試過了,真的是SendKeys "A"
但是需先展開儲存裡面的選項才行,
另存新檔沒有顯示出來,按了仍舊是沒反應,
所以我用的是4句
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{DOWN}"
Application.SendKeys "A"

登入發表回應