返回列表 上一主題 發帖

新版股市公開資訊觀測站的資料抓到EXECL?

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2015-11-13 04:54 | 顯示全部帖子
回復 29# chang0833
回復 28# GBKEE

GBKEE 版大
假設如果將：
    X = Year(Date) - 1910                 '  中華民國的年度
    For xSyear = X To X - 3 Step -1       ' 迴圈: 年度    ' 105->102
修改為：
    X = Year(Date) - 1911                 '  中華民國的年度
    For xSyear = X To X - 2 Step -1       ' 迴圈: 年度    ' 104->102  最新的年度往前查前二年的資料
則本年度資訊會從 『"$A$1"』位址開始列印，否則會從 『"$A$13"』位址開始列印。
這隻程式非常精簡易覽，我會好好保存備錄的，謝謝 GBKEE 您的指導！
  1. "$A$1"     2015年3月31日        2014年12月31日        2014年3月31日   
  2. "$A$282"   2015年6月30日        2014年12月31日        2014年6月30日
  3. "$A$567"   2015年9月30日        2014年12月31日        2014年9月30日
  4. "$A$856"   2015年第3季        2014年第3季        2015年01月01日至2015年09月30日        2014年01月01日至2014年09月30日

  6. "$A$859"   2014年3月31日        2013年12月31日        2013年3月31日
  7. "$A$1133"  2014年6月30日        2013年12月31日        2013年6月30日
  8. "$A$1409"  2014年9月30日        2013年12月31日        2013年9月30日
  9. "$A$1688"  2014年12月31日        2013年12月31日       

  11. "$A$1971"  2013年3月31日        2012年12月31日        2012年3月31日        2012年1月1日
  12. "$A$2247"  2013年6月30日        2012年12月31日        2012年6月30日        2012年1月1日
  13. "$A$2530"  2013年9月30日        2012年12月31日        2012年9月30日        2012年1月1日
  14. "$A$2812"  2013年12月31日        2012年12月31日        2012年1月1日
  15.     ~
  16. "$A$3092"  
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2015-11-13 05:13 | 顯示全部帖子
回復 29# chang0833
回復 28# GBKEE

GBKEE 版大沒留意您在 34. ~ 46. 間加入了        If ~ Then 的判斷語句。歹勢！
  1.     If .ResultRange.Rows.Count = 2 Then '無資料
  2.         D_Name = .Name      'WEB查詢的名稱
  3.         .Delete             '刪除:WEB查詢
  4.         With Rng.Parent
  5.             For Each E In .Names
  6.         If InStr(E.Name, D_Name) Then E.Delete '刪除:工作表上的名稱->WEB查詢的名稱
  7.             Next
  8.         End With
  9.     Else
  10.         With .ResultRange      ''WEB查詢資料的範圍
  11.             Set Rng = .Cells(.Rows.Count + 2, 1)     ' 下一WEB查詢的位置
  12.         End With
  13.     End If
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2015-11-13 07:47 | 顯示全部帖子
本帖最後由 c_c_lai 於 2015-11-13 07:55 編輯
回復  c_c_lai
這網頁有點奇怪,年度的選項為何有下一年度(未來的年度).
有人可分享嗎?
GBKEE 發表於 2015-11-13 06:00

下一年度(未來的年度)  民國 105 年尚未到達，理論上它是一個未知數，
會計年度也只到今年度而已，且尚未年度結轉哪來的資料？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2015-11-15 07:01 | 顯示全部帖子
本帖最後由 c_c_lai 於 2015-11-15 07:04 編輯

回復 34# chang0833
第一個『應收票據淨額』是『項目』(標題)，
第二個『應收票據淨額』是會計『科目』，
兩者在寶表上是有前後位置差異的，
轉入後如不仔細觀察，便以為是
重覆『科目』了。
至於 VLOOKUP 的應用就有勞 GBKEE 版大了。

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題