copiando dados

[Guest Carlos Costa Junior]

Galera tem um aplicativo aqui no meu trabalho no qual ultiliza-se o objeto MSFLEXGRID, ele é vinculado a um banco de dados e tal, traz as informações normal. Minha duvida é o seguinte, o pessoal que trabalha com ele está querendo copiar os dados diretamente do FLEXGRID para poder jogar em uma tabela do excel porém não consegue, gostaria de saber se tem alguma propriedade que habilite isso, pois já pesquisei em varios sites e não estou achando nada relacionado.

[Moonfall]

Private Sub cmd1_gerar_arq_Click()
Call gerar_arquivo(Text1.Text, MSFlexGrid1)
 MsgBox "Arquivo " & Text1.Text & " Salvo com sucesso !", vbInformation
End Sub
Private Sub gerar_arquivo(ByVal strFilename As String, ByRef MSFlexGrid1 As MSFlexGrid)

Const SEPARATOR_CHAR As String = ","

Dim intFreeFile As Integer
Dim strLine As String
Dim r As Integer
Dim c As Integer

intFreeFile = FreeFile

Open strFilename For Output As #intFreeFile

With MSFlexGrid1
    ' cada linha
     For r = 0 To .Rows - 1
      strLine = ""
        ' cada coluna
        For c = 0 To .Cols - 1
          strLine = strLine & IIf(c = 0, "", SEPARATOR_CHAR) & .TextMatrix(r, c)
        Next c

       Print #intFreeFile, strLine
    Next r
End With

Close #intFreeFile
End Sub

onde text1 = a 1 textbox com o valor do caminho onde sera gravado o arquivo por ex:

text1.text = "C:\teste\teste.xls".

esta rotina realiza a gravacao dos dados da grid em 1 arquivo seja ele txt, xls, doc etc.

caso voce queira gravar somente uma parte da grid, a que esteja selecionada use msflexgrid.rowsel(x,x) =

ai é so usar a imaginacao!

qualquer coisa posta ai.