[已解决]excle单元格转存文本问题

1225426230

我的问题是有3个单元格BK3、BK4、和BK5，BK3作为另存后的文件名，BK4和BK5是文本内容，BK4和BK5在文本里两行显示。文件保存在E盘指定目录ST下。谢谢帮忙！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-21 11:07

1. Sub aaa()
   
2. Dim s$, i&, r&
   
3. s = "E:\TS" & [bk3] & ".txt"
   
4. i = FreeFile
   
5. Open s For Output As #i
   
6. arr = [bk3].CurrentRegion
   
7. For r = 2 To UBound(arr)
   
8.   Print #i, arr(r, 1)
   
9. Next
   
10. Close #i
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim s$, i&, r&
   
3. s = "E:\TS" & [bk3] & ".txt"
   
4. i = FreeFile
   
5. Open s For Output As #i
   
6. arr = [bk3].CurrentRegion
   
7. For r = 2 To UBound(arr)
   
8.   Print #i, arr(r, 1)
   
9. Next
   
10. Close #i
    
11. End Sub

复制代码

1225426230

谢谢大灰狼1996版主，能加个按钮吗？

大灰狼1976

按钮你自己加个就好了，引用我写的宏。

1225426230

好的，谢谢

大灰狼1976

谨慎起见，在[bk3]前面加上工作表名来限定它。

1225426230

为何我加了按钮却执行不了呢，Open s For Output As #i为黄色

1225426230

运行时错误，“76”
路径未找到

1225426230

找到问题的症结了，解决了。万分感谢大灰狼