Niezbyt rozumiem co chcesz osiągnąć, albo dokładniej dlaczego wybrałeś API. Jeśli mógłbyś opisać skąd i dokąd masz zamiar kopiować (czy tylko z excela i do excela)? Czy wklejanie z klawiatury ma polegać na Ctrl+v?
Danymi z Excela wypełniam formularz Firefoxa.
napisał: Trebor postów: 1209
umieszczony: 23 maja 2012 19:00
Niezbyt rozumiem co chcesz osiągnąć, albo dokładniej dlaczego wybrałeś API. Jeśli mógłbyś opisać skąd i dokąd masz zamiar kopiować (czy tylko z excela i do excela)? Czy wklejanie z klawiatury ma polegać na Ctrl+v?
napisał: nautil9999 postów: 5
umieszczony: 22 maja 2012 21:16
Proszę o informację, czemu tak dziwnie to wkleja. Nie wkleja w obecnie wskazany punkt, tylko w poprzedni. Zależy mi na myszy i klawiaturze (więc proszę nie podpowiadać np. Range("c3")=Range("a1")). (Robiłem to też na myClipboard. ale to nie ma wpływu). Pozdrawiam.
Private Declare Sub mouse_event Lib "USER32" _
(ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "USER32" _
(ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Type POINT
X As Long
Y As Long
End Type
Sub test()
Range("a1").Copy
SetCursorPos 200, 250 'przemieszczenie kursora
mouse_event &H6, 0, 0, 3, 3 'kliknięcie lewym
Sleep 2000 'postój tylko dla wizualizacji
SendKeys "^v", True 'kawiatura: Ctrl+V
Sleep 2000 'postój tylko dla wizualizacji
Range("a2").Copy
SetCursorPos 200, 300
mouse_event &H6, 0, 0, 3, 3
Sleep 2000
SendKeys "^v", True
End Sub
wstecz 1 dalej
otwarty rozpoczął: nautil9999
postów: 5
