Scusa forse non sono stato chiaro!
Comunque mi fermo in quanto ho il sospetto che le schede in word siano più incasinate di quello che pensavo.
Voglio che me ne mandino almeno una 20 per vederle.
Colgo l'occasione per chiederti delucidazioni sul tuo script.
- Codice: Seleziona tutto
Sub CreaArch()
.............
Nric = Mid(Ricetta, 1, InStrRev(Ricetta, ".") - 1)
Application.StatusBar = "Importazione Dati Modulo " & Ricetta & " ... " & Int(T / URT * 100) & " %"
Ingredienti = ""
CF = CF + 1
ContaR = 0
Open Perc & Ricetta For Input As #2
SalTaV = 0
Do Until EOF(2)
Line Input #2, Riga
Riga = Replace(Riga, "Š", "è")
If Riga = "" Then GoTo Salta
If Trim(Mid(Riga, 1, 7)) = "DOCENTE" Then
Line Input #2, Riga
Ingredienti = Ingredienti & ";" & Trim(Riga)
SalTaV = 1
End If
If SalTaV = 1 Then
If Trim(Mid(Riga, 1, 8)) = "Rispetto" Then
Line Input #2, Riga
Ingredienti = Ingredienti & ";" & Trim(Riga)
GoTo Salta
End If
........
If Trim(Mid(Riga, 1, 8)) = "Commenti" Then
Riga = Replace(Riga, "Commenti aggiuntivi dello studente ", "")
Ingredienti = Ingredienti & ";" & Trim(Riga)
Worksheets("RepModuli").Range("A" & CF).Value = "'" & Nric
Worksheets("RepModuli").Range("B" & CF).Value = Mid(Ingredienti, 2, Len(Ingredienti))
Ingredienti = ""
CF = CF + 1
End If
per ora ti chiedo i dati dal file testo li prende dalla riga 2?(Open Perc & Ricetta For Input As #2
SalTaV = 0
Do Until EOF(2)
Line Input #2, Riga
Riga = Replace(Riga, "Š", "è")
If Riga = "" Then GoTo Salta)
il #2 rappresenta in tutti e due i posti la riga di inizio?
(If Trim(Mid(Riga, 1, 7)) = "DOCENTE" Then
Line Input #2, Riga
Ingredienti = Ingredienti & ";" & Trim(Riga)
SalTaV = 1
End If)
cosa indica Riga, 1 , 7 ? DOCENTE è l'etichetta di colonna o la parte da togliere dalla riga?