網頁資料下載簡化 - Excel程式區

[發問] 網頁資料下載簡化

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

11^# 跳轉到 »

發表於 2012-7-6 18:14 | 顯示全部帖子

回復 35# sd-jason
自己動動手才會進步 1.程式碼複製在到模組上(這程式碼適用工作表或一般模組)
2 .如 34# 製作一個工作表按鈕巨集指定為這程序
試試看

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

12^#

發表於 2012-7-26 17:23 | 顯示全部帖子

回復 46# mannyhsu
回復 47# lalalada

Option Explicit
Sub Ex()
Dim Stock_No As String, wb As Workbook
Do
Stock_No = InputBox("請輸入股票號碼")
If Stock_No = "" Then If MsgBox("取消輸入股票號碼?", vbYesNo) = vbYes Then Exit Sub
Loop Until Stock_No <> ""
For Each wb In Workbooks
If wb.Name = "bsContent.aspx" Then wb.Close False
Next
On Error Resume Next
Application.DisplayAlerts = False
Workbooks.Open ("http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & Stock_No & "&download=csv")
If Err.Number <> 0 Then MsgBox "1 請查明股票號碼 " & Stock_No & "是否存在" & Chr(10) & _
"2 股票號碼 " & Stock_No & " 如正確請重新輸入 " & Stock_No
Application.DisplayAlerts = True
End Sub

複製代碼

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

13^#

發表於 2012-8-1 13:41 | 顯示全部帖子

另外, 可能是原始的 CSV 資料有問題,
除了內容格式不對, 有些欄位內也沒有資料 ...mannyhsu 發表於 2012/7/26 20:50

靜思自在 : 話多不如話少，話少不如話好。