excel转换成多个txt，并将题目转换成音频

        最近有一个新的需求，就是客户提供excel试题，需要帮客户转换成语言。通过查找语言转换软件发现批量转换需要拆分成多个txt文件。

题目格式如上，选择开发工具--vb

 

Sub DaoChu()
    Dim I As Integer, J As Long, RW As Long  '定义行数，列数'
    RW = ActiveSheet.UsedRange.Rows.Count  '获取列数'
    For I = 1 To 14    '导出14行'
        Open "D:\" & I & ".txt" For Output As 1   '导出文件'
            For J = 1 To RW
                Print #1, Range(Chr(Asc("A") + J - 1) & CStr(I)).Value  '导出'
            Next J
        Close 1
    Next I
    MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

 

 微软语音合成助手

 就可以批量转换成mp3了。

本文记录整个问题处理过程。