PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-1-15 00:09 | 只看該作者

[發問] SendKeys 要如何能夠輸入英文而非中文

SendKeys

主要的問題是,當我輸入sendkeys的時候
無法知道目前是中文還是英文

我目前的解決方法是再給她一個
Application.SendKeys "+"的指令,讓他按一下shift可以切換輸入法
但是萬一他目前就是英文切換反而變成中文了...

要如何可以透過Application.SendKeys 來強迫輸入英文呢?
我的目的是要輸入"C:\update.csv" 這串文字(透過Application.SendKeys的方式)

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2017-1-17 13:55 | 只看該作者

回復 4# Scott090

這個厲害哦!完全解決我的問題,感恩!

PKKO

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 257
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2017-1-17 10:05 | 只看該作者

回復 1# PKKO

  '中文輸入模入
Sub CHmode()
If IMEStatus = vbIMEModeOff Then
      SendKeys "+", True
End If
End Sub

'英文輸入模式
Sub ENmode()
If IMEStatus = vbIMEModeOn Then
      SendKeys "+", True
End If
End Sub

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 257
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2017-1-17 05:14 | 只看該作者

回復 1# PKKO

的確很困擾!!
之前有討論過輸入法的狀態：
http://forum.twbts.com/thread-13747-1-1.html

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-1-15 00:53 | 只看該作者

本帖最後由 singo1232001 於 2017-1-15 00:54 編輯

抱歉,目前我可能是不懂裝懂,等高手大大回覆或者討論比較準確
我在猜
sendkey 只是用出鍵盤上的按鍵,非字元
可能要找keycode 或者 ascII 來對照英文字母
或者他只能輸出1個單字這樣 xd

https://www.youtube.com/watch?v=QYitiKYyMnY
https://www.youtube.com/watch?v=Syr9PBARr_0
不知道這個有沒有可能

TOP