Board logo

標題: 網頁資料轉到excel的問題 [打印本頁]
作者: miketyc33    時間: 2011-8-3 15:51     標題: 網頁資料轉到excel的問題

當把網頁的資料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    時間: 2011-8-3 17:35

雅虎首頁能copy什麼資料？
網頁的佈局不是excel能勝任的
無法做到在工作表上保持該首頁原樣。
你可以嘗試文字表格的網頁。
作者: miketyc33    時間: 2011-8-3 18:23

本帖最後由 miketyc33 於 2011-8-3 18:26 編輯

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

建議你多看看前面的範例，有許多頡取網頁資料的方法可用。
作者: Hsieh    時間: 2011-8-3 20:41

建議你多看看前面的範例，有許多頡取網頁資料的方法可用。
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    時間: 2011-8-4 16:47

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



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