t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-7-17 21:41 | 只看該作者

請問此網頁有無辦法匯入excel

http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-18 07:38 | 只看該作者

回復 1# t8899
試試看

Option Explicit
Sub Ex_匯入Table()
Dim i As Integer, S As Integer, K As Integer, J As Integer
Dim Element
With CreateObject("InternetExplorer.Application")
'.Visible = True '可顯示網頁
.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set Element = .document.getelementsbytagname("table")
On Error Resume Next
With Sheets(1)
.Cells.Clear
'For s = 0 To element.Length - 1 '不知此網頁的table內容:請先行測試網頁的完整table內容
For S = 0 To 3 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
K = K + 1
For J = 0 To 5 '資料的欄位共6位
.Cells(K, J + 1) = Element(S).Rows(i).Cells(J).innerText
'********************************************
'不知此網頁的table內容:先行列出 table 位置 *
'Sheets(2).Cells(k, J + 1) = s '*
'********************************************
Next
Next
Next
.Cells.EntireColumn.AutoFit '自動調整欄寬
.Cells.EntireRow.AutoFit '自動調整列高
End With
.Quit
End With
Set Element = Nothing
MsgBox "0K"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

3^#

發表於 2013-7-18 15:32 | 只看該作者

本帖最後由 t8899 於 2013-7-18 15:39 編輯

回復 t8899
試試看
GBKEE 發表於 2013-7-18 07:38

請問如何設定15秒自動更新一次?謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-7-18 19:12 | 只看該作者

論壇有很多 Application.OnTime 的討論搜尋看看,有問題再發問.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-26

5^#

發表於 2013-7-18 19:26 | 只看該作者

本帖最後由 t8899 於 2013-7-18 19:35 編輯

論壇有很多 Application.OnTime 的討論搜尋看看,有問題再發問.
GBKEE 發表於 2013-7-18 19:12

Sub ctrl()
If Sheet1.CheckBox1.Value = True Then
?????
Application.OnTime Now() + TimeSerial(0, 0, 15), "?????"
End If
End Sub

如果用上述語法，則兩處?????怎麼填??
如果我只要後面的兩個表格，第一個不要，要怎麼改?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-7-18 20:04 | 只看該作者

回復 5# t8899
Ex_匯入Table 程式碼要複製在一般模組中
????? -> Ex_匯入Table
'** 已找出網頁的table內容在 0-3 中看你要哪些可自行決定

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

7^#

發表於 2013-7-23 15:47 | 只看該作者

回復 1# t8899

為了您這個問題，我後來查詢了很多案例

後來詢問製作網頁的朋友，EXCEL沒辦法用正常的辦法匯入主要原因是因為

現在的新版網頁是JSON的傳輸格式

不是舊版的CSV的檔案格式，所以EXCEL目前還沒追上這種輸入格式

只能你利用G大的方，定時自己用開啟網業的方式去抓取資料用，除此之外，選擇用DDE傳輸也是不錯的方式。

TOP

joey0415