MIS101: 把Excel內的Flash找出來另存的VBA程式碼

以Excel 2003為例檢視→工具列→控制工具箱→檢視程式碼 view code 貼上以下的程式碼後再按執行，即可得到Flash檔案Sub ExtractFlash() Dim tmpFileName As String, ... 減小字體大小 A- A A+ 網站顏色 R A A A 側板 learn 正體中文‎(zh_tw)‎ English‎(en)‎ 您正使用訪客身分瀏覽(登入) 跳至主內容 以Excel2003為例 檢視→工具列→控制工具箱→檢視程式碼 貼上以下的程式碼後再按執行，即可得到Flash檔案 SubExtractFlash()DimtmpFileNameAsString,FileNumberAsIntegerDimmyFileIdAsLongDimmyArr()AsByteDimiAsLongDimMyFileLenAsLong,myIndexAsLongDimswfFileLenAsLongDimswfArr()AsBytetmpFileName=Application.GetOpenFilename("officeFile(*.doc;*.xls),*.doc;*.xls",,"確定要分析的Office檔")IftmpFileName="False"ThenExitSubmyFileId=FreeFileOpentmpFileNameForBinaryAs#myFileIdMyFileLen=LOF(myFileId)ReDimmyArr(MyFileLen-1)GetmyFileId,,myArr()ClosemyFileIdApplication.ScreenUpdating=Falsei=0DoWhilei