[已解决]求高手帮忙做个excel 表格 编写一段VBA程序

grf1973

自己改改不就行了吗？

1. Sub 导出A列()
   
2.     Dim a, arr, i&, j&
   
3.     On Error GoTo aa
   
4.     mypath = ThisWorkbook.Path & ""
   
5.     r = [a65536].End(3).Row
   
6.     arr = Range("a1:a" & r)
   
7.     Open mypath & "处理结果" & [b1] & ".txt" For Output As #1
   
8.     For i = 1 To UBound(arr)
   
9.         Print #1, arr(i, 1)
   
10.     Next
    
11.     Close #1
    
12. aa:
    
13. End Sub

复制代码

无聊学习用

grf1973 发表于 2014-3-20 15:29
自己改改不就行了吗？

555555兄弟是小菜。。。 没那么深的功力啊。。  麻烦老师给弄下哈。。我自己转了下。 直接就错误 调试了。。

grf1973

我调试过的没错啊。你把错误的附件发上来。明天有空回。

无聊学习用

grf1973 发表于 2014-3-20 16:37
我调试过的没错啊。你把错误的附件发上来。明天有空回。

没改明白。。。

grf1973

你不是要A列导出吗？A列没内容怎么导出？另外导入是按你要求读取的本文件夹下的文本文件，你放两个文本文件就没问题了。

无聊学习用

grf1973 发表于 2014-3-21 10:58
你不是要A列导出吗？A列没内容怎么导出？另外导入是按你要求读取的本文件夹下的文本文件，你放两个文本文件 ...

老兄。导入导出 都好用了就差最后一点了。你帮我把那个导出的名字 跟B2的文字关联一下。不然导出的文件都是一个名字，顶掉了都 。谢谢啊

无聊学习用

grf1973 发表于 2014-3-21 10:58
你不是要A列导出吗？A列没内容怎么导出？另外导入是按你要求读取的本文件夹下的文本文件，你放两个文本文件 ...

额 。好用了。是我弄错了。。 在B1 上 。。谢谢了啊