[已解决]一键创建内容为“文档内容1”的文档名1.txt

zss7758258

请教.zip (164.41 KB, 下载次数: 10)

2017-4-28 13:46 上传

点击文件名下载附件

根据A2：A和B2：B，一键创建内容为“文档内容1”的文档名1.txt，并且保存在D:\请教

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 17:19

1. Sub aaa()
   
2. Dim sFile As Object, Fso As Object, arr, i&
   
3. Set Fso = CreateObject("Scripting.FileSystemObject")
   
4. arr = [a1:b6]
   
5. For i = 2 To UBound(arr)
   
6.   Set sFile = Fso.CreateTextFile("d:/请教/" & arr(i, 1) & ".txt", True)
   
7.   sFile.WriteLine arr(i, 2)
   
8.   sFile.Close
   
9. Next i
   
10. Set sFile = Nothing
    
11. Set Fso = Nothing
    
12. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim sFile As Object, Fso As Object, arr, i&
   
3. Set Fso = CreateObject("Scripting.FileSystemObject")
   
4. arr = [a1:b6]
   
5. For i = 2 To UBound(arr)
   
6.   Set sFile = Fso.CreateTextFile("d:/请教/" & arr(i, 1) & ".txt", True)
   
7.   sFile.WriteLine arr(i, 2)
   
8.   sFile.Close
   
9. Next i
   
10. Set sFile = Nothing
    
11. Set Fso = Nothing
    
12. End Sub

复制代码