[已解决]用什么方法能快速从Excel表格中把数字复制进txt中

117966388

我想把excel中的数字1-999999到处到txt文本中并且让他没一个数字一行请教怎么做到
进文本后是
1
2
3
4
5~~~
这样的格式谁能帮帮我谢谢

最佳答案

月排行榜 / 总排行榜

happym8888

2012-2-22 02:37

117966388 发表于 2012-2-21 23:05
我找到那个vba的使用方法 了但是我导出的数字想带上0怎么改一下vba呢，比如在execl里面是000001可是导出后就 ...

导出1-999999TXT文件.rar (9.99 KB, 下载次数: 9)

2012-2-22 02:36 上传

点击文件名下载附件

试试这个，你想打印到那个数字可以自己输入，从000001开始。

跳转到最佳答案楼层

上清宫主

直接另存为文本文件
不行，就上附件，反正有办法

117966388

另存也不行啊 我看见不是能写个vba直接导出吗 能帮我写个吗

hrpotter

117966388 发表于 2012-2-21 19:55
另存也不行啊 我看见不是能写个vba直接导出吗 能帮我写个吗

刚学了兰版的51集，帮你写了个

1.   Sub t1()
   
2.    Dim f As String
   
3.    Dim i As Long
   
4.      f = ThisWorkbook.path & "\aaa.txt"
   
5.      Open f For Output As #1
   
6.      For i = 1 To 999999
   
7.      Print #1, i
   
8.      Next
   
9.      Close #1
   
10.   End Sub

复制代码

117966388

还的请教你啊，我不会用能给我讲讲在那使用这个命令吗

上清宫主

输入后另存为文本文件：

117966388

我找到那个vba的使用方法 了但是我导出的数字想带上0怎么改一下vba呢，比如在execl里面是000001可是导出后就变成1了

happym8888

117966388 发表于 2012-2-21 23:05
我找到那个vba的使用方法 了但是我导出的数字想带上0怎么改一下vba呢，比如在execl里面是000001可是导出后就 ...

导出1-999999TXT文件.rar (9.99 KB, 下载次数: 9)

2012-2-22 02:36 上传

点击文件名下载附件

试试这个，你想打印到那个数字可以自己输入，从000001开始。

adders

117966388 发表于 2012-2-21 10:05
我找到那个vba的使用方法 了但是我导出的数字想带上0怎么改一下vba呢，比如在execl里面是000001可是导出后就 ...

1. 
   
2. Sub TextExport()   
   
3.     Dim i As Long
   
4.     Open ThisWorkbook.Path & "\test.txt" For Output As 1#
   
5.     For i = 1 To Range("A1").CurrentRegion.Rows.Count
   
6.         Print #1, Cells(i, 1).Text   
   
7.     Next i
   
8.     Close #1
   
9. End Sub

复制代码

hrpotter

117966388 发表于 2012-2-21 23:05
我找到那个vba的使用方法 了但是我导出的数字想带上0怎么改一下vba呢，比如在execl里面是000001可是导出后就 ...

1. Sub t1()
   
2. Dim f As String
   
3. Dim i As Long
   
4. f = ThisWorkbook.Path & "\aaa.txt"
   
5. Open f For Output As #1
   
6. For i = 1 To 999999
   
7. Print #1, Format(i, "000000")
   
8. Next
   
9. Close #1
   
10. End Sub

复制代码