程式語法有誤 - Excel程式區 - 麻辣家族討論版版

[發問] 程式語法有誤

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

1^# 跳轉到 »

發表於 2014-12-17 07:45 | 顯示全部帖子

回復 3# pupai

Sub 巨集()
Dim Theurl As String, Sdate, AR, A As Date
A = Range("A1").Value
Sdate = Format(A, "yyyymmdd")
Theurl = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=" & Sdate & "&end_date=&report_type=day&language=ch&save=csv"
With Workbooks.Open(Theurl)
AR = .Sheets(1).UsedRange
.Close False
End With
With ActiveSheet
.Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
End With
End Sub

複製代碼

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

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。