½«excelÎĵµÖеÄ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ÎļþÒѾµ¼³öÁË¡£
ÌØ±ð˵Ã÷£ºÒ»°ãµÄ²Ù×÷ºÜÄѵ¼³ö£¬Ö»ÄܲÉÈ¡·ÖÎöÎļþµÄ°ì·¨µ¼³ö£¬ÒòΪSWFÊÇÓÐÊý¾Ý¸ñʽµÄ£¬Óв»Ò»ÑùµÄPEÍ·£¬ËùÓÐÄܹ»·ÖÎöµ¼È룬˵ԶÁË£¬·´ÕýÄã¿ÉÊÔÊÔÕâÑùµ¼³ö¡£
Áí£ºÄÇÔõÑù½«flash¼ÓÈëexcelÀ
µÚ1²½Ê×ÏÈ¿ªÆôÒ»¸ö¿Õ°×ExcelÎļþ£¬ÔÚÉÏ·½¹¦ÄܱíµÄ¿Õ°×´¦°´Ò»ÏÂÊó±êÓÒ¼ü£¬È»ºóµãÑ¡¡¾¿ØÖƹ¤¾ßÏä¡¿£¬ÆôÓḿØÖƹ¤¾ßÏ䡹¹¤¾ßÁС£
µÚ2²½ ³öÏÖ¡
Ïà¹ØÎĵµ£º
<%@ Page language="c#" Codebehind="WebForm1.aspx.cs" AutoEventWireup="false" Inherits="WebApplication2.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="ser ......
Ê×ÏÈ˵Ã÷ÔÚFlashÀï¸Ä±äÊó±êÑùʽ£¬²¢²»ÊÇÔÚflashÀïµ¼È뾲̬Êó±êÎļþ»òÕßÊǶ¯Ì¬Êó±êÎļþ£¬¶øÊÇ×Ô¶¯Òþ²ØÊó±ê£¬×Ô¶¯Í϶¯Ò»¸öMCÀ´ÊµÏָıäÊó±êÑùʽ¡£Ê×ÏÈн¨Ò»¸öӰƬ£¬Ð½¨Ò»¸öMC£¬½øÈëMCµÄ±à¼×´Ì¬£¬»æÖÆÒ»¸öÄãϲ»¶µÄÊó±êÑùʽ£¬ÒòΪÊÇÔÚMCÀïÃæ£¬Äã¿ÉÒÔ×öÒ»¸ö¶¯Ì¬Êó±ê£¬Ò²¿ÉÒÔ×öÒ»¸ö¾²Ì¬Êó±ê¡££¨×¢Ò⣺һ¶¨Òª°ÑÄãÖÆ×÷µÄÊó±êµÄÖÐ ......
Çø±ð£º
£¨1£©Ó°Æ¬¼ô¼µÄ²¥·ÅÍêÈ«¶ÀÁ¢ÓÚʱ¼äÖá¡£¼´Ê¹Ö÷³¡¾°ÖÐÖ»ÓÐÒ»¸öÖ¡£¬Ò²²»»áÓ°ÏìӰƬӰƬ¼ô¼µÄ²¥·Å¡£µ«ÊÇͼÐÎÔª¼þ¾Í²»Í¬ÁË——Èç¹ûÖ÷³¡¾°ÖÐÖ»ÓÐÒ»¸öÖ¡£¬ÄÇôÆäÖеÄͼÐÎÔª¼þÒ²Ö»ÄÜÓÀÔ¶ÏÔʾһ¸öÖ¡¡£
£¨2£©Ó°Æ¬¼ô¼¿ÉÒÔÉèÖÃʵÀýÃû³Æ£¬Í¼ÐÎÔª¼þÔò²»ÐС£
£¨3£©Ó°Æ¬¼ô¼¿ÉÒÔÉèÖÃÂ˾µ£¬Í¼ÐÎÔª¼þÔò²»ÐС£
£¨4£©Ó° ......
´ÓÆ»¹û¡¢ARMµ½OPERA£¬·çÏòËÆºõ¿ªÊ¼¸Ä±ä£¬¶ÔFLASHµÄÅê»÷Ô½À´Ô½¶à£¬ËƺõºÞ²»µÃ½«ADOBEŪ³ôµ½³ÉΪ¹ý½ÖÀÏÊó¡£µ±È»£¬ÎÒĿǰÊÇÒ»ÃûFLEX³ÌÐòÔ±£¬Ëù·¢±íµÄÒâ¼ûÄÑÃâ»á´øÓÐÆ«¼û£¬Èç¹ûÊÇÆÚÍû°Ù·Ö°ÙµÄ¹«Õý£¬¾ÍÏñijÈË˵µÄ£ºÄãÒÔΪÎÒÊǰüÇàÌì°¡£¡
ÏëÏ뿪·¢Õß¶ÔÓÚMSµÄ×÷Ó㬾ÍÓ¦¸ÃÏëµ½Éè¼ÆÊ¦¶ÔÓÚADOBEµÄ×÷Ó㬼¸ºõÕû¸öͼÐÎÉè¼ÆµÄÊг¡¶¼ÓÐË ......
¡¡¡¡ÓÉÓÚÓëAdobeÔÚFlashÎÊÌâÉϲ»Ô¸×öÈκÎÍËÈã¬Ä¿Ç°Æ»¹û¹«Ë¾ÕýÔÚ¿ª·¢FlashµÄÌæ´úÐͲúÆ·£¬Ä¿Ç°ÔÝʱÃüÃûΪGianduia£¬ÎÒÃÇÔڿɿɹûwww.kekeguo.comÆ»¹ûÂÛ̳×ÉѯÖÐÒ²¿ÉÁ˽⵽ƻ¹û¹«Ë¾½«»áÔÚ6Ô·ݾÙÐеÄWWDC´ó»áÉ϶ÔGianduia½øÐÐÏêϸµÄ˵Ã÷¡£
¡¡¡¡¾ÝϤ£¬GianduiaÆäʵÔÚÈ¥ÄêµÄWebObjects¿ª·¢Õß´ó»áÉϾÍÒѾ·¢²¼ÁË£¬¶øÆ»¹ûµÄ²¿· ......