Экспортируйте из xlsx в csv и сохраняйте файл csv outlpu в той же папке, что и исходный прочитанный файл xlsx - PullRequest
Новая
       37

Экспортируйте из xlsx в csv и сохраняйте файл csv outlpu в той же папке, что и исходный прочитанный файл xlsx

0 голосов
/ 01 июля 2019

У меня есть этот код VBA в Excel, но мне нужно внести некоторые изменения, чтобы файл мог использоваться любым, в этом случае код VBA только для моей папки / ПК. 

Sub GravarArquivoCSV()
    Dim fileNum As Long
    Dim i As Long

    fileNum = FreeFile
    Open Range("E1").Value For Output As fileNum

    With Sheets("APR_CSV")
        i = 1
        Do While .Cells(i, "A").Text <> ""
            Print #fileNum, .Cells(i, "A").Value & ";" & _
                      Format(.Cells(i, "B").Value, "@") & ";" & _
                      .Cells(i, "C").Value & ";" & _
                      .Cells(i, "D").Value
            i = i + 1
        Loop
    End With
    Close fileNum

    MsgBox "Arquivo gerado com sucesso!", vbInformation, "OK"

    Sheets("Autoline Controlo Compras").Activate
End Sub

Эта часть говорит / указывает путь к файлу: 

fileNum = FreeFile
Open Range("E1").Value For Output As fileNum

Ячейка E1 содержит c:\users\xx\xx\APR CSV Renault.CSV

...