Pessoal eu tenho um aplicativo que faz 4 consultas diferentes no SQL Server e mostra os dados em DataGrid separados, cada consulta em um datagrid, porem agora eu preciso exportar os dados das consultas para um arquivo TXT, mas não estou conseguindo, eu consigo exportar uma consulta para um arquivo TXT, mas não consigo exportar as 4 consulta para um mesmo TXT.

Ex:
consulta 1 gera 100 linhas de dados

consulta 2 gera 180 linhas de dados

consulta 3 gera 110 linhas de dados

consulta 4 gera 700 linhas de dados

 

eu queria gerar um TXT separando os dados de cada consulta dentro do TXT tipo:

------- arquivo txt ------------------------------------------------------------
consulta 1
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

 

consulta 2

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

 

consulta 4

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

como eu faço isto, tem como fazer?

para gravar a primera vez vc usa:

 

Open "C:arquivo.txt" For output As #1

...

 

depois só usa:

 

Open "C:arquivo.txt" For Append As #1

...

 

 

If Dir$("C:Relatorio.txt") <> "" Then
        'exclui o arquivo caso ele ja exista
        Kill ("C:Relatorio.txt")
    
    Else
       
        Dim ARQ As Integer
        ARQ = FreeFile

        'ATENÇÃO!!! Esta próxima linha abre o arquivo
        'e, se ele contiver algo, TUDO será apagado!
        Open "Relatorio" For Output As ARQ

        'Faz o que tiver q ser feito com o arquivo

        'Fecha o arquivo
        Close ARQ

    End If

Dim SqlConta As String

Set Rs_conta = CreateObject("ADODB.Recordset")
   
SqlConta = "select Count(c.usr_grupomaq),month(d.dtproducao) as Mes,year(d.dtproducao) as ano,sum(d.usr_perdaoperacional) As desperdicio_kg from codigosapontamento b, recursos c,View_Usr_QtdProduzidoKG d where b.classificacao in ('DOPE','DTEC','DEXC','DEMB','DMOV') and d.codapont=b.codapont and c.codrecurso=d.codrecurso and d.codrecurso<>'APARA' and d.dtproducao between '" & Format(CDate(msk_inicio.Text), "yyyy/mm/dd") & "' and '" & Format(CDate(msk_fim.Text), "yyyy/mm/dd") & "' group by c.usr_grupomaq, month(d.dtproducao),year (d.dtproducao) order by c.usr_grupomaq"

Rs_conta.Open SqlConta, conn, adOpenKeyset, adLockOptimistic

Dim TotalRegistro As Integer TotalRegistro = Rs_conta.RecordCount

For cont = 1 To TotalRegistro

    If dg_lista.Text = "" Then
        msg = MsgBox("Não ha dados a ser gravado!")
        Exit Sub
    Else
        Open "C:Relatorio.txt" For Append As #1
        Print #1, RsGrupoRec(0) & "     " & RsGrupoRec(1) & "     " & RsGrupoRec(2) & "     " & RsGrupoRec(3)
        Close #1
    End If
RsGrupoRec.MoveNext
Next
msg = MsgBox("Exportação Concluida com Sucesso!", vbInformation, "CDESP - Exportação Concluida")
cmd_exportar.Enabled = False

neste caso ele grava apenas os dados da consulta RsGrupoRec, eu gostaria de listar este RsGrupoRec e mais 3 tipo:

exporta a primeira consulta com 4 colunas e 100 linhas para o txt, depois ele exporta outra consulta com 6 colunas e 200 linhas no mesmo txt apartir da linha 101 e assim vai