菜鸟问题，送分了！！列表输出，帮我看看哪有错误？

Question

Dim a As Integer
   
   For a = 0 To List1.ListCount - 1
    List1.ListIndex = a
   a = a + List1.Text
Next a
    CommonDialog1.filename = ""
    CommonDialog1.Filter = "text files|*.txt"
    CommonDialog1.ShowSave
    filename = CommonDialog1.filename
    
    Dim otxt As Scripting.TextStream
    Set otxt = Fso.CreateTextFile(filename, ForWriting, True)
    otxt.WriteLine a
       
我想把list2里的内容导入到记事本里，麻烦帮我看看哪有问题，谢谢

Answer 1

呵呵，好像问题还不少啊，next 应该放在最后吧
我给你改改看
Dim a As Integer
Dim otxt As Scripting.TextStream
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For a = 0 To List1.ListCount - 1
    List1.ListIndex = a
    a = a + List1.Text
    CommonDialog1.FileName = ""
 CommonDialog1.Filter = "text files|*.txt"
 CommonDialog1.ShowSave
 FileName = CommonDialog1.FileName
 Set otxt = fso.CreateTextFile(FileName, True, True)
 otxt.WriteLine a
Next a

Answer 2

不好意思，一开始看错了，应该是这样的
Dim a As Integer
Dim otxt As Scripting.TextStream
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For a = 0 To List1.ListCount - 1
    List1.ListIndex = a
    a = a + List1.Text
Next a CommonDialog1.FileName = ""
 CommonDialog1.Filter = "text files|*.txt"
 CommonDialog1.ShowSave
 FileName = CommonDialog1.FileName
 Set otxt = fso.CreateTextFile(FileName, True, True)
 otxt.WriteLine a
 otxt.close

Answer 3

Dim a As Integer
CommonDialog1.filename = ""
CommonDialog1.Filter = "text files|*.txt"
CommonDialog1.ShowSave
filename = CommonDialog1.filename
Dim otxt As Scripting.TextStream
Set otxt = Fso.CreateTextFile(filename, ForWriting, True)
For a = 0 To List1.ListCount - 1
otxt.WriteLine list1.list(a)
Next

Answer 4

错了，a又是循环变量又在那取list的值。dim b as long'如果想要写进去的是文本的话dim b as stringDim a As Integer
   
   For a = 0 To List1.ListCount - 1
       b = b + val(lsit1.list(a))
   Next a
    CommonDialog1.filename = ""
    CommonDialog1.Filter = "text files|*.txt"
    CommonDialog1.ShowSave
    filename = CommonDialog1.filename
    
    Dim otxt As Scripting.TextStream
    Set otxt = Fso.CreateTextFile(filename, ForWriting, True)
    otxt.WriteLine b

Answer 5

呵呵，上面打错一个地方。list1打成lsit1了。如果要让所有的数字都列出来的话那是这样的：
dim b as string
Dim a As Integer
   
   For a = 0 To List1.ListCount - 1
       b = b + list1.list(a)
   Next a
    CommonDialog1.filename = ""
    CommonDialog1.Filter = "text files|*.txt"
    CommonDialog1.ShowSave
    filename = CommonDialog1.filename
    
    Dim otxt As Scripting.TextStream
    Set otxt = Fso.CreateTextFile(filename, ForWriting, True)
    otxt.WriteLine b