Как изменить путь к файлу при записи приложения VBA (Excel), которое пишет из файла Excel в текстовый файл?

Question

Как изменить путь к файлу при записи приложения VBA (Excel), которое пишет из файла Excel в текстовый файл?Что бы я ни делал, он либо просто выдает мне ошибку, либо создает ее в той же папке (Documents).

Полный соответствующий код:

Dim x As Integer

Dim tmp As String


Sub CommandButton1_Click()
Dim File As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
    File = Application.DefaultFilePath & "\Viteria_mancante_o_in_esaurimento.txt"
    Set rng = Selection
    Open myFile For Append As #1
    cellValue = Range("C2").Value
    Write #1, cellValue
    cellValue = Range("D2").Value
    Write #1, cellValue
    Close #1
tmp = "C" + CStr(12 + x) + ":" + "D" + CStr(12 + x)
Worksheets("Foglio2").Range(tmp).Value2 = Worksheets("Foglio2").Range("C2:D2").Value2
x = x + 1
End Sub

РЕДАКТИРОВАТЬ:

Добавлено изображение ячеек, становящихся красными.

Answer 1

Замените эту строку:

File = Application.DefaultFilePath & "\Filename.txt"

С полным путем, где вы хотите местоположение файла.Например:

File = "C:\MyFolder\Filename.txt"

И исправьте эту строку:

Open myFile For Append As #1

К этому:

Open File For Append As #1

Я также предлагаю добавить опцию явно в началемодуль vba, чтобы вы не имели необъявленных переменных