请教高手如何把单元格数据批量生成文本文件

han148

现有表格数据如下：

网元名称	网元IP地址
名称1	123.123.123.1
名称2	123.123.123.2
名称3	123.123.123.3
名称4	123.123.123.4
名称5	123.123.123.5
名称6	123.123.123.6
名称7	123.123.123.7
名称8	123.123.123.8
名称9	123.123.123.9
名称10	123.123.123.10

要生成10个文本文件如下：

S:"Hostname"=填IP地址
S:"Firewall Name"=填网元名称
S:"Username"=
S:"Log Filename"=E:\保存文件名用IP地址.txt


请高手指点一下，谢谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim mypath$, myname$
   
5.   mypath = ThisWorkbook.Path & ""
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:b" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       Open mypath & arr(i, 1) & ".txt" For Output As #1
    
11.       Print #1, "S:""Hostname""=" & arr(i, 2)
    
12.       Print #1, "S:""Firewall Name""=" & arr(i, 1)
    
13.       Print #1, "S:""Username""="
    
14.       Print #1, "S:""Log Filename""=" & mypath & arr(i, 1) & ".txt"
    
15.       Close #1
    
16.     Next
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

详见附件。

jsgj2023

请见附件!!!

han148

chxw68 发表于 2017-11-2 14:42
详见附件。

我用OFFICE2016，按你写的没有反应，请在代码后面加上注释，谢谢！

chxw68

han148 发表于 2017-11-2 15:02
我用OFFICE2016，按你写的没有反应，请在代码后面加上注释，谢谢！

同文件夹下没有生成的文本文件？

han148

jsgj2023 发表于 2017-11-2 14:55
请见附件!!!

我用OFFICE2016，按你写的没有反应，请在代码后面加上注释，谢谢！

han148

chxw68 发表于 2017-11-2 15:07
同文件夹下没有生成的文本文件？

有文件生成，可我要修改一下内容，请给程序代码写注释，非常感谢！

han148

chxw68 发表于 2017-11-2 15:07
同文件夹下没有生成的文本文件？

有文件生成，可我要修改一下内容，请给程序代码写注释，非常感谢！

han148

chxw68 发表于 2017-11-2 15:07
同文件夹下没有生成的文本文件？

老师，请加我QQ：435409578