返回列表下一主題上一主題發帖

怎麼接收網頁資料

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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