網頁資料轉到excel的問題

miketyc33

當把網頁的資料copy到excel時每一行會變成一格資料
我想讓所有資料以原來的樣子貼在同一個儲存格 該如何做呢

我的程式碼如下
Sub IE()
    Dim myhr
    Dim IEbrowser As Object
    Set IEbrowser = CreateObject("InternetExplorer.Application")
   
    myhr = "http://tw.yahoo.com/"
   
   With IEbrowser
     .navigate myhr
     Do While .busy
         DoEvents
     Loop

     .document.execCommand "SelectAll", False
     .document.execCommand "Copy", False

     With Worksheets("Sheet1")
       .Range("A" & .[A65536].End(3).Row + 1).Select
       .Paste
     End With

      .Quit
    End With
  Set IEbrowser = Nothing
End Sub

oobird

雅虎首頁能copy什麼資料？
網頁的佈局不是excel能勝任的
無法做到在工作表上保持該首頁原樣。
你可以嘗試文字表格的網頁。

miketyc33

yahoo只是舉例, 我的意思是說 如所把所有的資料都copy到同一個儲存格 就是所有的文字都在同一格...
表格copy過來就一格一個資料..
我要所有資料都貼在同一格...
就像開IE到網頁全選
然後到excel的資料格點兩下後貼上一樣...全部的資料都在同一格..

oobird

建議你多看看前面的範例，有許多頡取網頁資料的方法可用。

Hsieh

建議你多看看前面的範例，有許多頡取網頁資料的方法可用。
oobird 發表於 2011-8-3 20:07

若是單純全選複製貼上，參考看看

1. Sub nn()
   
2. '請先設定引用項目Microsoft Internet Controls
   
3. Dim MyIE As InternetExplorer
   
4. Set MyIE = CreateObject("InternetExplorer.Application")
   
5. With MyIE
   
6. .Navigate "http://forum.twbts.com/thread-4238-1-1.html" '輸入網址
   
7. .Visible = True
   
8. Do Until .ReadyState = READYSTATE_COMPLETE: Loop
   
9. .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
   
10. .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    
11. .Quit
    
12. End With
    
13. DoEvents
    
14. Sheet1.Select
    
15. Sheet1.[A1].Select
    
16. Application.Wait Now + TimeValue("00:00:01")
    
17. SendKeys ("{F2}")
    
18. SendKeys ("^v")
    
19. SendKeys ("^~")
    
20. DoEvents
    
21. End Sub

複製代碼

miketyc33

感謝 問題解決了 原來還可以用送鍵盤值來進行.....感謝指導..