excel通过宏vb生成模板txt文件答:Sub abcd()Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9On Error Resume NextSet mysheet1 = ThisWorkbook.Worksheets("Sheet1")Set fs = CreateObject("Scripting.FileSystemObject")Set fi = fs.CreateTextFile("d:\Code123.txt", True) '在D盘里边创建 Code123....