salvare un file excel in txt in unica riga con tabulazione per gestionale

Question

Mi servirebbe poter esportare un file xls in cui ci sono 2 colonne con i seguenti valori: ID prodotto e Giacenza.

il risultato dovrebbe essere un file txt formattato nella seguente maniera:  IDprod,giacenza;IDprod,giacenza;..... 

tutti i dati dovrebbero risultare su un'unica riga del txt, senza spazi.

qualcuno saprebbe darmi un suggerimento?

Vi ringrazio...

Answer 1

Mi servirebbe poter esportare un file xls in cui ci sono 2 colonne con i seguenti valori: ID prodotto e Giacenza.

il risultato dovrebbe essere un file txt formattato nella seguente maniera:  IDprod,giacenza;IDprod,giacenza;..... 

tutti i dati dovrebbero risultare su un'unica riga del txt, senza spazi.

qualcuno saprebbe darmi un suggerimento?

Vi ringrazio...

Questa macro salva un file di nome tuoFile.txt nella cartella C:\prova utilizzando come separatore il ;(punto e virgola):

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim lng As Long

    Dim s As String

    Dim FileNum As Integer

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        For lng = 1 To lRiga

            s = s & .Cells(lng, 1).Value & ";" & .Cells(lng, 2).Value & ";"

        Next

    End With

    FileNum = FreeFile

    Open "C:\Prova\tuoFile.txt" For Output As #FileNum

    Print #FileNum, s

    Close #FileNum

    Set sh = Nothing

End Sub

Questa macro fa la stessa cosa utilizzando come separatore il Tab(scusa ma non ho capito con cosa vuoi separare):

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim lng As Long

    Dim s As String

    Dim FileNum As Integer

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        For lng = 1 To lRiga

            s = s & .Cells(lng, 1).Value & vbTab & .Cells(lng, 2).Value & vbTab

        Next

    End With

    FileNum = FreeFile

    Open "C:\Prova\tuoFile.txt" For Output As #FileNum

    Print #FileNum, s

    Close #FileNum

    Set sh = Nothing

End Sub

In questo esempio prendo i dati dal Foglio1, colonne A e B. Modifica i riferimenti con i tuoi. Se non riesci a farlo, chiedi. Se non hai mai utilizzato le macro, vedi qui: http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx .

Ti ricordo che i files di Excel con macro, vanno salvati come .xls o .xlsm. Grazie per l'attenzione.

Answer 2

Grazie infinite!  funziona alla perfezione, ho impostato come separatore tra i 2 valori la "," e tra una sequenza e l'altra impostato ";"