最近有一个新的需求,就是客户提供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了。
本文记录整个问题处理过程。