Private Sub Elaboraturni()
Dim percorso As String
Dim zona As String
Dim stit As String
Dim count As Integer
Dim excellapp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim risp As Integer
DoEvents

risp = MsgBox("Vuoi Importare il documento selezionato?", 1, "Importa turni")
If risp = 1 Then

excellapp.Workbooks.Open fileselezionato
excellapp.Worksheets(1).Select

fxg_turni.ColWidth(0) = 0
fxg_turni.ColWidth(1) = 1500

fxg_turni.Row = 0

fxg_turni.Rows = 1

fxg_turni.ColWidth(0) = 0

fxg_turni.Row = 0

fxg_turni.Col = 1
fxg_turni.Text = "Ausiliari"

fxg_turni.Col = 2
fxg_turni.Text = "Turnazione"

For i = 22 To 267
fxg_turni.Rows = fxg_turni.Rows + 1
fxg_turni.Row = fxg_turni.Rows - 1
'ID

fxg_turni.Col = 0
fxg_turni.Text = excellapp.Cells(i, 1)
txt_codaux.Text = excellapp.Cells(i, 1)
'NOMI

fxg_turni.Col = 1
fxg_turni.Text = excellapp.Cells(i, 2)
txt_nome.Text = excellapp.Cells(i, 2)
'Turnazione

fxg_turni.Col = 2
fxg_turni.Text = excellapp.Cells(i, 3)
txt_primogiorno.Text = excellapp.Cells(14, 4)
txt_data1.Text = excellapp.Cells(14, 4)
txt_turnazione.Text = excellapp.Cells(i, 3)
txt_datafine.Text = excellapp.Cells(19, 4)
fxg_turni.Col = 3

If IsDate(txt_primogiorno.Text) Then

Dim LastDate As Date

LastDate = DateAdd("d", 1, CDate(txt_primogiorno.Text))
For a = 0 To txt_datainizio.count - 1
txt_datainizio(a).Text = LastDate
If Weekday(LastDate) = 1 Then
txt_datainizio(a).ForeColor = vbRed
Else
txt_datainizio(a).ForeColor = vbBlack
End If
fxg_turni.Text = LastDate
LastDate = DateAdd("d", 1, LastDate)
fxg_turni.Col = 3
fxg_turni.Text = txt_primogiorno.Text
Next a
fxg_turni.Col = 4
fxg_turni.Text = txt_datainizio(0)
fxg_turni.Col = 5
fxg_turni.Text = txt_datainizio(1)
fxg_turni.Col = 6
fxg_turni.Text = txt_datainizio(2)
fxg_turni.Col = 7
fxg_turni.Text = txt_datainizio(3)
fxg_turni.Col = 8
fxg_turni.Text = txt_datainizio(4)

End If

If Err Then
MsgBox ("Il file " & stit & " non è stato trovato.")

End If
DoEvents

percorso = ""
zona = ""
stit = ""

Next i
End If
End Sub


cosi ora leggo....elaboro..ma come inserisco?

singola riga uso Row