oobird

¦^´_  oobird

³o¼Ëªº°ÝÃDÀ³¸Ó¦³ÂIÃþ¦ü¬Ý½L³nÅé
excel³z¹Ldde³q¹D´£¨ú¬Ý½L³nÅé¸ê®Æ
­Y¬O§A¥Îie¶}±Ò¦¹Ãþ ...
Hsieh µoªí©ó 2010-11-4 09:25

    ¤£À´ªÑ²¼¡A¤]¨S¦³DDE,¤£¹L¥i¥H·Q¹³¡A¦pGOOGLE½Ķºô­¶¡A¥H«e¥i¥H¨ú±o¸ê®Æ¡A²{¦b¤]Ū¤£¨ì¤F¡I

Hsieh

¦^´_ 14# oobird

³o¼Ëªº°ÝÃDÀ³¸Ó¦³ÂIÃþ¦ü¬Ý½L³nÅé
excel³z¹Ldde³q¹D´£¨ú¬Ý½L³nÅé¸ê®Æ
­Y¬O§A¥Îie¶}±Ò¦¹ÃþÀ³¥Îµ{¦¡À˵ø¨ä­ì©l½X¬Ý¬O§_¯à¨ú±oºô­¶©Ò¦³¤º®e

oobird

ÁÂÁª©¤j´£ÂI!
¸Óºô­¶¥²¶·¸Ë¤WJAVA¤~¥iÅã¥ÜDATA¡Aµ{¦¡¤ä«ùªº»y¨¥¬O§_«ü³o­Ó?
cdkee µoªí©ó 2010-11-3 23:32

    ¬Ý³o±¡§Î§AÀ³¸Ó¦bJAVA¤W°µ¡A§A¬O§_¶]¿ù¦a¤è¤F¡H

cdkee

¦pªG¤@¯ëºô­¶¦Ó¨¥¡A¥i¥Ñºô­¶±±¥óª½±µÂ^¨ú
­Y¬O¨ä¥LÀ³¥Îµ{¦¡¥HWEB¶}±Ò¨º»ò¥i¯à­n¬Ý¸Óµ{¦¡¤ä«ùªº»y¨¥¦Ó©w
Hsieh µoªí©ó 2010-11-3 23:22

ÁÂÁª©¤j´£ÂI!
¸Óºô­¶¥²¶·¸Ë¤WJAVA¤~¥iÅã¥ÜDATA¡Aµ{¦¡¤ä«ùªº»y¨¥¬O§_«ü³o­Ó?

Hsieh

¦pªG¤@¯ëºô­¶¦Ó¨¥¡A¥i¥Ñºô­¶±±¥óª½±µÂ^¨ú
­Y¬O¨ä¥LÀ³¥Îµ{¦¡¥HWEB¶}±Ò¨º»ò¥i¯à­n¬Ý¸Óµ{¦¡¤ä«ùªº»y¨¥¦Ó©w

cdkee

¦^´_ 12# oobird


    ÁÂÁª©¤jÁ|¨Ò«ü¾É!
¤p½ú°ÝÃDªººô­¶­nLOGIN¤~¬Ý¨ìDATA¡A¦Ó¥B¬O¦æJAVA¡A¥ÎWeb Query¤èªk¤£¦¨!

cdkee

¦^´_ 11# ¦Ñ®L


    «e½ú³o¼Ë»¡¡A¬Ý¨Ó³o¬O¤@­Ó«Ü½ÆÂøªº°ÝÃD!

oobird

µLªkª¾¹D§A­n¬d¤°»ò¡AÁ|­Ó¨Ò¤l§a¡G¦ba1Àx¦s®æ¬d¸ß¥»ª©¦b½u¤H¼Æ
Sub Test()
    With CreateObject("Microsoft.XMLHTTP")
            .Open "get", "http://forum.twbts.com/index.php", False
            .send
            [a1] = Split(Split(.responseText, "- <em>")(1), "</em>")(0)
    End With
End Sub
¨C¦¸¹B¦æ§Y§ó·s

cdkee

¦^´_ 9# ¦Ñ®L


    ¦AÁÂÁ«e½ú«ü¾É!
¬O¤p½ú»¡¤£²M·¡!¬O­nºô­¶¤¤§t¦³·|Åܰʪº¼Æ¦rdata¡A³sµ²¨ìÀx¦s®æ¡A¤S¥i¤£Â_§ó·s¡A½Ð«e½ú¤£¹½¤p½ú°ÝÃD¦h¡A¦A½Ð«e½ú«ü¾É!

cdkee

¸ò¦Ñ®L«e½úªº¤è¦V§ä¡A§ä¨ì¥H¤Usample¡A(¤p½ú¤£¤~¡A¤£©ú¨ä¤¤)¤£ª¾¬O§_«e½ú©Ò«ü:
'**Win32 API Declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowName As String) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, IpRect As RECT) As Long

'**Win32 API User Defined Types
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub test()
Dim Rec As RECT
'Get Left, Right, Top and Bottom of Form1
GetWindowRect GetWindowHandle, Rec
'Set Cursor position on X
SetCursorPos Rec.Right - 600, Rec.Top + 400
End Sub

Private Function GetWindowHandle() As Long
Const CLASSNAME_MSExcel="XLMAIN"
'Gets the Apps window handle, since you can't use App.hInstance in VBA (VB Only)
GetWindowHandle = FindWindow(CLASSNAME_MSExcel, vbNullString)
End Function