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

|
Risposta
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

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

Risposta
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

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 2 settembre 2021 2.136 visualizzazioni Si applica a: