excel版mtv，强烈震撼，不服不行！！

zale · 发表于 2009-9-17 14:54

看看

VVV11 · 发表于 2009-9-17 15:25

路过~~~~~~~~~~~~~~~~~~

greenyyy · 发表于 2010-3-17 14:48

拜学，让我的水平也提升下

surdawu · 发表于 2010-9-11 21:07

~    `    ^`
                                    - `<* ,<_`"~,^>=``^*J:=`
                              ``^,  ,`5^=*5<<IVnT3jYtJF<6oS*{*~
                           `:>;r`r~oP5vJ*iL*rTF<<L*j}o**L(!s*!><}_^::~++=`'
                     -    ;`<ooz<n**Eho7r~*zFS>>/cF>__(***)*<>L}*sSaPh5+``
                     ``~_:`  `+o{*FoF*****xF*r\*<>*i>!*<>_r*/***>>>__<>lY|15un_"^.
                  ```,>aF{*f5v5aFv{>\{*s*1r*****?*/<)TTT/\;_r>*/*<;_;><~_*>lf\L,
                  `=rr_~~}l*<>5?*<<>>\>!_r*>sI\>r*<)<>;;>rrr<_~+;>;<r<;>*;(Fl5P5>^^,``
                  `.`=;(vX4L*L7z/zFJf>+;*<z+>~;<<>>r*/**<>;<_><;_+;<_~:;_;::"=_>LFFFT
               `"~~^+*fF!;~"<z_*f<*7I+_;<<_~+~;<_<__*<*>;_~~~+~+;~~;;_~:=;+++"_++<>*_,
               `^``Je};r***r*>>_>(*;<<;_>^^;;;_\r_>_;<;+;;+~;_~::+"++;~,,~+_;;~"+_~;cz=
               `,:_;rFF7<__;}>>r>;~;<;,^+<i*~_+_``,,+~~:+"=,+~",=^":~_~^:^,:+~++;~+~7s~`'
                  `^*iI*<>/>r*<>>>>\>~:"++~gKNj~;*UkW~;h<At+_1<_~^~+:^>Iz3*_*;=+oj4F_<[z<(r`
                  ``<<_<**;>\<_>><*;;tP#W4;M>DN^^[85%+>DUA*^~hTS'.```,_5&5=[h]T`ChD]/:r:<~.
            '`=>*/r?r+,=:_r/;=~~+~~++>*>>+*~r;~:":^+^`,;+,,*";:``. :\^```^:~:_"++::,=>+-
               `,,;F<"~;:,~"^`"~+;_cv>+""+*++r_~=````~=,`-'-`          '`` `^,^:++::=_*:
               `+f*;::_+:~~,`,;~+"~t>_~_:^`<<_;``^^^-````.`             `````:^^^=~+=,^=1=
               `*1~+>T<^~*)T/~^:\<I;""`<>`^'.`,`                         '`--`:^``:~_:,_;=
               ':/_;><~~*>;;~,+^_;<_=`.                                     ``''`,:;;;":`7~
               `~_~_<>>;>,```,`-                                           ''''``- `"^^"~(`
            `~zz=^~_;~^+:`                                                 '.''`'`,::^;*+
               `__``:~<::~`                                                    ```````,==*:
               `;_^`"__+_^                                                    --`  ,``'`>;
               `;>~,+s_:`                                                       -  ```<`
               ;{:,,*~`.                                                          `+,
               `rr::``'                                                          -```
                  `;`:,``'                                                          ``'
                  .>`:=:~`                                                          .`-
                  `=^=+;,                                           ,>ZhNggm:    ,'
                  ^`,^>~                                     `<oS>+       ~A@g< '
                     =,``1,                               `<5;             "Aga`
                     .,_:>=                         `<[[` `+*>+` `    :h<
                     :+;<`    ``":Ii^,;P$ODRMNgMOgNM/4    `,_"=`       ~5"
                        -_{, `^iAm5;`          &Nm TD<                   o*
                        ,_~m#3    `^\F~`    FN    F>             ,zY+
                        `+Oq^  .,_~, .,~;       F%    `Xo`       .^_c7,
                        9gg#~                   #,          ^~++~=`                _52,
                        +xPWK,                _O"                                     :ja_::^^
                           `ih          ^r}2~                                     `>F` ;:=`
                              ~n*~="=~<<>vk5:                                           ,[>^ -  ,~:
                                 `^``                                                 ~E2~    ,`  ;}>
                                                                                       _oX>'  ` `;` `?
                                                                                       ~2u*`       ; `:=*~=`
                                                            .``                         =YC(`    ^_ _*;~!2dnI>
                                                `,,`                                  ~*t5`    ',I,'>f\\;^~oo>_;~:
                                                                                       >__?` -`_7  \Fr_`;":c:````
                                                                                       <r5c<` `<= `<lF*:_,+o'```^
                                                                                       _:=a`l=`` - \` -+<r)`X`:
                                             ```,"=`''.                            `+"{+~5,'````+' `_<r<<o+,`.` `'
                                       `'                                           ~,^*,_5,``` +~`  ~<r_!5;,- . '`
                                       `                                           ,=`!`^\i`=:, ~<`.`=r>**5;^ ` `
                                    "i2**>7S:`             -                      =`;: `{\`~>+``<`  ~>*rFl=`' `-``
                           ^<Fx;~:,,:^>">, S                                     ^`_:  :xX,_<<``\:'',_/>3_ ` `````
                  '`<nn!=:^^`^F?<":z<r<=,"h    `                               `,/+ <C3+<_>^^{`` `>*<3"` -`=~,`
               -~C9c`~+"~,^,^`;>ri>*&{5_,:E                                     `:`+` 5vF{+>_``*=` `_>^F"` ^;+^^`
         `F[}_+:::^^^``````,+~*_nE;^__>_                   lonYi+``       `~`>^ +Sf*o<";'`*,, `~~+>`+~<~,-
         _X>++~",^`,^,,^`^,```+Le>=^^^~+Z;                            `    ,+,>~ 7a*fX<*^``*+````+_;\>:=` `
         o>;++++:::~^~^,=~~~:,~::++<*Fhf                                     `"``;,` \5<7u*`*e-^<;'``:nj>^ `
      ~_;_~::=:++_FYP[3[h[4Pon9jkXhh-                                     ',^,:T~` +*+>af> \|^:_c``^>w2^``^.`
      ^L<~""++*SXPoCn|z>+;;YEF/><zh`                                     `:,' ~{~` ':r+L2*^+_o`:+s,:~fn5"`"` `'..
      ,*><FX3uoEXoTc5PC*+;+1as*<_6`                                     ^:  ;;,,' ;~;5)=`"*_;=:/r:+i45*,- ``-
      :EG]45{I\}oYYFzcc*(F5otrr*_4`                                     -+"r;.+/tvF:+`+{2<:>l,^*_=>i"_54YU:;^^ -
      ;2oC5_+_\FxFStiF1*z}!**/\;X`                                     `_F+ ^FF_^``cX;Fe<sF<``>_;>X:=CuXh*_,``  ``

wshcw · 发表于 2010-9-11 23:18

贴出来就变形了.

[ 本帖最后由 wshcw 于 2010-9-12 00:30 编辑 ]

小雨19 · 发表于 2010-9-11 23:27

非常厉害。。。

小雨19 · 发表于 2010-9-11 23:29

EXCLE已经用到出神入化的地步了，呵呵。

dongdonggege · 发表于 2020-5-1 12:47

楼主，你好，这么多年过去了，打扰你确实不好意思。但是我的疑问又没法消除。
你的FileExtractor模块Sub ExtractWAV()过程，导出WAV文件，myArr(i) = &H52，你的文件在第33行，这个&H52是不是指WAV文件的开头偏移地址，这个数据是怎么得出的？还是看二进制软件得到的？
如果Excel文件是这么定义的，那PowerPoint文件这个数据myArr(i) 是多少？我改编你的程序主要是Sub ExtractWAV()过程，导出的WAV文件是空的，0字节。不能播放。下面是PowerPoint程序，改动的地方不多。

Sub ExtractWAV()
Dim tmpFileName As String
Dim FileNumber As Integer
Dim myFileId As Long
Dim MyFileLen As Long
Dim myIndex As Long
Dim FileLen As Long
Dim i As Long
Dim fileArray() As Byte
Dim myArr() As Byte
tmpFileName = ActivePresentation.Path & ActivePresentation.Name
'ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name
tmpPath = ActivePresentation.Path
AudioFile = tmpPath & "ACDC.wav"
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) = &H52 Then 'Looking for RIFF
If myArr(i + 1) = &H49 And myArr(i + 2) = &H46 And myArr(i + 3) = &H46 Then
FileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
FileLen = FileLen + 8
ReDim fileArray(FileLen - 1)
For myIndex = 0 To FileLen - 1
fileArray(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 4
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = AudioFile
'tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".wav"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , fileArray
Close myFileId
'MsgBox "Saved the extracted file as [ " & tmpFileName & " ]"
End Sub

复制代码

麻烦老师了，谢谢。

dongdonggege · 发表于 2020-5-1 12:51

这是文件，请测试

shiyan.rar (1.86 MB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

[分享] excel版mtv，强烈震撼，不服不行！！