Open path3 For Output As #2
Workbooks.Open FileName:=path1
Set mysheet1 = ActiveWorkbook.Sheets(1)
For n = 2 To 200
a = Trim(mysheet1.Cells(n, "A").Value)
b = Trim(mysheet1.Cells(n, "B").Value)
c = Trim(mysheet1.Cells(n, "C").Value)
d = Trim(mysheet1.Cells(n, "D").Value)
e = Trim(mysheet1.Cells(n, "E").Value)
f = Trim(mysheet1.Cells(n, "F").Value)
linetext = "a&b&c&d&e&f"
Print #2, linetext
Next n

ActiveWindow.Close '关闭excel

Close 2 '关闭txt
这个程序是读一个EXCEL表格的二到200行的,A,B,C,D,E,F列
但是最终于输出是198行a&b&c&d&e&f
为什么会是结果呢?
怎样修改程序才能正常输出一列的A,B,C,D,E,F列的内容呢?谢谢