USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Exportar do flexgrid
- Cowboy -
ITAQUAQUECETUBA
SP - BRASIL
Postada em 17/10/2004 13:52 hs            
Eai galera tudo bem com vcs, pesso uma ajuda quero saber como faço para salvar o conteúdo d um FlexGrid em um arquivo de texto, por favor é urgente valew gente.
------------------------------------------------------------------------------------
Cowboy From Hell
     
Juninho 02
GUAXUPÉ
MG - BRASIL
ENUNCIADA !
Postada em 18/10/2004 09:49 hs         
Public Sub MyFlexGridExport(MyFlexGrid As MSFlexGrid, FileName As String, Optional Delimiter As Variant = ";", Optional EncloseStrings As Variant)
Dim MyRows As Integer
Dim MyCols As Integer
Dim MyFileNumber As Integer
If IsMissing(Delimiter) Then
Delimiter = vbTab
End If
If IsMissing(EncloseStrings) Then
EncloseStirngs = ""
End If
MyFileNumber = FreeFile
Open FileName For Output As #MyFileNumber
For MyRows = 0 To MyFlexGrid.Rows - 1
MyFlexGrid.Row = MyRows
For MyCols = 0 To MyFlexGrid.Cols - 1
MyFlexGrid.Col = MyCols
'If it isn't the Min column,
'Put a delimiter before the value
If MyCols > 0 Then
Print #MyFileNumber, Delimiter;
End If
Print #MyFileNumber, EncloseStrings & MyFlexGrid.Text & EncloseStrings;
Next MyCols
Print #MyFileNumber, ""
Next MyRows
Close #MyFileNumber
End Sub
Private Sub cmdExport_Click()
Call MyFlexGridExport(MSFlexGrid1, "c:     est.flex", ",", Chr$(34))
End Sub
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página