我创建了一个VBA代码,我生成文本文件 . 我将7个参数传递给子方法以生成所有文本文件 . 但是,我很难将生成的文件保存到用户选择的文件夹中 . 当我运行代码时,它只是将所有文件保存到包含的路径中(现在因为我不知道如何做我上面解释的) .
下面是我的代码,我试图合并我可以使用的路径让任何用户选择一个文件夹来保存所有生成的文本文件 .
Sub TextFiles()
Dim fso As Scripting.FileSystemObject, Path As String
'Ask user to save files into a folder
Path = "C:\Users\samplename\Desktop\TEST"
'Call sub procedure to generate text files and store them in NewFolderPath
CreateTxtFiles.CreateTxtFiles Path & "\sample1.txt", 1, "sample1", "sample1_", 7, "sample1_2", 9
CreateTxtFiles.CreateTxtFiles Path & "\sample2.txt", 2, "sample2", "sample2_", 9, "0", 0
CreateTxtFiles.CreateTxtFiles Path & "\sample3.txt", 3, "sample3", "sample3", 5, "0", 0
CreateTxtFiles.CreateTxtFiles Path & "\sample4.txt", 4, "sample4", "sample4", 5, "0", 0
结束子