国内第一个用Excel制作的mv

Bely · 发表于 2011-4-27 01:09

看眼了。。。

a19410593 · 发表于 2011-4-27 05:20

原帖由 HHAAMM 于 2011-4-24 04:14 发表
测试！！
1、运行时是否会出现错误
2、声音与视频是否同步
麻烦跟帖说下测试结果_谢谢！！

能解释下如何把MP3和文本文档如何包到里面的吗？

lskuanye · 发表于 2011-4-27 09:13

不错。赞。

HHAAMM · 发表于 2011-4-27 13:18

原帖由 a19410593 于 2011-4-27 05:20 发表

能解释下如何把MP3和文本文档如何包到里面的吗？

办法很多的
这类东东近期一共做了三个，每次都不一样
第一次是将MP3的二进制数据写入Excel...，这样最方便，但坏处是Excel会很大
第二次..怎么弄的忘了
第三次，MP3和文本文档做好后压缩，Excel里以插入包的方式插入这个压缩包（在附件中确定按钮的下面）。
用第三种方式生成的Excel文件不大，应该是Excel携带其它文件的最好办法，缺点是对此进行操作的代码复杂些。

HHAAMM · 发表于 2011-4-27 13:29

本帖是这样

xibeiakang · 发表于 2011-6-3 14:43

这是一个太牛的用法。。

a8737461 · 发表于 2011-10-29 12:08

精彩精彩，学习学习

poongsan · 发表于 2011-10-29 14:20

效果不错，
如果是彩色的，不得了啦！

渔君 · 发表于 2011-11-1 10:01

版主伟大！

hnayzwp · 发表于 2011-11-15 09:30

报错了
CopyMemory lOffset, bytData(iPos), 4
iPos = iPos + lOffset + 4
CopyMemory lFilesize, bytData(iPos), 4
iPos = iPos + 4
CopyMemory bytData(0), bytData(iPos), lFilesize
ReDim Preserve bytData(0 To lFilesize) As Byte
Dim fileNumber As Integer
fileNumber = FreeFile
Open targetFile For Binary As #fileNumber
Put #fileNumber, , bytData
Close #fileNumber

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

[原创] 国内第一个用Excel制作的mv