Aiuto per macro excel

[ironmanu]

Ho creato una macro che importi in excel un file txt e da questo copii i valori che mi interessano in un altr0 foglio excel in riga in caselle diverse.
ovviamente funzione solo per quel file e copia sempre i valori nella stessa riga.
é possibile far in modo di poter selezionare (con una finestra di dialogo) il file che
di volta in volta mi interessa???
Inoltre i valori estratti da ciascun file che importo è possibile decidere in quale riga metterli o comunque riempire automaticamente righe successive???

Grazie raga ma sono un niubbo da aura di ste cose!!!

[mynos79]

Devi usare VBA per gestire operazioni così particolari ...

[ironmanu]

Originariamente inviato da mynos79

Devi usare VBA per gestire operazioni così particolari ...

Questa è la macro in questione,il problema è che ".Refresh BackgroundQuery:=False" mi dice che l'origine nn puo' essere aggiornata.
NomeFile è la variabile che di volta in volta uso per assegnare il file da txt da aprire.

Sub Macro1()
Dim NomeFile As String

NomeFile = Application.GetOpenFilename("excel-files, *.txt", , "Apri file")
If NomeFile = "Falso" Then Exit Sub
'
' Macro1 Macro
' Macro registrata il 19/04/2006 da m
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\Università\Tesi\Piastra\Rapporti Zeiss\Orientazione di base\NomeFile.txt", _
Destination:=Range("A1"))
.Name = "NomeFile"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(4, 22, 11, 11, 8, 8, 8, 8)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("C64").Select
Selection.Copy
Sheets("Foglio2").Select
ActiveSheet.Paste
End Sub

[ironmanu]

Forse sto utilizzando la variabile NomeFile in modo errato???

[ironmanu]

up