Excel 使用单元格值使用vba生成文件名和扩展名

我有一个代码，在Excel工作表的D2单元格中输入一个值 我还有一个按钮，当点击时会生成一个文件。我希望从单元格D2的值生成文件名，扩展名为.txt

示例：cellname.txt

我输入D2:PSN_文件

然后该文件应生成为PSN_file.txt

这是我目前的代码：

Dim val As String
val = Range("D2").Value
Dim iCntr
Dim relativePath As String
Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
relativePath = ThisWorkbook.Path & "val.txt" => here showing error
Open relativePath For Output As #1
For iCntr = 1 To LastRow
Print #1, Range("E" & iCntr)
Next iCntr
Close #1

---

文件创建为val.txt而不是PSN_file.txt

需要路径分隔符，并且不引用val

---

您得到的错误是什么？您可能还需要指定val的范围所在的位置。val=ActiveSheet.Cells2,4.Value

relativePath = ThisWorkbook.Path & "\" & val & ".txt"