Excel vba 写个一按触发按钮.就输出一个叫1.txt的文档,在c:/盘,内容是A1:A10的内容?

Excel vba 写个一按触发按钮.就输出一个叫1.txt的文档,在c:/盘,内容是A1:A10的内容?

Private Sub CommandButton1_Click()
    If Dir("C:\1.txt", 16) <> Empty Then Kill "C:\1.txt"
    Open "C:\1.txt" For Append As #1
    for i=1 to 10
        Print #1, cells(i,1).value
    next
    close #1 '改一下，刚才漏了。
End Sub

运行代码时效果没区别，但前者运行稍快。主区别在于写代码时，前者后面键入点后会自动提示属性方法，输入代码快捷方便，而后者不会提示。