股票：外資投信持股20天變化(2022/04/29)

  僅供參考不作為投資理財規劃。

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.05.01)

 

大盤指數紀錄

metter 天平維修

 天平維修實例：

無法正常連線，委託人說明在地原廠亦無法處理，於接獲此一需求，因產線需求，火速協助處理。

事後得知，這台是天秤中勞斯萊斯等級的天平，內部電路技術以當年來說，簡直就是極致設計。

記錄：用VBA 彙整三大法人交易日報表

 小編無聊之作

網路一堆教學文了，方法也超多，如WORKBOOKS.OPEN、QueryTables或其他方式，

小編就不獻醜了；看看動作片就好。

主要關鍵在於亂碼處理，與資料正規化。

流程：跑網路>亂碼>資料正規化>寫入資料>自動另存新檔

也非用QueryTables做法，QueryTables用多了，有點 BUG 哈。

主要透過MSXML2來處理網路資料為主。

影片：(忘了處理排版 XD)

財報小整理 2022.Q4(產業整理+營業利益率+存貨周轉率)

 財報小整理(產業整理+營業利益率+存貨周轉率)

下載

分數變大，表示成長越多季度，反之為衰退。

空白表示程式遇到無法判斷的情況，自己簡單資料整理，不作為投資理財依據。

股票：外資投信持股20天變化(2022/04/26)

 僅供參考不作為投資理財規劃。

VBS GetObject 2個簡單例子、儲存格寫資料、call 副程式

GETOBJECT： 

簡單例子：

MSDN來一下

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

股票：工業電腦紀錄

 自己整理給自己勘，勿作為理財投資依據。

VBA：寫CSV檔案遇到資料有逗號怎辦??

因為需要，小編透過Scripting.FileSystemObject做了一個寫CSV的模組，沒有用純文字檔處理的方式：

VBA CODE：

	Sub file_save(sFileName, SAVE_STR)
	'sFileName 設定的寫入檔案名稱
	'SAVE_STR 資料來源
	On Error GoTo line1
	Set fs = CreateObject("Scripting.FileSystemObject")
	'On Error Resume Next
	EXIT_FILE_out = EXIT_FILE(sFileName) '檢查檔案是否存在(重複)
	If EXIT_FILE_out = 1 Then
	fs.DeleteFile sFileName
	End If
	Set A = fs.CreateTextFile(sFileName, True)
	temp = Split(SAVE_STR, Chr(13)) ' STEP BY FILE AVOID IN BIG FILE
	For l = LBound(temp) To UBound(temp)
	A.WriteLine temp(l)
	Next
	A.Close
	SAVE_STR = ""
	Exit Sub
	line1:
	MsgBox "存檔錯誤，請使用中斷+pause 做debug"
	End Sub
	Function EXIT_FILE(S)
	Set fs = CreateObject("Scripting.FileSystemObject")
	If fs.FileExists(S) Then
	EXIT_FILE = 1
	Else
	EXIT_FILE = 0
	End If
	End Function

view raw gistfile1.txt hosted with ❤ by GitHub

以上

主要是寫入資料>檢查有無重複>有刪除/無寫入新檔>DONE

為避免單一次寫入資料過大，透過迴圈逐行寫入。

後來發現資料中會帶逗號，思考兩條路。

1.不要寫CSV，因為CSV就是用逗號區分資料的 ，用其他格式然後給EXCEL讀檔這樣???

2.直寫EXCEL檔案，因為用CSV主要目的是給EXCEL用，就直接寫EXCEL八

定案方案2直接衝：

VBA CODE

	Sub file_excel_save(file_path, str_comm, SHEET_NAME)
	Dim sFolder As String
	Set xlApp = CreateObject("Excel.Application")
	Set xlBook = xlApp.Workbooks.Open(file_path)
	xlApp.Visible = True
	xlBook.Application.Run "autorun2", str_comm, SHEET_NAME
	xlBook.Close (True)
	xlApp.Quit
	Set xlApp = Nothing
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

以上

直接將整理資料方法寫在EXCEL上，然後透過OUTLOOK或WORD的 VBA去傳送資料跟乎交。

主要VBA>生成EXCEL物件>生成WORKBOOKS物件>開啟檔案>執行SUB>SUB 接收資料並處理

缺點：會占用使用時間較久，原方案是透過VBA>VBS>背景作業，無奈資料本身有逗號 XD

內容看起來沒啥，也利用了假日5小時做測試。一定要記錄一下。

感恩

產業別當沖比2022/04/06~2022/04/23

產業別當沖比2022/04/06~2022/04/23

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

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

藍色是交易張數；紅色是當沖

股票：集保庫存變化，400張合併分析(2022/04/23)

股票：集保庫存變化，400張合併分析(2022/04/23)

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

整理資料下載

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

股票：外資投信持股變化(2022/04/23)

 股票：外資投信持股變化(2022/03/25)

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

整理資料下載

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

股票：法人最愛買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：

	Sub MAPI_FOLDER()
	Dim myNameSpace As Outlook.NameSpace
	Dim myFolder As Outlook.MAPIFolder
	Dim C As Variant, arrC As Variant
	arrC = Array(olFolderInbox, olFolderSentMail)
	Set myNameSpace = Application.GetNamespace("MAPI")
	For i = 0 To UBound(arrC)
	Set myFolder = myNameSpace.GetDefaultFolder(arrC(i))
	MsgBox myFolder.Name
	Call MAPI_subFolder_DEMO(arrC(i))
	Next
	End Sub
	Sub MAPI_subFolder_DEMO(C)
	Dim subFolder As Outlook.MAPIFolder
	Dim PATH As String
	Dim subFolder_STR As String
	Set myNameSpace = Application.GetNamespace("MAPI")
	Set myFolder = myNameSpace.GetDefaultFolder(C)
	MsgBox myFolder.Name
	If myFolder.Folders.Count <> 0 Then
	For Each subFolder In myFolder.Folders
	MsgBox subFolder.Name
	Next subFolder
	Else
	If myFolder.Folders.Count = 0 Then
	MsgBox myFolder.Name
	End If
	End If
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

說明：

練習取得資料夾名稱

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

 -2147319767；Automation 錯誤

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

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

參考

網友大神

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

思考：

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

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

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

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

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

3.18原文 

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

圖1.自己看的頁面

結論：有賺到零用錢了。