如何在EXCEL中插入FLASH和导出EXCEL中的FLASH

1 1 在 在 EXCELEXCEL 里插入里插入 FALSHFALSH 打开 视图 工具栏 控件工具箱 面板 如下图所示 选择 其他控件 Shockwave flash object 在工作表里画个 框 会出线一个斜十字交叉的矩形框 选中矩形框 右键 属性 填三项内容 1 Base 填写 flash 文件的全名 比如 clock20 swf 文件的扩展 名 swf 也要写上 如果 flash 文件和 excel 文件不在相同目录下的 话 还要填写 flash 文件的完整路径名称 2 Movie 填写方法与上面一致 3 Embedmovie 是否嵌入 flash 文件 选择 true OK 保存关闭 EXCEL 然后重新打开就可以看到 FLASH 了 有时 你可能在打开文件时 会弹出以下的对话框 这是由于 宏 的安全级别设置太高的缘故 可以按如下方法改变 宏 的安全级别 选择 工具 宏 安全性 在弹出的画面设置相应的安全级别 2 2 导出 导出 EXCELEXCEL 中的中的 FLASHFLASH 1 点击工具 宏 宏 2 弹出一个宏创建窗体 在窗口中输入宏名 例如 宏名 ExtractFlashExtractFlash 点击创建按钮 3 弹出一个编程界面 在界面的中间有一个小窗口 在窗口中光标 闪动处输入下面的程序段 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 名字保存 4 按 F5 或按 运行 按钮运行宏 5 弹出一个选择文件的窗口 选择你想要提取 flash 的 excel 文件