Dovrei importare dei dati in una riga di excel

[freetom]

es..

ho un file txt contenente semplicemente numeri in questo modo:

1
10
23
45
77
3
90
ecc...

lo dovrei semplicemente importare in una riga di excel relativa ogni numero
in una relativa celletta

E' possibile ? Credo proprio di si ma ignoro totalmente come si possa fare...

Grazie agli/alle esperti/e di excel

[nicola75ss]

Menù dati > importa dati esterni.

Infine, se ho ben capito, ti basta copiare la colonna importata e fare copia > incolla speciale > trasponi.

[freetom]

Originariamente inviato da nicola75ss
Menù dati > importa dati esterni.

Infine, se ho ben capito, ti basta copiare la colonna importata e fare copia > incolla speciale > trasponi.

ti chiedo un chiarimento...

questa operazione è da fare tutte le volte o una volta soltanto?

Perchè mi piacerebbe, se fosse possibile, automatizzare l'importazione e poter cambiare solo il file txt.

Grazie

[nicola75ss]

Spiega esattamente cosa vuoi fare.

I file li caricherai sempre singolarmente o dovresti poter attingere anche da più file contemporaneamente?

Il numero di righe contenute in ciascun file è abbastanza limitato da non eccedere il numero massimo di colonne disponibili in excel nel momento in cui si andrà a fare la trasposizione?

Dove andranno posizionati i dati da importare, sempre nello stesso foglio, a partire da una specifica colonna?

Il contenuto di un nuovo txt dove andrà trasposto, nella prima riga vuota disponibile?

[freetom]

Spiega esattamente cosa vuoi fare.

I file li caricherai sempre singolarmente (SI)
o dovresti poter attingere anche da più file contemporaneamente? (NO)

Il numero di righe contenute in ciascun file è abbastanza limitato da non eccedere il numero massimo di colonne disponibili in excel nel momento in cui si andrà a fare la trasposizione? (SI solo 90 righe)

Dove andranno posizionati i dati da importare, sempre nello stesso foglio, a partire da una specifica colonna? (SI)

Il contenuto di un nuovo txt dove andrà trasposto, nella prima riga vuota disponibile?
(SI)


TNX!

[nicola75ss]

Option Explicit

Sub importaTrasponi()
Dim file As Variant
Dim ultimaRigaImport As Integer
Dim rigaTrasponi As Long
file = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Importa File")
If file = False Then
    Exit Sub
Else
    With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;" & file _
        , Destination:=Range("CM1")) ' CM è la 91° colonna, in modo da non sovrapporsi alla trasposizione
       .Refresh BackgroundQuery:=False
    End With
    ultimaRigaImport = Range("CM65536").End(xlUp).Row
        If WorksheetFunction.CountA(Sheets(1).Columns(1)) = 0 Then
            rigaTrasponi = 1
        Else
            rigaTrasponi = Range("A65536").End(xlUp).Row + 1
        End If
    Range(Cells(rigaTrasponi, 1), Cells(rigaTrasponi, ultimaRigaImport)).Value = Application.WorksheetFunction.Transpose(Range("CM1:CM" & ultimaRigaImport))
    Sheets(1).Range("CM:CM").Clear
End If
End Sub

[freetom]

Originariamente inviato da nicola75ss

Option Explicit

Sub importaTrasponi()
Dim file As Variant
Dim ultimaRigaImport As Integer
Dim rigaTrasponi As Long
file = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Importa File")
If file = False Then
    Exit Sub
Else
    With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;" & file _
        , Destination:=Range("CM1")) ' CM è la 91° colonna, in modo da non sovrapporsi alla trasposizione
       .Refresh BackgroundQuery:=False
    End With
    ultimaRigaImport = Range("CM65536").End(xlUp).Row
        If WorksheetFunction.CountA(Sheets(1).Columns(1)) = 0 Then
            rigaTrasponi = 1
        Else
            rigaTrasponi = Range("A65536").End(xlUp).Row + 1
        End If
    Range(Cells(rigaTrasponi, 1), Cells(rigaTrasponi, ultimaRigaImport)).Value = Application.WorksheetFunction.Transpose(Range("CM1:CM" & ultimaRigaImport))
    Sheets(1).Range("CM:CM").Clear
End If
End Sub

questa macro...
non richiede un nome di file specifico? Basta che sia un txt?

Grazie!

[nicola75ss]

Il file lo scegli tu tra quelli di tipo testo che ti vengono mostrati sfogliando il disco.

[freetom]

Originariamente inviato da nicola75ss
Il file lo scegli tu tra quelli di tipo testo che ti vengono mostrati sfogliando il disco.

ribadisco...

s p e t t a c o l a r e !



ps: Se volessi sovrascrivere o azzerare di volta in volta la riga di destinazione degli elementi importati in automatico?

Comunque è già mitico così!

grazie ancora