求助为什么表格的VBA不能导出数据到记事本

www96

求助为什么表格的VBA不能导出数据到记事本，谢谢！

roych

主要是楼主的一些代码没写好（例如对UsedRange属性的理解有误）。我在保持源代码的基础上做了少许修改并优化了数组，详见附件：

1. Public Sub aaaaa()
   
2. Dim ar, k, i, j, str
   
3. Open ThisWorkbook.Path & "" & ActiveSheet.Name & ".txt" For Output As #1
   
4.         If Application.CountA(Columns("AL")) = 0 Then Exit Sub
   
5.             '定义数组
   
6.             ar = [al3:aq122]
   
7.             For i = 1 To UBound(ar, 1)
   
8.                 If IsNumeric(ar(i, 1)) Then
   
9.                    Print #1, ar(i, 1) & vbTab & ar(i, 2) & vbTab & ar(i, 3) & vbTab & ar(i, 4) & vbTab & ar(i, 5) & vbTab & ar(i, 6)
   
10.                 End If
    
11.             Next
    
12. Close
    
13. End Sub
    

复制代码