ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

«ç»ò±µ¦¬ºô­¶¸ê®Æ

«ç»ò±µ¦¬ºô­¶¸ê®Æ

¦bºô¸ô¤W§ä¨ì³o­Ó
¬õ¦â¬O¿ý»s¥[¤Jªº,«ç»ò¥i¥Hµn¤Jºô­¶,¦ý«ç»òµLªk¨Ï¥Î·s¼Wweb¬d¸ß
»Ý­n«ç»ò­×§ï?ÁÂÁÂ~
Sub macro1()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.cnyes.com/_mem_bin/FormsLogin.asp?http://www.cnyes.com/global/gl_idx.asp"
Do Until .Readystate = 4
DoEvents
Loop
.Document.f1.cn.Value = "id"
.Document.f1.UserPASSWORD.Value = "password"
.Document.f1.submit
End With
  With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.cnyes.com/global/gl_idx.asp?type=1", Destination:=Range("A1") _
        )
        .Name = "gl_idx.asp?type=1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With

End Sub
ªì¾ÇªÌcolor

??
«ç»ò³£¨S¤H
ªì¾ÇªÌcolor

TOP

¥»©«³Ì«á¥Ñ ¨F©Ôªo ©ó 2010-11-30 21:18 ½s¿è

§A§â¨âºØ¤£¦Pªº¥\¯à³£¼g¦b¤@°_¡A¹ê¦b¤£ª¾¹D«ç»òÁ¿¡I
WEB¬d¸ßªº¤è¦¡§A¥i¥H¸Õ¸ÕÃþ¦üªº§@ªk¬Ý¬Ý¦³¨S¦³®Ä¡I
IE ªº¤è¦¡¤£¬O«Ü·Q¬ã¨s¡A¥»½×¾Â¦³«Ü¦h¨Ò¤l¡A§A¦Û¤v·j´M¤@¤U¨Ã¸ÕµÛ¥h²z¸Ñµ{¦¡ªº·N¸q

ps. ¦pªG¬°¤F­n¦^µª§A³o­Ó°ÝÃDÁÙ­n¥hµù¥U¤@­Ó±b¸¹¡A¨º»ò¬Ý¬Ý¨ä¥Lª©¥D­ÌÄ@¤£Ä@·N¡C
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD