EXCEL路徑的儲存VBA

就是我有一個EXCEL檔案
但這個檔案是個母檔
會有很多檔案會跟它長的很像
比如:
我要抓每個股票的報表
每個股票都自己一個檔
那又要存同一個目錄
別用手動呀

Sub PRO()

for i=1 to N
 catch report stock[i]<---抓報表的程序
call  Savestock
next

End Sub

Sub Savestock()
    Dim stockpath As String
    stockpath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs Filename:=stockpath
End Sub

談一下現在在做什麼好了
就是想做一個靠財報海選股票的系統
網路上是有一些可用
但總是覺得沒有自己要抓的項目
比如我想要知道"最新一季水泥類股股東權益總額的排序"
 或者......
相似的功能網站上或許有
但如果要很活的
那好像還是得自己弄一個資料庫吧
不過資料庫太久沒用了就算了
還好前一陣子很常用EXCEL和AUTOIT

以前就想做一個
但一直沒什麼動力......

目前還在規劃階段
可能先把每個股票的財報都抓下來成:1101.xlsb、1102.xlsb.....
一千多個檔案
然後
用一個index.xlsb去抓每個股票的某一個cell
再根據這個cell去排序分析
找和股價有相關的數據
大概就是這樣了吧


投資要靠自己 聽明牌就是把錢送別人