[vb6] Problema con tabella in Word

[gibra]

Ovviamente c'è...

Ad esempio, questa routine aggiunge una riga che conterrà i dati passati come parametri:

Sub AddToTable(sID As String, sDateTime As String, _
    sNome As String, sCognome As String, _
    sCosto As Single)
    
    With Tables(1)
        With .Rows.Last
            .Cells(1).Range.Text = sID
            .Cells(2).Range.Text = sDateTime
            .Cells(3).Range.Text = sNome
            .Cells(4).Range.Text = sCognome
            .Cells(5).Range.Text = Format$(sCosto, "###0.00")
        End With
        .Rows.Add
    End With
End Sub

Sarà sufficiente creare un ciclo For/Next che
1 - prelevi i dati dalla griglia
2 - li passi alla routine AddToTable(...) che modificherai in base alle tue esigenze


Ciao