標題: 怎麼接收網頁資料 [打印本頁]

---

作者: color790    時間: 2010-11-17 15:01     標題: 怎麼接收網頁資料

在網路上找到這個
紅色是錄製加入的,怎麼可以登入網頁,但怎麼無法使用新增web查詢
需要怎麼修改?謝謝~
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

---

作者: color790    時間: 2010-11-24 20:42

??
怎麼都沒人

---

作者: 沙拉油    時間: 2010-11-30 20:51

本帖最後由 沙拉油 於 2010-11-30 21:18 編輯

你把兩種不同的功能都寫在一起，實在不知道怎麼講！
WEB查詢的方式你可以試試類似的作法看看有沒有效！
IE 的方式不是很想研究，本論壇有很多例子，你自己搜尋一下並試著去理解程式的意義

ps. 如果為了要回答你這個問題還要去註冊一個帳號，那麼看看其他版主們願不願意。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)