vba 设置环境变量_VBA利用CMD调用ffmpeg批量提取视频/GIF文件帧

注意：要运行本文中的代码，需要安装ffmpeg，并配置环境变量

2018年4月做了一个Excel公式播放《bad apple》的视频，在提取帧时现学了ffmpeg

https://www.bilibili.com/video/av22428397/​www.bilibili.com

当时是直接在命令行里操作，在记事本里修改后粘贴运行。最近又有了类似的需求，感觉在记事本里修改过于繁琐，尝试了下在Excel里利用VBA操作CMD命令行运行ffmpeg，参数直接从表格里取

https://www.zhihu.com/video/1206305826048409600

示例里的代码：

Sub ffmpeg批量导出文件帧()

    Dim fileToOpen As Variant
    Dim FilePath As String '文件路径
    Dim Fso As Object
    Dim MyFile As Object '文件对象
    Dim MyWidth As Integer '帧宽度
    Dim MyHeight As Integer '帧高度
    Dim ffmpeg_r As Integer '每秒帧数
    Dim ffmpeg_ss As String '起始时间
    Dim ffmpeg_t  As String '持续时间
    Dim MyDrive As String '驱动