IMPORTAR MSFLEXGRID PARA EXCEL

USUARIO.EXCLUIDOS 03/04/2004 01:42:35
#18627
Como vai galera vbmania!!!

Galera,como faço para impotar um msflexgrid para o excel, me passaram u exemplo, mas ele importa todo o grid para a 1º coluna do excel e coloca aspas para todos os campos "exemplo","exemplo2","exemplo3", como faço para arrumar esse código.

Public Sub GridExport(GridToExport As Object, FileName As String, Optional Delimiter As Variant, Optional
EncloseStrings As Variant)
Dim iNumRows As Integer
Dim iNumCols As Integer
Dim iFileNumber As Integer

If IsMissing(Delimiter) Then Delimiter = vbTab
If IsMissing(EncloseStrings) Then EncloseStrings = ""
iFileNumber = FreeFile

Open FileName For Output As #iFileNumber
For iNumRows = 0 To GridToExport.rows - 1
GridToExport.Row = iNumRows
For iNumCols = 0 To GridToExport.Cols - 1
GridToExport.col = iNumCols
If iNumCols 0 Then Print #iFileNumber, Delimiter;
Print #iFileNumber, EncloseStrings & GridToExport.Text & EncloseStrings;
Next iNumCols
Print #iFileNumber, ""
Next iNumRows
Close #iFileNumber
End Sub

'Um simples exemplo...
Private Sub cmdExport_Click()
Call GridExport(MSFlexGrid1, "c:    est.csv", ",", Chr$(34))
End Sub
USUARIO.EXCLUIDOS 03/04/2004 10:49:27
#18662 Resposta escolhida
Mas pelo que ví o código não gera um arquivo em excel e sim um arquivo texto

Se quiser tenho uma classe que gera arquivo de excel diretamente pelo modo binario
USUARIO.EXCLUIDOS 06/04/2004 11:16:31
#19059
Te enviei

Faz

Dim o as new ExcelFile

o.open nome do arquivo
o.writestring coluna,linha,texto
Tópico encerrado , respostas não são mais permitidas
Voltar