一個用VBA從網頁取得想要資料的寫法~ - Excel程式區

帖子: 26
主題: 7
精華: 0
積分: 27
點名: 0
作業系統: WINDOWS
軟體版本: OFFICE 2013
閱讀權限: 10
性別: 男
註冊時間: 2014-1-21
最後登錄: 2021-3-25

論壇贊助勳章

1^# 跳轉到 »

發表於 2014-1-22 13:24 | 顯示全部帖子

回復 white5168
回復 vesperlee
請試試看！
c_c_lai 發表於 2012-5-1 16:42

我把CC大的程式修改我想要股票名稱,但為何會跑出"必須是常數運算式"的錯誤訊息,請問我下面的寫法有錯嗎?
那不然要如何更改自己想要的股票代號呢?
請指教我這個VBA新手,謝謝

Sub a()
x = Worksheets("sheet1").Range("l1")
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & x & ".asp.htm"
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
      .Visible = False 'True為開啟ie, False為不開啟ie
      .Navigate url
      Do While .ReadyState <> 4 '等待網頁開啟
         DoEvents
      Loop
      .ExecWB 17, 2 'Select All
      .ExecWB 12, 2 'Copy selection
      Sheets("Sheet1").Cells.Select
      Range("A1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
            False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete
ie.Quit
MsgBox "資料複製結束"
End Sub

帖子: 26
主題: 7
精華: 0
積分: 27
點名: 0
作業系統: WINDOWS
軟體版本: OFFICE 2013
閱讀權限: 10
性別: 男
註冊時間: 2014-1-21
最後登錄: 2021-3-25

論壇贊助勳章

2^#

發表於 2014-1-22 13:26 | 顯示全部帖子

對了,順便再補問一下,類似這種網站,可以用錄製巨集的方式再下去修改嗎?
還是必須依上面大大的寫法下去修改呢?
因為靠自己寫出來,不用每次都靠別人幫忙,謝謝

帖子: 26
主題: 7
精華: 0
積分: 27
點名: 0
作業系統: WINDOWS
軟體版本: OFFICE 2013
閱讀權限: 10
性別: 男
註冊時間: 2014-1-21
最後登錄: 2021-3-25

論壇贊助勳章

3^#

發表於 2014-1-22 17:48 | 顯示全部帖子

回復 21# GBKEE
G大,謝謝您的耐心指教,依您的方式,我的寫法如下:
有以下幾個問題
1.為何我已指定代號在A1,但帶出表頭,而沒有資料?

2.為何我指定放置位置於Range("AA1").Activate,跑完還是放在A2?

Sub Test()
Dim x, ur As String
x = Worksheets("sheet1").Range("a1")
Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_AAAA.asp.htm"
MsgBox url
ur = "http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & x & ".asp.htm"
MsgBox ur
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
      .Visible = False 'True為開啟ie, False為不開啟ie
      .Navigate url
      Do While .ReadyState <> 4 '等待網頁開啟
         DoEvents
      Loop
      .ExecWB 17, 2 'Select All
      .ExecWB 12, 2 'Copy selection
      Sheets("Sheet1").Cells.Select
      Range("AA1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
            False, NoHTMLFormatting:=True
End With
Columns("A:B").Delete
ie.Quit
MsgBox "資料複製結束"
End Sub

煩請G大再幫我看看,謝謝

帖子: 26
主題: 7
精華: 0
積分: 27
點名: 0
作業系統: WINDOWS
軟體版本: OFFICE 2013
閱讀權限: 10
性別: 男
註冊時間: 2014-1-21
最後登錄: 2021-3-25

論壇贊助勳章

4^#

發表於 2014-1-23 09:36 | 顯示全部帖子

回復 23# GBKEE
G大,感謝您,已經可以跑了,雖然內容有很多我還是不太了解,但您已經給了很大的方向了,感謝唷!