麻辣家族討論版版 » Excel程式區 » 如何找出網站原始檔網址

12 3 4 5 下一頁

返回列表下一主題上一主題發帖

[發問] 如何找出網站原始檔網址

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-12-26 21:48 | 只看該作者

[發問] 如何找出網站原始檔網址

我想用web查詢,下載公開觀測站的資料,到excel,要如何找出原始檔網址

我想找的網址如下:董監事持股餘額明細資料內的歷史資料
http://mops.twse.com.tw/mops/web/stapap1?

還請逹人大大幫忙,感恩謝謝

樓主熱帖

收藏

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

42^#

發表於 2014-2-7 21:06 | 只看該作者

了解!感謝G大幫忙解答

超級版主 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兔年全勤獎章

41^#

發表於 2014-2-7 08:16 | 只看該作者

回復 40# blue2263
直接讀取資料,比拐彎(函數計算)讀取資料當然是快的

在有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了6秒,資料正確
在沒有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了3分9秒,資料正確

在沒有刪工作表的檔案(函數太多),執行原來程式(程式執行迴圈一次,活頁簿的函數重算尚未完成)故得到資料不正確

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

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

40^#

發表於 2014-2-7 07:59 | 只看該作者

謝謝G大幫忙
回覆G大,我的設定是自動的沒錯,
用#39程式碼下載資料內容就正確了
我提供的檔案,有刪掉一些有函數工作表,所以跑起來會很慢
我做了一些測試
在有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了6秒,資料正確
在沒有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了3分9秒,資料正確
在沒有刪工作表的檔案,用#36程式碼,下載10個代碼,花了1分30秒,資料左天測試,是錯誤的(#38情形),今天又測試一次,資料又變回正確了??不知道是什麼問題?
請教G大,理論上是否用#39方法,資料上較不會有問題,
為了下載資料的速度,盡量檔案內也不要太多函數

超級版主 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兔年全勤獎章

39^#

發表於 2014-2-6 20:48 | 只看該作者

本帖最後由 GBKEE 於 2014-2-6 20:55 編輯

回復 38# blue2263
內有很多函數,所以造成資料更新會變的很慢,應該不是如此.
是否活頁簿的計算是手動,要改成自動

下列程式碼,工作表可不用函數算.

Option Explicit
Sub Macro()
' 報表整合1-new
Dim Rng As Range, Ar(1 To 3)
On Error GoTo 101 ' 'web 查無到下一個代碼
Set Rng = Sheets("代碼").[a2]
Do While Rng <> "" '無代碼中斷
With Sheets("原始表")
.Range("a6") = Rng
.Range("az7").QueryTable.Refresh BackgroundQuery:=False
With .Range("BB12:BB27")
Ar(1) = Application.Transpose(.Cells) '人數
Ar(2) = Application.Transpose(.Offset(, 1)) '股數
Ar(3) = Application.Transpose(.Offset(, 2)) '佔集保庫存數比例 (%)
End With
End With
With Sheets("匯總").Range("A1").End(xlDown).Offset(1) '選擇工作表,到最底行
.Cells(1) = Rng
.Cells(1, 2) = Rng.Offset(, 1)
.Cells(1, "C").Resize(, UBound(Ar(1))) = Ar(1)
.Cells(1, "S").Resize(, UBound(Ar(1))) = Ar(2)
.Cells(1, "AI").Resize(, UBound(Ar(1))) = Ar(3)
.Cells(1, "AX") = ""
'.Range("A1:aw1").Value = Sheets("原始表").Range("A6:aw6").Value
End With
101
Set Rng = Rng.Offset(1) '下一個代碼
Loop
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

38^#

發表於 2014-2-6 19:03 | 只看該作者

感謝G大熱心幫忙,問題1,己可正常執行了
另請教G大,因我這個檔案,內有很多函數,所以造成資料更新會變的很慢
所以執行巨集時會造成資料錯誤,如下圖
請教G大是否有程式碼,可解決此問題,還是只能將檔案分開為兩個(下載資料用,及分析用)

超級版主 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兔年全勤獎章

37^#

發表於 2014-2-6 13:44 | 只看該作者

本帖最後由 GBKEE 於 2014-2-6 13:46 編輯

回復 36# blue2263

Sub Macro()
' 報表整合1-new
Dim Rng As Range
On Error GoTo 101 ' 'web 查無到下一個代碼
Set Rng = Sheets("代碼").[a2]
Do While Rng(1) <> "" '無代碼中斷
With Sheets("原始表")
.Range("a6") = Rng
.Range("az7").QueryTable.Refresh BackgroundQuery:=False
End With
With Sheets("匯總").Range("A1").End(xlDown).Offset(1) '選擇工作表,到最底行
.Range("A1:aw1").Value = Sheets("原始表").Range("A6:aw6").Value
End With
101
Set Rng = Rng.Offset(1) '下一個代碼
Loop
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

36^#

發表於 2014-2-6 12:22 | 只看該作者

G大,不好意思我指的問題程序是,報表整合1-new
程式會中斷及按F8執行,下載資料拿錯誤,都是此程序
謝謝G大

超級版主 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兔年全勤獎章

35^#

發表於 2014-2-6 08:18 | 只看該作者

回復 34# blue2263
按F8逐行執行是哪一個程序

'****** 附檔沒這工作表
With Sheets("巨集工作表")
Set Rng(1) = .Range("B2")
.Activate
End With
'Sheets("匯總").UsedRange.Offset(1).Clear '用此程式碼" 如需清除舊有資料
Do While Rng(1) <> ""
Rng(1).Activate
With Sheets("原始表")
.Range("B2") = Rng(1)
'**** .Range("E7") 沒有Web **********
.Range("E7").QueryTable.Refresh BackgroundQuery:=False

複製代碼

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

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

34^#

發表於 2014-2-5 22:50 | 只看該作者

G大你好,之前程式,為了需求,做了一些修改,有些問題,想請G大麻煩幫我看一下
1.程式會無法自動執行,會中斷?
2.按F8逐行執行沒有問題,但發現執行下載後的資料與原始資料不同?

檔A.rar (74.39 KB)

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

12 3 4 5 下一頁

返回列表下一主題上一主題