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

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

请教达人指点!!谢谢!!
...全文
515 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
贝隆 2011-11-15
  • 打赏
  • 举报
回复

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)中
luanyujia168 2011-11-14
  • 打赏
  • 举报
回复
初学,瞎写的,见笑了!!!
luanyujia168 2011-11-14
  • 打赏
  • 举报
回复
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
熊孩子开学喽 2011-10-16
  • 打赏
  • 举报
回复
另存为csv格式就可以了, 你录制一个宏,看一下宏代码就知道了
applehoo 2011-10-16
  • 打赏
  • 举报
回复
请达人帮忙!等待中.....
applehoo 2011-10-16
  • 打赏
  • 举报
回复
我需要的是只保存一个sheet的代码。录制宏的问题:一是保存的是整个文件。二是我需要的是文本文件。

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧