1、在模块1中增加如下的VBA代码Option ExplicitPublic Sub 觊皱筠桡ConvertExcelToTxt1() Activ髫潋啜缅eWorkbook.SaveAs "c:\学生成绩.txt", XlFileFormat.xlCSVEnd Sub
2、运行VBA代码生成txt文件光标放在上图红框内,按下F8,启动单步调试,连续按下F8,就可以运行完成上面的VBA代码,并会生成c:\学生成绩.txt。注:也可以按下F5,一次性运行完成。
时间:2024-10-14 06:47:13
1、在模块1中增加如下的VBA代码Option ExplicitPublic Sub 觊皱筠桡ConvertExcelToTxt1() Activ髫潋啜缅eWorkbook.SaveAs "c:\学生成绩.txt", XlFileFormat.xlCSVEnd Sub
2、运行VBA代码生成txt文件光标放在上图红框内,按下F8,启动单步调试,连续按下F8,就可以运行完成上面的VBA代码,并会生成c:\学生成绩.txt。注:也可以按下F5,一次性运行完成。