[已解决]对部分单元格内容选取后导出至TXT

蝶·舞

我想通过点击“导出”按钮，然后出现如同下面这样的提示框

然后自己点击相应的单元格后，把选中的导出为TXT文本，内容与分号隔开。 导出.zip (5.01 KB, 下载次数: 4)

2014-12-31 10:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-31 10:31

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, j%
   
3. Set rng = Application.InputBox("请用鼠标选中数据", Type:=8)
   
4. If rng.Count < 2 Then Exit Sub
   
5. arr = rng
   
6. Open ThisWorkbook.Path & "\1.txt" For Output As #1
   
7.     For i = 1 To UBound(arr)
   
8.         p = ""
   
9.         For j = 1 To UBound(arr, 2)
   
10.             p = p & "," & arr(i, j)
    
11.         Next
    
12.         Print #1, Mid(p, 2)
    
13.     Next
    
14. Close #1
    
15. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&, j%
   
3. Set rng = Application.InputBox("请用鼠标选中数据", Type:=8)
   
4. If rng.Count < 2 Then Exit Sub
   
5. arr = rng
   
6. Open ThisWorkbook.Path & "\1.txt" For Output As #1
   
7.     For i = 1 To UBound(arr)
   
8.         p = ""
   
9.         For j = 1 To UBound(arr, 2)
   
10.             p = p & "," & arr(i, j)
    
11.         Next
    
12.         Print #1, Mid(p, 2)
    
13.     Next
    
14. Close #1
    
15. End Sub

复制代码