麻烦大师们贴出代码,严重感谢!!!!
SendKeys "^V", True 不行,因为光标被VB窗口占用了,无法粘贴到word里面去
ç¨VBä¸å®ç°å¤å¶ãç²è´´ï¼
æ¹æ³ä¸ï¼ç¨åªè´´æ¿æä½
Clipboard.SetText abc
æå符串å¤åéabcä¸çå符串å¶å°åªè´´æ¿
def = Clipboard.GetText
æåªè´´æ¿ä¸çå符串èµå¼ä¸ªå符串åédef
æ¹æ³äºï¼åéé®çæ令
è°ç¨SendKeysï¼åå½åæ´»å¨çªå£åéé®çæ令
SendKeys "^C", True
表示åå½åæ´»å¨çªå£åéé®çæ令 Ctrl + C ï¼å ¶ä¸ï¼â^â符å·ä»£è¡¨Ctrlæé®ãè¿ä¸ªå¯ç¨äºå¤å¶ã
SendKeys "^V", True
表示åå½åæ´»å¨çªå£åéé®çæ令 Ctrl + V ï¼å ¶ä¸ï¼â^â符å·ä»£è¡¨Ctrlæé®ãè¿ä¸ªå¯ç¨äºç²è´´ã
注æï¼å¨åéé®çæ令ä¹åï¼å 让Wordåå¾ç¦ç¹ï¼æ为å½åæ´»å¨çªå£ã
å¦ä½è®©Wordåå¾ç¦ç¹ï¼é£å°±ä½¿ç¨Windows APIå½æ°ãå¨VBä¸è°ç¨Windows APIå½æ°è¦å 声æï¼
éè¦ä¸¤ä¸ªå£°æï¼
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
ç¶åï¼è°ç¨ï¼
Dim hWnd As Long ' çªå£å¥æ
hWnd = FindWindow(vbNullString, "è¿éæ¯ç¨åºçæ è¯ç¬¦") ' åå¾çªå£å¥æ
SetForegroundWindow hWnd ' 设置为活å¨çªå£
ç»è¿ææµè¯ï¼ä»¥ä¸ä»£ç å¯ä»¥åè®°äºæ¬ç²è´´æåï¼
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim hWnd As Long ' çªå£å¥æ
hWnd = FindWindow("notepad", vbNullString) ' è·å¾è®°äºæ¬ççªå£å¥æï¼notepadæ¯è®°äºæ¬
SetForegroundWindow hWnd ' æè®°äºæ¬è®¾ç½®ä¸ºå½åæ´»å¨çªå£
Sleep 100 ' 延æ¶100毫ç§ï¼æè®°äºæ¬è®¾ç½®ä¸ºå½åçªå£éè¦æ¶é´ï¼
SendKeys "^V", True ' åéé®çæ令 Ctrl +V ï¼å®ç°âç²è´´â
End Sub
æ¹æ³ä¸ï¼ç¨åªè´´æ¿æä½
Clipboard.SetText abc
æå符串å¤åéabcä¸çå符串å¶å°åªè´´æ¿
def = Clipboard.GetText
æåªè´´æ¿ä¸çå符串èµå¼ä¸ªå符串åédef
æ¹æ³äºï¼åéé®çæ令
è°ç¨SendKeysï¼åå½åæ´»å¨çªå£åéé®çæ令
SendKeys "^C", True
表示åå½åæ´»å¨çªå£åéé®çæ令 Ctrl + C ï¼å ¶ä¸ï¼â^â符å·ä»£è¡¨Ctrlæé®ãè¿ä¸ªå¯ç¨äºå¤å¶ã
SendKeys "^V", True
表示åå½åæ´»å¨çªå£åéé®çæ令 Ctrl + V ï¼å ¶ä¸ï¼â^â符å·ä»£è¡¨Ctrlæé®ãè¿ä¸ªå¯ç¨äºç²è´´ã
注æï¼å¨åéé®çæ令ä¹åï¼å 让Wordåå¾ç¦ç¹ï¼æ为å½åæ´»å¨çªå£ã
å¦ä½è®©Wordåå¾ç¦ç¹ï¼é£å°±ä½¿ç¨Windows APIå½æ°ãå¨VBä¸è°ç¨Windows APIå½æ°è¦å 声æï¼
éè¦ä¸¤ä¸ªå£°æï¼
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
ç¶åï¼è°ç¨ï¼
Dim hWnd As Long ' çªå£å¥æ
hWnd = FindWindow(vbNullString, "è¿éæ¯ç¨åºçæ è¯ç¬¦") ' åå¾çªå£å¥æ
SetForegroundWindow hWnd ' 设置为活å¨çªå£
ç»è¿ææµè¯ï¼ä»¥ä¸ä»£ç å¯ä»¥åè®°äºæ¬ç²è´´æåï¼
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim hWnd As Long ' çªå£å¥æ
hWnd = FindWindow("notepad", vbNullString) ' è·å¾è®°äºæ¬ççªå£å¥æï¼notepadæ¯è®°äºæ¬
SetForegroundWindow hWnd ' æè®°äºæ¬è®¾ç½®ä¸ºå½åæ´»å¨çªå£
Sleep 100 ' 延æ¶100毫ç§ï¼æè®°äºæ¬è®¾ç½®ä¸ºå½åçªå£éè¦æ¶é´ï¼
SendKeys "^V", True ' åéé®çæ令 Ctrl +V ï¼å®ç°âç²è´´â
End Sub
温馨提示:答案为网友推荐,仅供参考