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

china047 · 发表于 2009-7-14 08:59

高手彻磋,实在是强!!!

china047 · 发表于 2009-7-14 13:37

原帖由 HHAAMM 于 2008-11-5 22:31 发表
音频则是用二进制的形式保存在excel里，运行时再解码出来。
好像真的是这样呀！！
删除ACDC.wav 还会再次生成。
看来这里的道行深了！！

应该不是保存在excel,如果你用一个后辍名为 .wav 音频文件代替也是可以的,如果不信大家可以试试.
不过音频文件名要改为ACDC,要不你就将代码里面的"ACDC"文件名给改成你想要的文件名.

ni57 · 发表于 2009-7-14 13:43

怎是一个“服”可以表达此刻的激动心情呢

HHAAMM · 发表于 2009-7-14 15:34

原帖由 china047 于 2009-7-14 13:37 发表

应该不是保存在excel,如果你用一个后辍名为 .wav 音频文件代替也是可以的,如果不信大家可以试试.
不过音频文件名要改为ACDC,要不你就将代码里面的"ACDC"文件名给改成你想要的文件名.

呵呵，那你说当中的这段代码是干什么用的
Private Sub Workbook_Open()

Dim tmpPath As String
Stop
Sheet1.Activate
tmpPath = ThisWorkbook.Path
AudioFile = tmpPath & "\ACDC.wav"

'Show logo
Sheet1.Range("B2").Value = Sheet1.Range("Q99").Value
'Hide cursor
'Sheet1.Range("A1").Select

'File exists. Do not export the embedded object.
If Dir(AudioFile) <> "" Then Exit Sub

Call ExtractWAV
DoEvents

End Sub

china047 · 发表于 2009-7-15 08:42

如果您将 Excel中那个OLE 文件删除了,就不会再自动生成ACDC.wav文件了.
这就好像是从Excel中提取Flash文件有点相似,只不过Flash要先提取片段,再将片段转为单独Flash文件.

[ 本帖最后由 china047 于 2009-7-15 08:48 编辑 ]

HHAAMM · 发表于 2009-7-15 09:00

附件工作原理
每次打开附件后，代码自动查找本目录下是否有ACDC.wav这个文件，如果有，代码终止执行。如果没有，就调用ExtractWAV过程，代码用二进制方式读写自身，当找到.wav的相关字节后，单独装入一个二进制数组，再生成本目下的.wav文件。

泓() · 发表于 2009-7-16 19:41

观摩学习了

lb_bn · 发表于 2009-9-16 19:59

看不懂。。。谢谢分享。

wwqiang · 发表于 2009-9-17 00:15

外国人真牛

zhao__feng · 发表于 2009-9-17 11:01

观摩学习了

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

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

回复 50楼 pst168 的帖子