提取Excel、Word、PPT文件中的Flash文件的两种方法
2011-02-10 19:58
441 查看
方法一:VBA代码法
新建一个文件,然后拷贝以下代码到VBA模块中,运行代码,选择含有Flash的Excel文件确定,即可获取swf文件。Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long Dim myIndex As Long Dim swfFileLen As Long Dim i As Long Dim swfArr() As Byte Dim myArr() As Byte tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file") If tmpFileName = "False" Then Exit Sub myFileId = FreeFile Open tmpFileName For Binary As #myFileId MyFileLen = LOF(myFileId) ReDim myArr(MyFileLen - 1) Get myFileId, , myArr() Close myFileId Application.ScreenUpdating = False i = 0 Do While i < MyFileLen If myArr(i) = &H46 Then If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then swfFileLen = 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 - 1 swfArr(myIndex) = myArr(i + myIndex) Next myIndex Exit Do Else i = i + 3 End If Else i = i + 1 End If Loop myFileId = FreeFile tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf" Open tmpFileName For Binary As #myFileId Put #myFileId, , swfArr Close myFileId MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]" End Sub
方法二:UE修改法
1、打开这个含有Flash的Excel文件,进入设计模式,选中这个Flash后拷贝到桌面,获取一个片段文件2、用ULraEdit32(UE)打开这个片段文件,查找“465753”字段
3、把“465753”字段之前的文字全部剪切,然后把文件另存为”X.swf”
4、OK
相关文章推荐
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取excel,word,ppt里面的flash
- 在WORD、EXCEL和PPT中插入和提取FLASH
- 在WORD、EXCEL和PPT中插入和提取FLASH
- 如何提取导出word、excel中的flash文件
- 从Excel中提取Flash文件的方法
- 将Office(如:Word、Excel、PPT 等)文件转PDF(通过OpenOffice实现)
- JAVA读取WORD,EXCEL,PDF,TXT,RTF,HTML文件文本内容的方法示例
- JAVA读取WORD,EXCEL,POWERPOINT,PDF文件的方法
- JAVA读取WORD,EXCEL,POWERPOINT,PDF文件的方法
- Saving Workbooks to PDF and XPS Formats in Excel 2007 (C#.net word excel powerpoint (ppt) 转换成 pdf 文件)
- JAVA提取Word,Excel,PPT,PDF,TXT等文档文字内容
- 将word文件转换成PDF的两种方法
- JAVA读取WORD,EXCEL,POWERPOINT,PDF文件的方法
- MVC 使用FileStreamResult方法的下载excel和word文件问题
- android打开pdf ppt word excel等文件
- js将html中的内容导出word、或者excel文件的方法
- 如何用C#提取Word、Excel等文件的文本(无需安装Office)