Esportare celle excel in txt

Question

Salve,

Sarebbe possibile esportare tramite macro una selezione di celle di un foglio per avere un txt (blocco note) con nome file e percorso inseriti nelle celle di un secondo foglio?

Grazie anticipatamente

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao, francesco drago

Grazie per aver utilizzato i prodotti Microsoft e per averli pubblicati nella community.

Può essere realizzato tramite la macro VBA verrà selezionata per esportare le celle di Excel in file TXT e il nome e il percorso del file inseriti nelle celle del secondo foglio di lavoro. Ecco un codice di esempio:

Apri Excel e premi Alt + F11 per accedere all'editor VBA.

Nell'editor VBA, fare clic su Inserisci > modulo per inserire un nuovo modulo.

Incollare il codice seguente nel modulo.

Chiudi l'editor VBA e torna a Excel.

Seleziona le celle che desideri esportare. Premi Alt + F8, seleziona EsportaCelle selezionateATXT e fai clic su Esegui.

Questa macro esporta il contenuto delle celle selezionate in un file TXT e scrive il percorso del file nella cella A1 di un secondo foglio di lavoro. È possibile modificare la posizione del file e immettere la posizione in base alle esigenze.

Sub ExportSelectedCellsToTxt() 

    Dim rng As Range 
    Dim cell As Range 
    Dim filePath As String 
    Dim fileName As String 
    Dim txtFile As String 
    Dim ws As Worksheet 
    Dim output As String 
    Dim fso As Object 
    Dim txtStream As Object  

    Set rng = Selection 

    fileName = "ExportedData.txt" 
    filePath = Environ("USERPROFILE") & "\Desktop\" & fileName 
    txtFile = filePath 

    For Each cell In rng 
        output = output & cell.Value & vbCrLf 
    Next cell  

    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set txtStream = fso.CreateTextFile(txtFile, True) 

    txtStream.Write output 
    txtStream.Close 
   
    On Error Resume Next 
    Set ws = ThisWorkbook.Sheets(2) 
    On Error GoTo 0 

    If ws Is Nothing Then 
        MsgBox "Il secondo foglio di lavoro non esiste." 
        Exit Sub 
    End If 
  
    ws.Range("A1").Value = txtFile   

    MsgBox "L'esportazione è completata! Percorso del file. " & txtFile 

End Sub 

Spero che le informazioni di cui sopra possano aiutarti. Sentiti libero di inviare un messaggio se hai bisogno di ulteriore aiuto.

I miei migliori auguri

Aiden.C - MSFT |Specialista del supporto della community Microsoft