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文件已经导出了
分享到:
相关推荐
怎么从excel中导出flash游戏
经常从网上下载一些flash小游戏,有一些flash是被嵌入到excel中的,有时收到的excel中也会有一些漂亮的flash,很想单独保存...该文档就教你如何往Excel中添加flash文件以及如何导出Excel中的flash保存为.swf格式文件。
如何在EXCEL中插入FLASH和导出EXCEL中的FLASH.doc
当你看到excel里面心仪的flash时,又导不出来,怎么办?这儿有方法!
excel可嵌入FLASH,但没有提供导出功能。 这是我写的代码,可以把excel中嵌入的FLASH导出来。 下载了留作备用吧!
Flex的DataGrid导出Excel
此教程可以教你如何把word或者excel中的flash文件导成swf文件
import flash.filesystem.*; [Bindable] private var dp:Array = [ {idx:1, names: "test1", sex: "b" }, {idx:2, names: "test2", sex: "g" } ]; public function doSelect(o:Object):void {...
使用flash builder测试成功,绝对可以使用,使用的swc包都包含在里面 主要作用:使用flex把datagrid里面的数据(ArrayCollection)导出为Excel文件、CSV文件和导出到剪贴板
NULL 博文链接:https://liugang-ok.iteye.com/blog/1292390
STM32记录按键时刻输出Excel文件到SDFlash.rar
第一招:关闭多余程序如果同时打开的文档过多或者运行的程序过多,就没有足够的内存运行其他程序。这时,对于多文档界面程序,如Word、Excel等,请关闭当前文档外。。。
软件可用于批量处理Excel图片,功能强大, 能够实现包括建立图片目录、批量导入图片到单元格、批量导入图片并排版、批量导入图片到批注、删除所有图片、导出选区为图片、导出所有图形对象、导入Gif动画、导入Flash...
一个可导出生成文件夹内所有文件名列表清单的小工具 绿色版 以树形目录的形式输出 F:\Soft\ ├(1)Xenu.exe ... 可复制到EXCEL中,查找 *)替换为空 即替换那行什么都不填,就能把这些序号给去掉。
【插入Flash动画】:将Flash动画插入工作表中并播放,自动获取Flash大小,可以自定义Flash的大小和位置,Flash动画嵌入工作表中 【提取选区唯一值】:将选择区域的数据,置于当前列中,忽略重复值。 【清除列中重复值...
动画嵌入工作表中,删除FLASH原文件不影响Excel中的效果 【提取选区不重复值】将选择区域的数据,置于当前列中,忽略重复值 【清除列中重复值】将选择中重复出现的数据删除(提供保留第一次出现还是最后一次出现的...
【批量导出图片】 将EXCEL中指定某列中的图片按显示图片大小导出到指定的文件夹中。 批 注 工 具 【插入样式批注】 提供50种花样的批注供选择,可随时更换,且美观大方。 【插入图片批注】 不仅提供多样的批注供选择...
【插入Flash动画】:将Flash动画插入工作表中并播放,自动获取Flash大小,可以自定义Flash的大小和位置,Flash动画嵌入工作表中 【提取选区唯一值】:将选择区域的数据,置于当前列中,忽略重复值。 【清除列中重复值...
【批量导出图片】 将EXCEL中指定某列中的图片按显示图片大小导出到指定的文件夹中。 批 注 工 具 【插入样式批注】 提供50种花样的批注供选择,可随时更换,且美观大方。 【插入图片批注】 不仅提供多样的批注供...
【提取Flash文件】:将嵌入Excel或者Word中的Flash文件提取出来,保存为Swf文件 【播放Flash文件】:不用专业的播放器,直接选择Flash动画即可播放,且具有自动透明播放功能 【提取选区唯一值】:将选择区域的...