[将flash小游戏放入excel表格和取出的方法.docxVIP

将flash小游戏放入excel表格和取出的方法在办公室上班无聊时，想玩下小游戏，但又怕BOSS发现，肿么办。现教你招在excel表格中玩游戏，你玩的正酣时，老板还以你工作勤劳偷偷乐了。好了，说正事：第1步 首先开启一个空白Excel文件，在上方功能表的空白处按一下鼠标右键，然后点选【控制工具箱】，启用「控制工具箱」工具列。“控制工具箱”有可能你在excel中找不到，你选择左上角那个按钮，找到最下面那个“excel选项”，找开它，在“在功能区显示“开发工具”选项卡前打√”。然后你就会在工具栏中找到“开发工具”选项。第2步 出现「控制工具箱」工具列后，在最右边的「其他控制项」按钮上按一下鼠标右键，然后再选单中点选「Shockwave Flash Object」项目，表示等等要插入Flash物件。注意flash的格式为swf。第3步 接著，鼠标会变成一个小十字的图案，此时可以在Excel编辑区中划一个大小适中的方框，这个方框就是用来显示Flash动画的内容的。如下图示:第4步 画好方框后，接著在物件上方按一下鼠标右键并点选功能表中的【属性】，准备设定该物件的属性。第5步 出现「属性」对话框后，在页面中找到［Base］、[Movie]、[Embedmovie]这三个项目，填写方法如下：Base：填写flash文件的全名，比如clock20.swf，如果flash文件和excel文件不在相同目录下的话，还要填写flash文件的完整路径名称 Movie：填写方法与上面一致 Embedmovie：是否嵌入flash文件，选择true第6步 回到Excel编辑页面后，点一下「控制工具箱」工具列最左边的〔结束设计模式〕按钮，恢复一般模式。第7步 设定好该物件的属性并回到一般编辑模式后，我们便可看到Excel档案中出现了刚刚贴上的Flash档内容啦，你就可以在表格操作了。那excel中的flash又怎么弄出来了单独玩了，下面也给你个非常简单的方法，你可以使用Excel表的宏操作来提取：点击菜单栏中的“工具（T） - 宏（M）- 宏(M)”,调出“宏”窗口，按照图示，随便输入一个名字（例如：宏名：milk），然后点击“创建。弹出一个编程界面，在界面的中间有一个小窗口，在窗口中输入下面的程序语言段。Sub milk()Dim tmpFileName As String, FileNumber As IntegerDim myFileId As LongDim myArr() As ByteDim i As LongDim MyFileLen As Long, myIndex As LongDim swfFileLen As LongDim swfArr() As Byte tmpFileName = Application.GetOpenFilename(office File(*.doc;*.xls),*.doc;*.xls, , 确定要分析的 Office 档) If tmpFileName = False Then Exit SubmyFileId = FreeFileOpen tmpFileName For Binary As #myFileIdMyFileLen = LOF(myFileId)ReDim myArr(MyFileLen - 1)Get myFileId, , myArr()Close myFileIdApplication.ScreenUpdating = Falsei = 0Do 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 IfLoop myFileId = FreeFiletmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) .swfOpen tmpFileName For Binary As #myFileIdPut #myFileId, , swfArrClose myFile