[已解决]菜鸟求一个vba，导出单元格内容为txt文件

瀚海人

斑竹好：我求助的vba程序说明如下

 1，单元格B1-----O1总共有14个单元格，分别存放了不同的内容，我想把这14个单元格向自选文件夹一次性导出14个txt文件，自动命名为1.txt。2.txt，3.txt。。。。14.txt。

2，单元格内容的存放数据是横向的一行，要求导出到txt文件时，变成竖向的一列。

3，导出完成后，跳出对话框提示。

菜鸟求一个vba，导出单元格内容为txt文件

菜鸟求一个vba，导出单元格内容为txt文件

[此贴子已经被作者于2009-10-4 10:27:35编辑过]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-10-4 10:38

QUOTE:

以下是引用瀚海人在2009-10-4 10:33:00的发言：
我看了你做的EXCEL导出样本，点击按钮后，应该出来一个自选框，可以自选文件夹，否则，我不知道导出的txt文件去哪儿了

这个好弄

Sub a()
Dim T, i%, k%, w, s$, L$
Set T = CreateObject("Scripting.FileSystemObject")
L = InputBox("输入保存路径", "保存", "c:")
For i = 2 To [IV1].End(1).Column
    Set w = T.CreateTextFile(L & "\" & i - 1 & ".txt", True)
    ReDim arr(1 To Len(Cells(1, i)))
    For k = 1 To Len(Cells(1, i))
        s = Mid(Cells(1, i), k, 1)
        w.WriteLine (s)
    Next
    w.Close
Next
MsgBox "已全部生成!"
End Sub

改一下红色的部份

跳转到最佳答案楼层

雨狐

2YvjEtDo.rar (7.45 KB, 下载次数: 35)

2009-10-4 10:12 上传

点击文件名下载附件
菜鸟求一个vba，导出单元格内容为txt文件

单元格一行横变竖不明白，

Sub a()
Dim T, i%, w
Set T = CreateObject("Scripting.FileSystemObject")
For i = 2 To [IV1].End(1).Column
    Set w = T.CreateTextFile(ThisWorkbook.Path & "\" & i - 1 & ".txt", True)
    w.WriteLine (ActiveSheet.Cells(1, i).Value)
    w.Close
Next
MsgBox "已全部生成!"
End Sub

雨狐

重新领会了一下横竖，再发一个

eWLiEMKL.rar (8.04 KB, 下载次数: 40)

2009-10-4 10:24 上传

点击文件名下载附件
菜鸟求一个vba，导出单元格内容为txt文件
Sub a()
Dim T, i%, k%, w, s$
Set T = CreateObject("Scripting.FileSystemObject")
For i = 2 To [IV1].End(1).Column
    Set w = T.CreateTextFile(ThisWorkbook.Path & "\" & i - 1 & ".txt", True)
    ReDim arr(1 To Len(Cells(1, i)))
    For k = 1 To Len(Cells(1, i))
        s = Mid(Cells(1, i), k, 1)
        w.WriteLine (s)
    Next
    w.Close
Next
MsgBox "已全部生成!"
End Sub

[此贴子已经被作者于2009-10-4 10:26:38编辑过]

瀚海人

我上传了横行和竖列的图片

请指教

瀚海人

我看了你做的EXCEL导出样本，点击按钮后，应该出来一个自选框，可以自选文件夹，否则，我不知道导出的txt文件去哪儿了，感谢雨狐，劳驾给修改一下，给一个完整的的可用程序，谢谢了

[此贴子已经被作者于2009-10-4 10:40:23编辑过]

雨狐

QUOTE:

以下是引用瀚海人在2009-10-4 10:33:00的发言：
我看了你做的EXCEL导出样本，点击按钮后，应该出来一个自选框，可以自选文件夹，否则，我不知道导出的txt文件去哪儿了

这个好弄

Sub a()
Dim T, i%, k%, w, s$, L$
Set T = CreateObject("Scripting.FileSystemObject")
L = InputBox("输入保存路径", "保存", "c:")
For i = 2 To [IV1].End(1).Column
    Set w = T.CreateTextFile(L & "\" & i - 1 & ".txt", True)
    ReDim arr(1 To Len(Cells(1, i)))
    For k = 1 To Len(Cells(1, i))
        s = Mid(Cells(1, i), k, 1)
        w.WriteLine (s)
    Next
    w.Close
Next
MsgBox "已全部生成!"
End Sub

改一下红色的部份

瀚海人

谢谢雨狐，只是跳出的对话框需要人工输入地址，有没有更好的，可以用鼠标点击选择的对话框？

雨狐

QUOTE:

以下是引用瀚海人在2009-10-4 10:51:00的发言：
谢谢雨狐，只是跳出的对话框需要人工输入地址，有没有更好的，可以用鼠标点击选择的对话框？

参考了一下：

 

plY6LajR.rar (13.05 KB, 下载次数: 65)

2009-10-4 11:24 上传

点击文件名下载附件
菜鸟求一个vba，导出单元格内容为txt文件

勤快的猫

2，单元格内容的存放数据是横向的一行，要求导出到txt文件时，变成竖向的一列。

一行变一列?

[em04]

瀚海人

QUOTE:

以下是引用勤快的猫在2009-10-4 14:34:00的发言：

2，单元格内容的存放数据是横向的一行，要求导出到txt文件时，变成竖向的一列。

一行变一列?

[em04]

是的

把一行变成一列