返回列表 上一主題 發帖

[發問] 程式語法有誤

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-15 16:52 | 只看該作者

[發問] 程式語法有誤

您好
我插入指定日期後，程式錯誤
請幫忙修改
謝謝!!
  1. Sub 巨集()
  2.     Dim Theurl As String, Sdate, AR, A As Date
  3.    
  4.     A = Range("A1").Value
  5.     Sdate = Text(A1, "emmdd")
  6.      
  7.     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"
  8.     With Workbooks.Open(Theurl)
  9.         AR = .Sheets(1).UsedRange
  10.         .Close False
  11.     End With
  12.     With ActiveSheet
  13.         
  14.    
  15.         
  16.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  17.    
  18.             
  19.      

  21.     End With
  22. End Sub
複製代碼
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2014-12-15 18:44 | 只看該作者
回復 1# pupai


    日期格式 :yyyymmdd
     Sdate = Text(A1, "emmdd")  是不識這句有誤呢??
學習才能提升自己

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
3#
發表於 2014-12-15 18:56 | 只看該作者
回復 2# hugh0620


    我猜
    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"

謝謝

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2014-12-16 12:56 | 只看該作者
本帖最後由 HSIEN6001 於 2014-12-16 12:58 編輯

回復 3# pupai


    用CSV下載,同 http://forum.twbts.com/thread-13018-1-1.html   #6  
(一起下載)
  1. Sub CSV下載()
  2. Dim path As String
  3. path = "C:\"
  4. 日期 = "20141215"

  6. Set XML = CreateObject("Microsoft.XMLHTTP")
  7. Set stream = CreateObject("ADODB.stream")
  8.    
  9.     URL = "http://www.taifex.com.tw/chinese/3/7_12_8dl.asp?syear=" & VBA.Left(日期, 4) & "&smonth=" & VBA.Mid(日期, 5, 2) & "&sday=" & _
  10.             VBA.Right(日期, 2) & "&eyear=" & VBA.Left(日期, 4) & "&emonth=" & VBA.Mid(日期, 5, 2) & "&eday=" & VBA.Right(日期, 2)
  11.         XML.Open "GET", URL, 0
  12.         XML.send
  13.     With stream
  14.         .Type = 1
  15.         .Open
  16.         .write XML.responseBody
  17.         If Dir(path & "類股期貨" & 日期 & ".csv") <> "" Then Kill (path & "類股期貨" & 日期 & ".csv")
  18.         .SaveToFile (path & "類股期貨" & 日期 & ".csv")
  19.         .Close
  20.     End With
  21.    
  22.     URL = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=" & _
  23.             VBA.Left(日期, 8) & "&end_date=" & VBA.Left(日期, 8) & "&report_type=day&language=ch&save=csv"
  24.         XML.Open "GET", URL, 0
  25.         XML.send
  26.     With stream
  27.         .Type = 1
  28.         .Open
  29.         .write XML.responseBody
  30.         If Dir(path & "三大法人買賣超" & 日期 & ".csv") <> "" Then Kill (path & "三大法人買賣超" & 日期 & ".csv")
  31.         .SaveToFile (path & "三大法人買賣超" & 日期 & ".csv")
  32.         .Close
  33.     End With

  35. End Sub
複製代碼

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
5#
發表於 2014-12-16 14:13 | 只看該作者
回復 4# HSIEN6001


    感謝回復
後來我用土方法
  1. Sub 巨集()
  2.    
  3.    
  4.     Dim Theurl As String, Sdate, AR, A As Date
  5.    
  6.     A = Range("A1").Value
  7.     Sdate = Format(A, "yyyymmdd")

  9.    
  10.     Theurl = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=" & Sdate & "&end_date=" & Date & "&report_type=day&language=ch&save=csv"
  11.    
  12.    
  13.             
  14.    
  15.    
  16.     With Workbooks.Open(Theurl)
  17.         AR = .Sheets(1).UsedRange
  18.         .Close False
  19.     End With
  20.     With ActiveSheet
  21.          
  22.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  23.    
  24.     End With
  25. End Sub
複製代碼

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2014-12-16 20:19 | 只看該作者
回復 5# pupai

可能是這個問題  path = "C:\"     
這是指定存  C:\
如果你沒有直接權限 , 自己建立一個資料夾
改成為你使用者可存檔的位置

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2014-12-17 07:45 | 只看該作者
回復 3# pupai
  1. Sub 巨集()
  2.     Dim Theurl As String, Sdate, AR, A As Date
  3.     A = Range("A1").Value
  4.     Sdate = Format(A, "yyyymmdd")   
  5.     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"
  6.     With Workbooks.Open(Theurl)
  7.         AR = .Sheets(1).UsedRange
  8.         .Close False
  9.     End With
  10.     With ActiveSheet
  11.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  12.     End With
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
8#
發表於 2014-12-17 10:52 | 只看該作者
回復 7# GBKEE


    謝謝 回復

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題