Erro Ao Tentar Gerar Aqrquivo Novamente

[Señor Smoke]

Fala pessoal,

Na minha aplicacao em VB, listo os resultados de uma consulta no datagrid e depois gero um arquivo com esses resultados. Mas quando eu clico em outro botao e listo outros resultados no datagrid, não consigo gerar outro arquivo apartir do mesmo botao "gerar arquivo" . Eu não quero ter que criar um botao diferente e um record set diferente toda vez que quero gerar um arquivo.

O que posso fazer?

[Decio]

Como você esta fazendo para gerar o arquivo?? Coloque uma parte do código para tentar ver aonde esta o erro.

[Señor Smoke]

Estou fazendo assim:

Pra gerar o arquivo:

Private Sub relat_Click()
Open "c:\Bloqueios_Mensais.xls" For Output As #1
Do Until Rs.EOF
  Print #1, Rs.GetString(, 100, vbTab, vbCrLf, "");
Loop
MsgBox "Arquivo - Bloqueios Mensais - gerado com sucesso !!"
End Sub

Pra carregar o datagrid:

If mes2.Text = "" Then
SQL = "Select Op_Final as Operadora, count(*) as Bloqueios, mes as Mês_de_Bloqueio,Data_bloqueio,Sistema,avg(minutagem) as Taxa_Média_de_minutos From t91013.COBILLING_BLOQUEIOS Group by mes,op_final,data_bloqueio,sistema order by data_bloqueio,op_final,mes"

Else
SQL = "Select Op_Final as Operadora, count(*) as Bloqueios, mes as Mês_de_Bloqueio,Data_bloqueio,Sistema,avg(minutagem) as Taxa_Média_de_minutos From t91013.COBILLING_BLOQUEIOS Where mes = '" & mes2.Text & "' Group by mes,op_final,data_bloqueio,sistema order by data_bloqueio,op_final,mes"
End If
Rs.CursorLocation = adUseClient
Rs.Open SQL, Con, adOpenForwardOnly
Set DataGrid1.DataSource = Rs
relat.Enabled = True
End Sub

O erro que está dando é que uma vez feito isso não consigo mais gerar nenhum arquivo, mostra o seguinte aviso : file is already open O arquivo é gerado mas só uma vez ,se quiser gerar outro eu tenho que sair e voltar.

[]s

[Decio]

Falta fechar o arquivo:

Private Sub relat_Click()
 Open "c:\Bloqueios_Mensais.xls" For Output As #1
  Do Until Rs.EOF
    Print #1, Rs.GetString(, 100, vbTab, vbCrLf, "");
 Loop
    Close #1
MsgBox "Arquivo - Bloqueios Mensais - gerado com sucesso !!"
End Sub

[Señor Smoke]

Vlw!