这段哪里有问题？

czr0373

我想把A1:B5的内容输出为文本，到Print #1, str: Reset提示类型不匹配
Sub prt()
Dim str As Range
     Set str = Range("a1:b5")
    Open ThisWorkbook.Path & "\test.txt" For Output As #1
    Print #1, str: Reset
End Sub

chxw68

楼主的代码是自己想像出来的吧？

1. Sub prt()
   
2.   Dim str As Range
   
3.   s1 = ""
   
4.   For i = 1 To 5
   
5.     s2 = ""
   
6.     For j = 1 To 2
   
7.       s2 = s2 & "," & Cells(i, j)
   
8.     Next
   
9.     s1 = s1 & vbCrLf & Mid(s2, 2)
   
10.   Next
    
11.   Open ThisWorkbook.Path & "\test.txt" For Output As #1
    
12.   Print #1, Mid(s1, 3)
    
13.   Close #1
    
14. End Sub
    

复制代码

czr0373

chxw68 发表于 2018-6-15 16:07
楼主的代码是自己想像出来的吧？

多谢，今天没花了，留待来日再献花