![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 e Office | Instalar, resgatar, ativar | Para uso doméstico | Outro
Processos no Microsoft 365 para configurar aplicativos do Office, resgatar chaves de produto e ativar licenças.
A resposta do colega Anderson é para VB.Net, não para VB6. Embora a lógica seja semelhante, no VB6 é um pouco mais difícil.
Criei este código e funcionou bem:
Private Sub ExportaExcel()
'Exporta os dados do DataGrid para o Excel
Dim oApp As Object ' Excel.Application
Dim oWkb As Object ' Excel.Workbook
Dim oWks As Object ' Excel.Worksheet
Dim l As Long
Dim c As Long
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
Set oWkb = oApp.Workbooks.Add
Set oWks = oWkb.Worksheets(1)
'Título das colunas
For c = 0 To Me.DataGrid1.Columns.Count - 1
oWks.Cells(1, c + 1).Value = Me.DataGrid1.Columns(c).Caption
Next c
'Conteúdo
l = 0
Me.DataGrid1.Row = l
Do While IsNumeric(Me.DataGrid1.Columns(0)) = True
For c = 0 To Me.DataGrid1.Columns.Count - 1
oWks.Cells(l + 2, c + 1).Value = Me.DataGrid1.Columns(c).Value
Next c
l = l + 1
On Error Resume Next
Me.DataGrid1.Row = l
If Err <> 0 Then
Err.Clear
On Error GoTo 0
Exit Do
End If
On Error GoTo 0
Loop
End Sub
Private Sub cmdExportarExcel_Click()
On Error GoTo ErrHandler
Call ExportaExcel
ExitHere:
Exit Sub
ErrHandler:
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "cmdExportarExcel_Click"
Resume ExitHere
End Sub
Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br