股票：法人最愛買2022.04.18

 簡單資料整理，不作為理財規劃參考。

圖1.外資

圖1.投信

股票：零股最愛買 2022.04.18

集保庫存資料簡單資料整理，不作為理財規劃參考。

圖1.股數增加期間

股數 第一名：創源!!!!

圖2.人數增加期間

人數 第一名：斐成!!!!

集保庫存400張變化(2022/04/15)

 

單純資料分享，不作為投資理財參考

整理資料下載

資料分類：根據公開觀測站營收資料的產業分類

vba 刪除檔案方法不愛 KILL

懶人用法kill ：

語法很簡單就是 KILL +檔案路徑+完整檔案名稱

但缺點是有時候會有一點BUG，如字串長度限制

非懶人法(Scripting.FileSystemObject)：

Set fs = CreateObject("Scripting.FileSystemObject")

With New FileSystemObject '宣導一個新的物件

'FILEPath 要刪除的路徑+完整檔案名稱

    If fs.FileExists(FILEPath ) Then 

        fs.DeleteFile FILEPath 

    End If

End With

VBA OUTLOOK 練習取得資料夾名稱

練習取得資料夾名稱VBA：

說明：

練習取得資料夾名稱

VBA ERR處理 Automation 錯誤 2147319767~重安裝OFFICE 搞定

 -2147319767；Automation 錯誤

先前參照無效，或是參照到未編譯的類型。

就是這樣，我搞了好久，感恩更新的安全性，但也衍生參照錯誤發生。

參考

網友大神

最後直接重新安裝OFFICE 2019就搞定了。

思考：

昨天正常，今天不正常中毒?>比對法、元件異常確認?

檔案換電腦有無正常 答案：正常

掛載 AccessibilitycplAdmin 1.0做元件測試 答案：無解。

直接重安裝OFFICE.....................過關了。

8大行庫3.18後再紀錄(2022.04.01) IN CLOSE

3.18原文 

自己整理給自己刊的紀錄，不作為理財投資參考。

圖1.自己看的頁面

結論：有賺到零用錢了。