1、在模块1中增加如下的VBA代码Option ExplicitPublic Sub 觊皱筠桡ConvertExcelToTxt1() Activ髫潋啜缅eWorkbook.SaveAs "c:\学生成绩.txt", XlFileFormat.xlCSVEnd Sub


时间:2024-10-14 06:47:13
1、在模块1中增加如下的VBA代码Option ExplicitPublic Sub 觊皱筠桡ConvertExcelToTxt1() Activ髫潋啜缅eWorkbook.SaveAs "c:\学生成绩.txt", XlFileFormat.xlCSVEnd Sub