Creare tabella di dati da blocconote a excel.

Sale mi rivolgo a Voi per disperazione ....

ho dei dati in blocconote e vorrei incollalarle in excel 2013 al fine di creare una tabella.

Il problema che i dati sono riportati in righe diverse, es.

Nome

Indirizzo

Categoria

dal momento che copio e incollo speciale excel mi dice se deve dividerle per spazi, virgole ..... io vorrei una colonna per ogni riga.

Come posso fare?

Grazie anticipatamente Giuseppe

 

Informazioni domanda


Ultimo aggiornamento novembre 21, 2018 Visualizzazioni 1.672 Si applica a:
Risposta
fatto, garzie

Modifica così la macro:

Public Sub m()

    Const ForReading As Long = 1
    Dim objFSO As Object
    Dim objTextFile As Object
    Dim sh As Worksheet
    Dim lRiga As Long
    Dim lCol As Long
    Dim s As String

    Set objFSO = CreateObject( _
        "Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        (ThisWorkbook.Path & "\uno.txt", ForReading)
    Set sh = ThisWorkbook.Worksheets("Foglio1")

    lRiga = 1
    lCol = 1
    
    With sh
        Do Until objTextFile.AtEndOfStream
            s = CStr(objTextFile.Readline)
            If s <> "" Then
                .Cells(lRiga, lCol).Value = s
                lCol = lCol + 1
            Else
                lRiga = lRiga + 1
                lCol = 1
            End If
        Loop
        .Range("A1:G" & lRiga).Sort _
            Key1:=Range(.Range("A1").Address), _
            Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal

    End With
    
    Set sh = Nothing
    Set objTextFile = Nothing
    Set objFSO = Nothing

End Sub

---

NOTA. Per chi avesse seguito il post, la struttura del file di testo era complessa. Vi erano blocchi di indirizzi di 6 o 7 righe, separati da un numero variabile di spazi bianchi.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Risposta

Mauro, grazie.

Questa volta non riesco nemmeno a far partire la macro, ctr+a.

l'operazione che svolgo è la seguente:

prendo il tuo zip, estraggo in una cartella exc., lo apro dgt. alt+f11, sost, sostituisco l'editor, salvo, ma quando clicco ctr+a non succede nulla.

Giuseppe

Segui:

  • Nuovo file di Excel
  • Salvalo come .xlsm
  • Il file .txt deve trovarsi nella stessa directory
  • ALT+F11 e sei nell'editor del vb
  • Inserisci
  • Modulo
  • Copia/incolla la macro nel foglio bianco
  • ALT+F11 e torni in Excel
  • ALT+F8 e visualizzi la finestra Macro
  • Seleziona la macro
  • Pulsante Esegui
  • Fatto (qui circa 1 secondo e mezzo, 2
--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.