使用多行文本框值创建一个文本文件作为文件名vba

Question

嗨所有有人可以帮助您如何创建文本文件使用文本框的多行值作为文件名？

我有一个用户窗体中的多行文本框，我在其中输入多个值。我的代码可以创建文本文件，如果我只输入一个值，但如果我输入2或更多没有创建。你能帮我确定我的代码中缺少哪些代码来创建文本文件，并且文件的名称应该是多行文本框中的每个值？我已经尝试过搜索，但看起来没有像我担心的那样主题。预先感谢您的任何帮助。

以下是我的代码。

Private Sub CREATE_REQ_Click() 

    Dim sExportFolder, sFN 
    Dim oFS As Object 
    Dim oTxt As Object 

    sExportFolder = TextBox1 ' "D:\TEST\REQ_FILES_CREATED_HERE" 

    Set oFS = CreateObject("Scripting.Filesystemobject") 
    For Each strLine In TextLogistic 

    'Add .txt to the article name as a file name 

    sFN = "-" & TextLogistic.Value & ".req" 

Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & ListBox1 & sFN, 2, True) 
    oTxt.Write combo1.Value 
    oTxt.Close 
    Next 

End Sub 

Answer 1

Here's the solution for the above issue. 

Private Sub CREATE_REQ_Click() 

Dim sExportFolder, sFN 
Dim oFS As Object 
Dim oTxt As Object 
Dim v As Variant 
Dim vlist As Variant 
Dim key As Variant 


    Set oFS = CreateObject("Scripting.Filesystemobject") 
    vlist = Split(Replace(TextLogistic, Chr(13), ""), Chr(10)) 

For Each v In vlist 
    key = Trim(v) 

    sFN = "-" & key & ".req" 
    Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & ListBox1 & sFN, 2, True) 
    oTxt.Write combo1.Value 
    oTxt.Close 

Next 

End Sub