如何提取导出word、excel中的flash文件
2008-07-04 21:41
357 查看
方法一:
1、要安装UltraEdit32编辑器。
2、打开含有Flash的Word或excel文件,点击“视图”-“工具栏”-“控件工具箱”的“设计模式”按钮进入设计模式,选择Word中的Flash,复制粘贴到本地任意文件夹,会看到一个“片段”文件。
3、打开UltraEdit32,将该“片段”文件拉到UltraEdit32中,按Ctrl+F或者点击菜单搜索-查找,在出现的搜索栏输入“465753”,在搜索到的“465753”中的“4”位置以上的数据全部删掉.(在4之前,按着鼠标左健不放,用鼠标一直拉到最前面,选取在数字“465753”之前的全部数据后,然后按Delete健,Del无效的话就用Ctrl+x)。
4、将文件另存为swf格式的文件,此时flash文件已经导出完毕。
方法二:
1. 点击工具——>宏——>宏
2. 弹出一个宏创建窗体,在窗口中输入宏名(例如:宏名:ExtractFlash)点击创建按钮。
3. 弹出一个编程界面,在界面的中间有一个小窗口,在窗口中输入下面的程序段。
Sub ExtractFlash()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "確定要分析的 Office 檔")
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 "以" & tmpFileName & "名字保存"
End Sub
4. 按F5运行宏。
5. 弹出一个选择文件的窗口,选择你想要提取flash的excel文件,点击打开按钮。
6. 这时会弹出一个提示窗口“以。。。。名字保存”,点击确定。
7. 在excel所在的位置会产生一个同名的flash文件。到此flash文件已经导出了。
1、要安装UltraEdit32编辑器。
2、打开含有Flash的Word或excel文件,点击“视图”-“工具栏”-“控件工具箱”的“设计模式”按钮进入设计模式,选择Word中的Flash,复制粘贴到本地任意文件夹,会看到一个“片段”文件。
3、打开UltraEdit32,将该“片段”文件拉到UltraEdit32中,按Ctrl+F或者点击菜单搜索-查找,在出现的搜索栏输入“465753”,在搜索到的“465753”中的“4”位置以上的数据全部删掉.(在4之前,按着鼠标左健不放,用鼠标一直拉到最前面,选取在数字“465753”之前的全部数据后,然后按Delete健,Del无效的话就用Ctrl+x)。
4、将文件另存为swf格式的文件,此时flash文件已经导出完毕。
方法二:
1. 点击工具——>宏——>宏
2. 弹出一个宏创建窗体,在窗口中输入宏名(例如:宏名:ExtractFlash)点击创建按钮。
3. 弹出一个编程界面,在界面的中间有一个小窗口,在窗口中输入下面的程序段。
Sub ExtractFlash()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "確定要分析的 Office 檔")
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 "以" & tmpFileName & "名字保存"
End Sub
4. 按F5运行宏。
5. 弹出一个选择文件的窗口,选择你想要提取flash的excel文件,点击打开按钮。
6. 这时会弹出一个提示窗口“以。。。。名字保存”,点击确定。
7. 在excel所在的位置会产生一个同名的flash文件。到此flash文件已经导出了。
相关文章推荐
- 如何用C#提取Word、Excel等文件的文本(无需安装Office)
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- 提取Excel、Word、PPT文件中的Flash文件的两种方法
- excel如何转化成word文件
- excel(word)文件中的表格如何快速转化为html代码
- [转帖]一键导出Word和Excel文件的简单服务器控件
- 如何将网页数据输出为Excel或Word文件
- 网站开发进阶(三十一)js如何将html表格导出为excel文件(后记)
- .net导出word、excel等文件操作类
- jasperreport + ireport 导出各种类型文件(word,excel,html,pdf,打印) .
- 简单易用的导出文件(Excel、word等各种格式)的方法
- 做导出EXCEL时,如何删除在服务器上的EXCEL文件
- GridView导出到Excel或Word文件
- 导出数据表到文件(excel、word等)
- asp.net从数据库导出数据到word、excel、txt文本文件
- GridView导出到Excel或Word文件
- 导出excel、word、csv文件方法汇总
- JAVASCRIPT将网页表格导出EXCEL或WORD文件