網頁資料轉到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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-8-3 17:35 | 只看該作者

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

TOP

miketyc33

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-3
最後登錄: 2011-11-15

3^#

發表於 2011-8-3 18:23 | 只看該作者

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

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-8-3 20:07 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章