喜歡攝影的我，喜歡到處拍拍照，吃點當地的特色食物。 跟朋友聊天之餘，推薦我寫成網誌跟大家分享。 沒外出的日子，喜歡在家當隱性宅，寫程式看看書，追劇。 希望我的手札文，不會讓你翻桌 XD
之前的案例都是以excel vba讀取或是寫入資料到txt檔中，但如果執行完VBA，希望可以透過其他程式開啟檔案該怎做?
最簡單概念：SHELL
Sub OpenTextbyshell(sFileName)
Dim A As Object
Set A = CreateObject("Shell.Application")
open_file = sFileName
A.Open (open_file)
End Sub
sFileName 為資料路徑。
透過物件宣告，做檔案開啟
使用方法： 複製SUB 打開excel 進入開發人員設計模式中 使用專案管理員 新增模組 貼上SUB 開始測試 重點在於 做一個ACTIVEX按鈕 然後知道物件名稱後例如：圖表 1 就可以透過CALL執行SUB了 完成 VBA LINK 影片：
沒有留言:
張貼留言