[EXCEL VBA]

[neosephiroth86]

Salve a tutti!
Ho avuto la necessità di estrarre dei dati da un foglio excel .xls in un file con estensione .dat.
Per far questo mi sono affidato ad una macro..che funziona egregiamente ma vorrei capire meglio come...
Se mi poteste commentare qualche riga ve ne sarei grato..soprattutto le parti come app= e comm=

Grazie

Vi posto il codice

Sub Macro()

Path$ = Application.ActiveWorkbook.Path & "\" ' percorso per salvataggio file
Nomefile$ = "model.dat"   ' nome del file da salvare
PF$ = Path$ & Nomefile$        ' costruisce percorso completo
nriG% = 191 ' imposta n° righe foglio generale
ncoG% = 26 ' imposta n° colonne foglio generale

If Dir(PF$) <> "" Then         ' verifica se il file esiste già
    msgrisp = MsgBox("Il file " & PF$ & " esiste già." & Chr(13) & "Sostituirlo?", 308, "Messaggio Macro Creafile")
    If msgrisp = 7 Then End
End If
F% = FreeFile                  ' acquisisce primo numero di file libero
Open PF$ For Output As #F%     ' apre un file per output
' considero il foglio GENERALE
For riga% = 1 To nriG%
    For col% = 1 To ncoG%
         app = Chr(32) + Replace(Sheets("Generale").Cells(riga%, col%), ",", ".")
        If col% = 1 Then
            comm = InStrB(app, "&")
        End If
        If app <> " " Then
            If IsNumeric(app) Or comm Then
                Print #F%, app; 'Scrive dati nel file
            Else
                Print #F%, app;
            End If
        End If
    Next col%
    comm = False
    Print #F%, Chr(59) 'punto e virgola
Next riga%

Close #F%                      'Chiude File
'
MsgBox "Creato file " & PF$, 64, "Messaggio Macro Creafile"
'


End Sub