VB code for extracting SWF from DOC/XLS# Windows - 看得见风景的窗口
l*l
1 楼
统计master在读,年底毕业.有那位同仁能帮忙介绍个工作,定有重谢.
r*y
2 楼
just paste intoVB editor and run it.
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(
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(
相关阅读
Re: 求救：新买的Dell机器的时钟不准。Re: Error code 31Re: where to get softwares to open dvi and latex files??windows 2000's configRe: 为什么我不能在win2000下装winME呢?Re: 问：关于windows 2000的 task managerRe: 怎么去掉这个东西？Re: 文件管理器里的图标Re: 用IE离线浏览的问题Re: win2k regedit不能用了Re: 再次请教不能加入workgroup的问题Re: 安装2k后原来的xp不能运行怎么办？Re: 怎么在winxp下搜索中文老是搜不到？Re: 实在不想再重装了，哪位大虾帮帮忙吧Re: installation shieldRe: 问一个问题Re: 有没有类似unix下面的这个工具『转』Change Windows Explorer Default View其实oe自己可以。Re: 用outlook express怎样收hotmail的信Re: 关于XP下磁盘空间莫名其妙减少的问题