利用excel用单元格的内容创建txt文件并以此内容命名,求解决方法,(不懂VBA,要详细点了,谢谢)

Sub aa(filename As String)
Dim gPath As String
Dim sFile As Object, Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set sFile = Fso.CreateTextFile("d:/" & filename & ".txt", True)
sFile.Close
Set sFile = Nothing
Set Fso = Nothing
End Sub
Sub bb()
Dim i As Integer
For i = 1 To 10
aa (Cells(i, 1).Value)
Next
End Sub
调用宏bb即可