请问如何有VBA将excel中的某个指定的sheets整体保存为文本文件？

[applehoo]

我有一个excel文件，如：abc.xls，里面有个表格sheet1，我在这个文件里建立了一个vba程序。
我想用个按钮实现这样的功能，点击按钮后，把sheet1的全部内容保存为一个文本文件test1.txt。

请教达人指点！！谢谢！！

[applehoo]

我需要的是只保存一个sheet的代码。录制宏的问题：一是保存的是整个文件。二是我需要的是文本文件。

[applehoo]

请达人帮忙！等待中.....

[熊孩子开学喽]

另存为csv格式就可以了, 你录制一个宏,看一下宏代码就知道了

[luanyujia168]

Sub xieru()
Set kz = Worksheets("sheet1")
Open "D:\guojie\kaizheng\" & a & "kz.txt" For Output As #1
For I = 0 To 10000
If kz.Cells(I + 2, 1) = "" Then Exit For
Write #1, kz.Cells(I + 2, 1), kz.Cells(I + 2, 2), kz.Cells(I + 2, 3), kz.Cells(I + 2, 4), _
kz.Cells(I + 2, 5), kz.Cells(I + 2, 6), kz.Cells(I + 2, 7), kz.Cells(I + 2, 8), _
kz.Cells(I + 2, 9), kz.Cells(I + 2, 10), kz.Cells(I + 2, 11), kz.Cells(I + 2, 12), _
kz.Cells(I + 2, 13), kz.Cells(I + 2, 14), kz.Cells(I + 2, 15), kz.Cells(I + 2, 16), _
kz.Cells(I + 2, 17), kz.Cells(I + 2, 18), kz.Cells(I + 2, 19), kz.Cells(I + 2, 20), _
kz.Cells(I + 2, 21), kz.Cells(I + 2, 22), kz.Cells(I + 2, 23), kz.Cells(I + 2, 24), _
kz.Cells(I + 2, 25), kz.Cells(I + 2, 26)

Next
Close #1


End Sub

[luanyujia168]

初学，瞎写的，见笑了！！！

[贝隆]

Sub Macro1()
'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2011-11-15
'

'
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Workbooks("新建 Microsoft Excel 工作表 (2).xls"). _
        Sheets(3)
    Windows("新建 Microsoft Excel 工作表.xls").Activate
End Sub

新建两个Excel文件：新建 Microsoft Excel 工作表、新建 Microsoft Excel 工作表（2）将它们都打开
然后对新建 Microsoft Excel 工作表录制的宏，在Sheet1中选择移动创建副本到新建 Microsoft Excel 工作表（2）中