Office中国论坛/Access中国论坛

标题: 求助为什么表格的VBA不能导出数据到记事本 [打印本页]

---

作者: www96    时间: 2012-8-23 18:28
标题: 求助为什么表格的VBA不能导出数据到记事本
求助为什么表格的VBA不能导出数据到记事本，谢谢！[attach]50216[/attach]

---

作者: roych    时间: 2012-8-24 00:20
主要是楼主的一些代码没写好（例如对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
    

复制代码

[attach]50219[/attach]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3