EXPORTAR PARA EXCEL

MARIOANDRADE 28/04/2014 08:33:18
#437679
Meus amigos eu uso o código abaixo para exportar arquivos para Excel, meu único problema é que preciso que ele sobrescreva ou renomeie de forma automática caso o arquivo já exita na pasta. Tentei colocar um oBook.EnableEvents = False mas não funcionou, gostaria que não exibisse msg de salvar ou criar arquivos com data e hora.

Private Sub cmdprint_Click()
	 Dim oExcel As Object
     Dim oBook As Object
     Dim oSheet As Object
     
       Set oExcel = CreateObject([Ô]Excel.Application[Ô])
       Set oBook = oExcel.Workbooks.Add
        
       Dim DataArray(1 To 200, 1 To 4) As Variant
        
          Dim r As Integer
          Dim NumberOfRows As Integer
     ConnectDB
    rs.Open [Ô]Select * from tblCad where PREV_COMP like [ô][Ô] & dtpAPrevComp.Value & [Ô]%[ô][Ô], db, 3, 3
        For r = 1 To rs.RecordCount
          NumberOfRows = rs.RecordCount
          rs.MoveFirst

          DataArray(r, 1) = rs!NOME
          DataArray(r, 2) = rs!CELULAR
          DataArray(r, 3) = rs!TELEFONE
          DataArray(r, 4) = rs!RECAD
          
          rs.MoveNext
          Next
      Set oSheet = oBook.Worksheets(1)
       oSheet.Range([Ô]A1:D1[Ô]).Font.Bold = True
        
       oSheet.Range([Ô]A1:D1[Ô]).Value = Array([Ô]Sr.no[Ô], [Ô]Date[Ô], [Ô]Name[Ô], [Ô]Address[Ô]) 
        oSheet.Range([Ô]A2[Ô]).Resize(NumberOfRows, 4).Value = DataArray   
       [ô]Tentei colocar um [Ô]oBook.EnableEvents = False[Ô] mas não funcionou 		
       oBook.SaveAs [Ô]C:\drf.xls[Ô]
       oExcel.Quit
        rs.MoveFirst
        
   MsgBox [Ô]Report File format  File Saved[Ô], 64, [Ô]Info[Ô]
   Set rs = Nothing
db.Close: Set db = Nothing
	End Sub
MITSUEDA 28/04/2014 13:33:52
#437693 Resposta escolhida
Tente assim para excluir o arquivo
.
.
.
On Error Resume Next
Kill [Ô]C:\drf.xls[Ô]
On Error GoTo 0

oBook.SaveAs [Ô]C:\drf.xls[Ô]
oExcel.Quit
rs.MoveFirst
.
.
.

Isso deleta o arquivo anterior caso exista! ai ao salvar não terá nada no mesmo lugar.

Abraço
MARIOANDRADE 28/04/2014 20:26:51
#437714
Citação:

:
Tente assim para excluir o arquivo
.
.
.
On Error Resume Next
Kill [Ô]C:drf.xls[Ô]
On Error GoTo 0

oBook.SaveAs [Ô]C:drf.xls[Ô]
oExcel.Quit
rs.MoveFirst
.
.
.

Isso deleta o arquivo anterior caso exista! ai ao salvar não terá nada no mesmo lugar.

Abraço



Fábio, uma solução simples porém extremamente genial....
Parabéns, me ajudou bastante....
Tópico encerrado , respostas não são mais permitidas
Voltar