Используйте значение ячейки для генерации имени файла и расширения с помощью vba

Question

У меня есть код, в который я ввожу значение в ячейку "D2" на листе Excel, и у меня также есть кнопка, которая генерирует файл при нажатии.Я хочу, чтобы имя файла было сгенерировано из значения ячейки "D2" с расширением ".txt".

Пример: cellname.txt

Я ввожу в D2: PSN_FILE

Затем файл должен быть сгенерирован как "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»

Answer 1

Требуется разделитель пути и без кавычек val

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