µLªk¥Î¶W³sµ²¤U¦p¦óimport¬Y­Óµøµ¡µe­±¤¤ªºDATA

cdkee

¦]¬°µLªk¥Î¶W³sµ²¤èªk¡A¬Y­Óµøµ¡µe­±¤¤§t¦³·|Åܰʪº¼Æ¦rdata¡A¬O§_¥icaptureµe­±¤¤ªºdata¡A¦Aimport¨ìexcel¡A¤S¥i¤£Â_§ó·s?©Î¦³¨ä¥L¤èªk?
½Ð±Ð¤j¤j¡AÀ³«ç¼Ë¼g?¤p½ú¦A¦¸·PÁÂ!

Hsieh

µøµ¡µe­±¬Oºô­¶©Î¬O¨ä¥Lµ{¦¡ªºµøµ¡?

cdkee

µøµ¡µe­±¬Oºô­¶©Î¬O¨ä¥Lµ{¦¡ªºµøµ¡?
Hsieh µoªí©ó 2010-11-1 19:22

    ª©¤j¡A¬O¨ä¥Lµ{¦¡ªºµøµ¡¡C

cdkee

µøµ¡µe­±¬Oºô­¶©Î¬O¨ä¥Lµ{¦¡ªºµøµ¡?
Hsieh µoªí©ó 2010-11-1 19:22

    ½Ð±Ðª©¤j¡A­Yµøµ¡µe­±¬Oºô­¶(¦æJAVA)¡A¦]¬°¥ÎWeb Query¤èªk¤£¦¨¡A¦p¦ó§Q¥ÎVBA¶×¤J?¤p½ú¦A¤TÁÂÁÂ!

cdkee

½Ð±Ðª©¤j¡A­Yµøµ¡µe­±¬Oºô­¶(¦æJAVA)¡A¦]¬°¥ÎWeb Query¤èªk¤£¦¨¡A¦p¦ó§Q¥ÎVBA¶×¤J?cdkee µoªí©ó 2010-11-3 12:16

    ¦bºô¤W§ä¨ìªº¤@¨Ç¤À¨É¡A¦ý¤£©ú©Ò«ü:
"§ä¨ì±±¥óID¡A¬Ý¤@¤U¦³¨S¦³¿ìªk¥Îapiª½±µÅª¨ú±±¥ó¤å¥»¡AµM«á¦A³B²z¤@¤U©ñ¤J¤u§@ªí¤¤"

cdkee

¦^´_ 6# ¦Ñ®L


    ÁÂÁ¦ѮL«e½ú!¦ý¬O­n¤£Â_§ó·s³á...

¦]¬°µLªk¥Î¶W³sµ²¤èªk¡A¬Y­Óµøµ¡µe­±¤¤§t¦³·|Åܰʪº¼Æ¦rdata¡A¬O§_¥icaptureµe­±¤¤ªºdata¡A¦Aimport¨ìexcel¡A¤S¥i¤£Â_§ó·s?©Î¦³¨ä¥L¤èªk?
½Ð±Ð¤j¤j¡AÀ³«ç¼Ë¼g?¤p½ú¦A¦¸·PÁÂ!cdkee µoªí©ó 2010-11-1 11:45

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

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½ú«ü¾É!

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

¦^´_ 11# ¦Ñ®L


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