MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Exporta tabela access para bloco de notas

    Compartilhe

    Convidad
    Convidado

    Exporta tabela access para bloco de notas

    Mensagem  Convidad em Qua 15 Jun 2011, 13:08

    Cole numa folha de texto e renomeie de .txt para .vbs

    Database_Location = "C:\teste.mdb"
    Table_Name = "tabela"
    Fields_Database = "ID, ReferralID, LeadSite, LeadAccount, LeadCustWONum, SalesResult, DateofSubmit"
    todaysdate = now()
    OutputFile = "C:\Temp\NewData_" & Replace(FormatDateTime(Now(), vbShortDate) & ".csv", "/", "-")

    set objFSO = CreateObject("Scripting.FileSystemObject")
    set CSV_Database_Connection = CreateObject("ADODB.Connection")
    CSV_Database_Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Database_Location & ";Persist Security Info=False"

    sSQL = "SELECT " & Fields_Database & " FROM " & Table_Name & " WHERE DateofSubmit >= Date()-1"

    Set CSV_Update_Record = CSV_Database_Connection.Execute(sSQL)
    Field_Split = Split(Fields_Database, ", ")

    Do Until CSV_Update_Record.EOF or CSV_Update_Record.BOF
    For X = 0 To Ubound(Field_Split)
    Output_Line = Output_Line & CSV_Update_Record(Trim(Field_Split(X))).Value
    If X <> Ubound(Field_Split) Then
    Output_Line = Output_Line & ","
    Else
    Output_Line = Output_Line & VbCrLf
    End If
    Next
    CSV_Update_Record.MoveNext
    Loop

    Set CSV_Update_Record = Nothing
    CSV_Database_Connection.Close

    Set CSV_Database_Connection = Nothing

    Set objFSO = Nothing
    set fs = CreateObject("Scripting.FileSystemObject")
    set f=fs.CreateTextFile(OutputFile ,true)
    f.WriteLine(Output_Line)
    f.Close
    set f=nothing
    set fs=nothing

    abraço a todos
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8965
    Registrado : 04/11/2009

    Re: Exporta tabela access para bloco de notas

    Mensagem  JPaulo em Qua 15 Jun 2011, 14:46

    Excelente contribuíção, o fórum agradece.



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 26 Mar 2017, 23:53