僅供參考不作為投資理財規劃。
2022年4月30日 星期六
VBA：取消篩選(Autofilter、AdvancedFilter )
執行c_3 副程式即取消篩選狀態
Sub C_3() '篩選與復原
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
With ws
If .FilterMode Then
.ShowAllData
End If
End With
Set ws = Nothing
End Sub
2022年4月28日 星期四
metter 天平維修
天平維修實例：
無法正常連線，委託人說明在地原廠亦無法處理，於接獲此一需求，因產線需求，火速協助處理。
事後得知，這台是天秤中勞斯萊斯等級的天平，內部電路技術以當年來說，簡直就是極致設計。
記錄：用VBA 彙整三大法人交易日報表
小編無聊之作
網路一堆教學文了，方法也超多，如WORKBOOKS.OPEN、QueryTables或其他方式，
小編就不獻醜了；看看動作片就好。
主要關鍵在於亂碼處理，與資料正規化。
流程：跑網路>亂碼>資料正規化>寫入資料>自動另存新檔
也非用QueryTables做法，QueryTables用多了，有點 BUG 哈。
主要透過MSXML2來處理網路資料為主。
影片：(忘了處理排版 XD)
2022年4月27日 星期三
2022年4月26日 星期二
VBS GetObject 2個簡單例子、儲存格寫資料、call 副程式
GETOBJECT：
簡單例子：
VBS檔，可以直接用記事本編輯歐，記得副檔名要用.VBS而已
先設置ExcelObj 為"Excel.Application"物件，小編透過活頁簿1做DEMO所以檔案名稱跟工作表名稱與儲存格都要設定，跑完程式記得要釋放歐。
，Set ExcelObj = GetObject(, "Excel.Application")
ExcelObj.Workbooks("活頁簿1.xlsm").Sheets("工作表1").Range("b1") = 1
Set ExcelObj = Nothing
延伸：
增加一個
Set ExcelObj = GetObject(, "Excel.Application")
ExcelObj.Workbooks("DEMO").Sheets("s").Range("b2:l2")=1
ExcelObj.Workbooks("DEMO").Sheets("s").Range("o2") =10
'驅動目標工作簿TEST副程式，並傳送數字資料2
ExcelObj.Application.Run "TEST",2 '目標工作簿的mobule做副程式驅動
Set ExcelObj = Nothing
怪的是office365 ok,但office 2010 faile，有空再測試2013
下一篇 Creatobject
2022年4月24日 星期日
VBA：寫CSV檔案遇到資料有逗號怎辦??
因為需要，小編透過Scripting.FileSystemObject做了一個寫CSV的模組，沒有用純文字檔處理的方式：
VBA CODE：
以上
主要是寫入資料>檢查有無重複>有刪除/無寫入新檔>DONE
為避免單一次寫入資料過大，透過迴圈逐行寫入。
後來發現資料中會帶逗號，思考兩條路。
1.不要寫CSV，因為CSV就是用逗號區分資料的 ，用其他格式然後給EXCEL讀檔這樣???
2.直寫EXCEL檔案，因為用CSV主要目的是給EXCEL用，就直接寫EXCEL八
定案方案2直接衝：
VBA CODE
以上直接將整理資料方法寫在EXCEL上，然後透過OUTLOOK或WORD的 VBA去傳送資料跟乎交。
主要VBA>生成EXCEL物件>生成WORKBOOKS物件>開啟檔案>執行SUB>SUB 接收資料並處理
缺點：會占用使用時間較久，原方案是透過VBA>VBS>背景作業，無奈資料本身有逗號 XD
內容看起來沒啥，也利用了假日5小時做測試。一定要記錄一下。
2022年4月23日 星期六
產業別當沖比2022/04/06~2022/04/23
產業別當沖比2022/04/06~2022/04/23
單純資料分享，不作為投資理財參考
資料分類：根據公開觀測站營收資料的產業分類
藍色是交易張數；紅色是當沖
.png)
2022年4月18日 星期一
2022年4月17日 星期日
2022年4月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
2022年4月3日 星期日
VBA ERR處理 Automation 錯誤 2147319767~重安裝OFFICE 搞定
-2147319767；Automation 錯誤
先前參照無效，或是參照到未編譯的類型。
就是這樣，我搞了好久，感恩更新的安全性，但也衍生參照錯誤發生。
最後直接重新安裝OFFICE 2019就搞定了。
思考：
昨天正常，今天不正常中毒?>比對法、元件異常確認?
檔案換電腦有無正常 答案：正常
掛載 AccessibilitycplAdmin 1.0做元件測試 答案：無解。
直接重安裝OFFICE.....................過關了。
訂閱：
文章 (Atom)