importa listno metel

Attribute VB_Name = "importa_listno_metel"

'

Option Explicit

'

' vba - importa un listino Metel in un nuovo foglio

'

Sub LeggeFileListinoMetel()

'

Const ForReading = 1

Const ForWriting = 2

'

Dim elencocampi, objFSO, objFile, rigacaricata, lunghezzariga, rigalavorata, dadove

Dim foglio, riga, colonna

'

elencocampi = Array(3, 16, 13, 43, 5, 5, 5, 6, 1, 11, 11, 6, 3, 3, 1, 1, 8, 18, 18) ' tracciato listino metel

'

Sheets.Add

Set foglio = Sheets(ActiveSheet.Name)

riga = 0

colonna = 0

'

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("c:\listinometel-LSG.txt", ForReading)

'

Do Until objFile.AtEndOfStream

rigacaricata = objFile.ReadLine

lunghezzariga = Len(rigacaricata)

riga = riga + 1

colonna = 0

dadove = 1

For Each rigalavorata In elencocampi

colonna = colonna + 1

foglio.Cells(riga, colonna).Value = "'" & Mid(rigacaricata, dadove, rigalavorata)

dadove = dadove + rigalavorata

Next

Loop

'

objFile.Close

'

Cells.Select

Cells.EntireColumn.AutoFit

Rows("2:2").Select

ActiveWindow.FreezePanes = True

'

End Sub