hsiao13

GBKEE 大大
歹勢，我的問題打錯了。
我是要問我使用你的程式碼如何讓http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html
可以選擇不同的股票代碼匯入這網頁的資料
可否指導一下。

cji3cj6xu6

若將代號放在a1的位置，應該是這樣寫吧！
WebAddress = "/pchome.syspower.com.tw/stock/sto2/ock2/sid" & [A1] & ".htm"

GBKEE

回復 20# hsiao13

程式碼還是無法匯入http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html

對不起了,這網頁我搞不定它.

hsiao13

回復 2# GBKEE
我想問如何能在excel中可以直接輸入代碼，在大大的程式碼中只有2330能輸出！

GBKEE

回復  GBKEE
我想問如何能在excel中可以直接輸入代碼，在大大的程式碼中只有2330能輸出！
hsiao13 發表於 2013/12/26 17:25

要在excel中直接輸入代碼, cji3cj6xu6 22# 可參考,但這網頁無法匯入資料.

stillfish00

回復 25# GBKEE
回復 24# hsiao13
24# 應該是指2#的方法吧？
比照7# InputBox 修改就好了。。。

iorikoyzz

請問各位大大,為什麼我這樣寫沒有辦法抓取 pchome 股票排行
如以下網址: http://pchome.megatime.com.tw/rank/sto0/ock08.html
都會抓到空白,
Sub 抓每月營收(weburl As String)
    Sheets("Temp").Activate           
                                      
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & weburl, Destination:=Range("A1"))
         .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False

    End With
End Sub

GBKEE

回復 27# iorikoyzz

這網頁 用QueryTables無效
試試看

1. Option Explicit
   
2. Sub 抓每月營收(weburl As String)
   
3.     Dim i As Integer, E As Object, K, R
   
4.     Sheets("Temp").Activate
   
5.     ActiveSheet.Cells.Clear
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Visible = True '顯示網頁
   
8.         .Navigate weburl
   
9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
10.         Set E = .Document.all.TAGS("TABLE")(0)
    
11.         K = 1
    
12.         For Each R In E.Rows
    
13.             For i = 0 To R.Cells.Length - 1
    
14.                 ActiveSheet.Cells(K, i + 1) = R.Cells(i).INNERTEXT
    
15.             Next
    
16.             K = K + 1
    
17.         Next
    
18.         .Quit        '關閉網頁
    
19.     End With
    
20. End Sub

複製代碼

iorikoyzz

Hi GBKEE大大:

你太強了,這可以用
非常謝謝你!!,
不過這是為什麼呢??

thanks