ããæ¹æ³/æ¥éª¤
ãã1
ããæ°å»ºä¸ä¸ªexcelææ¡£ï¼å¨âå¼åå·¥å
·âé项å¡ä¸é¢åå»âvbâæé®ï¼è¿å
¥ç¼ç¨ç¶æï¼åå»âæå
¥âèåä¸çâ模åâå½ä»¤ï¼å¨å¼¹åºççªå£ä¸ç²è´´ä¸é¢çº¢ä»£ç ï¼
ãã2
ããSub ExtractFlash()Dim tmpFileName As String, FileNumber As IntegerDim myFileId As LongDim myArr() As ByteDim i As LongDim MyFileLen As Long, myIndex As LongDim swfFileLen As LongDim swfArr() As BytetmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "ç¡®å®è¦åæç Office æ¡£")If tmpFileName = "False" Then Exit SubmyFileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplication.ScreenUpdating = Falsei = 0Do While i < MyFileLenIf myArr(i) = &H46 ThenIf myArr(i + 1) = &H57 And myArr(i + 2) = &H53 ThenswfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)ReDim swfArr(swfFileLen - 1)For myIndex = 0 To swfFileLen - 1swfArr(myIndex) = myArr(i + myIndex)Next myIndexExit DoElsei = i + 3End IfElsei = i + 1End IfLoopmyFileId = FreeFiletmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"Open tmpFileName For Binary As #myFileIdPut #myFileId, , swfArrClose myFileIdMsgBox "以" & tmpFileName & "ååä¿å"End Sub
ãã3
ããç²è´´å¥½äºä»¥åè¿åå°excel主çé¢ï¼æ该excelæ档起ä¸ä¸ªä½ 容æ辨è¯çååï¼ä¿å为âå¯ç¨å®çå·¥ä½ç°¿âï¼ççç¨æ¥æåswfæ件ãæå¼åµå
¥äºswfæ件çpptï¼å¨swfæ件ä¸å³é®åå»ï¼éæ©å¤å¶ï¼æ°å»ºä¸ä¸ªexcelæ件ï¼å¨æ°å»ºçexcelæ件éå³é®âç²è´´âï¼æpptéçswfæ件å¤å¶è¿æ¥ï¼èµ·ä¸ªååï¼ä¿å为excel 97â2003å·¥ä½èï¼è¿éé¢ççæ¬éæ©å¾éè¦ï¼ä¸è¦ééï¼ï¼ä¿å好äºå
³é该excelã
ãã4
ããæå¼æ们第ä¸ä¸ªç²è´´æ代ç çexcelææ¡£ï¼å¨âå¼åå·¥å
·âä¸ï¼åå»âå®âï¼å¼¹åºå®å¯¹è¯æ¡ï¼åå»âæ§è¡âï¼å¨æå¼ççªå£ä¸éæ©ç²è´´æswfæ件çexcelæ件ï¼å¤§ååæï¼éé¢çswf马ä¸å°±ä¼è¢«æååºæ¥ï¼ä¸ä¿¡ï¼ä½ è¯è¯ï¼
温馨提示:答案为网友推荐,仅供参考