[已解决]求高手帮忙，关于excel内容复制到新建的txt文档问题

father4

求高手帮忙看一下附件的表呗，我想要将sheet1里面的内容复制到一个新建文档中，并且这个新建的文档以sheet2中A2命名。这个新建的文档将会保存在表单存放的位置。

我试着写过一些，可是内容粘贴进txt之后，txt中每行最开始和结束都会多出来一个符号“ ‘ "。。。

谢谢！！！

最佳答案

月排行榜 / 总排行榜

ppp710715

2015-1-29 23:29

1. '将sheet1表中的数据写入到文本文本中
   
2.   Sub 转换成txt文件()
   
3.     Dim f, arr, x, y, k, sr$, rw&
   
4.     sr = Sheets("sheet2").Range("a2").Value
   
5.     f = ThisWorkbook.Path & "" & sr & ".txt"
   
6.     arr = Sheets("sheet1").Range("a1").CurrentRegion
   
7.     rw = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
   
8.     Open f For Output As #1
   
9.     For x = 1 To UBound(arr)
   
10.          Print #1, arr(x, 1)
    
11.     Next x
    
12.   Close #1
    
13.   MsgBox "已将sheet1表中的数据写入到文本文件" & sr & "中！"
    
14.   End Sub

复制代码

解.rar (8.35 KB, 下载次数: 4)

2015-1-29 23:29 上传

点击文件名下载附件

跳转到最佳答案楼层

ppp710715

1. '将sheet1表中的数据写入到文本文本中
   
2.   Sub 转换成txt文件()
   
3.     Dim f, arr, x, y, k, sr$, rw&
   
4.     sr = Sheets("sheet2").Range("a2").Value
   
5.     f = ThisWorkbook.Path & "" & sr & ".txt"
   
6.     arr = Sheets("sheet1").Range("a1").CurrentRegion
   
7.     rw = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
   
8.     Open f For Output As #1
   
9.     For x = 1 To UBound(arr)
   
10.          Print #1, arr(x, 1)
    
11.     Next x
    
12.   Close #1
    
13.   MsgBox "已将sheet1表中的数据写入到文本文件" & sr & "中！"
    
14.   End Sub

复制代码

解.rar (8.35 KB, 下载次数: 4)

2015-1-29 23:29 上传

点击文件名下载附件

father4

ppp710715 发表于 2015-1-29 23:29

太感谢了！完全没有问题了！！！

无为123456

请问：如何修改宏将TXT文件保存在桌面上