ho un problema nell'importazione di un file txt in excel, ma sicuramente è molto semplice per voi.
ho una serie di numeri, ne posto un esempio:
3.697541E+00 4.849641E-01 6.885129E+01
ma mi vengono copiati come
3697541 484964,1 68851290
come si vede, il punto viene proprio dimenticato!
avevo pensato a cambiare le impostazioni in excel, ma non cambia nulla se viene già portato dentro senza punto!
posto anche la macro:
Grazie a tutti quelli che risponderanno!
p.s. la macro non è mia
- Codice: Seleziona tutto
Sub Copia_Dati_Txt()
Dim sh1 As Worksheet
With ThisWorkbook
Set sh1 = .Worksheets("Foglio1")
End With
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "text", "*.txt", 1
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessuna voce selezionata, procedura annullata")
GoTo Esci
End If
FullNome = .SelectedItems(1) 'Directory e Nome del file selezionato
End With
Esci:
With sh1.QueryTables.Add(Connection:="TEXT;" & FullNome, Destination:=sh1.Range("A8"))
End With
With sh1.QueryTables.Add(Connection:= _
"TEXT;" & FullNome _
, Destination:=sh1.Range("$A$8"))
.Name = "lybk_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierSingleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
