MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Exportar tabela Formato CSV

    avatar
    RLins
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/06/2011

    [Resolvido]Exportar tabela Formato CSV Empty Exportar tabela Formato CSV

    Mensagem  RLins 21/9/2011, 21:28

    Boa tarde Senhores,
    Estou com uma dificuldade e gostaria que se possivel me ajudassem preciso fazer
    funcionar esse código estou exportando uma tabela para um modelo de Arquivo .csv
    ja pronto porem esta inserindo todo o conteudo em uma unica coluna separado por virgula (Certo por ser .csv), mas alguem conhece um jeito de funcionar separando-as por colunas.

    segue código:

    '********************************************************************************************
    ' Teste Manipula Arquivos com FileSytem
    '********************************************************************************************

    Dim fso As New FileSystemObject, file1, file2

    Set file1 = fso.GetFile("C:\Sistema_PCI\Exportacoes\PCI.csv")

    file1.Delete
    'MsgBox "O arquivo Bloco_Semana.xls foi excluido com Sucesso!"


    Set file2 = fso.GetFile("C:\Sistema_PCI\Exportacoes\Modelo\PCI.csv")

    file2.Copy ("C:\Sistema_PCI\Exportacoes\PCI.csv")

    file_xls = "C:\Sistema_PCI\Exportacoes\PCI.csv"


    Set obj = New Excel.Application
    obj.Application.DisplayAlerts = False
    Set Workbook = obj.Workbooks.Open(file_xls)
    '********************************************************************************************
    'Popula Sheet 1
    '********************************************************************************************
    Set planilha = Workbook.Sheets(1)

    Dim rs_Geral2 As Recordset

    sql_Geral2 = "SELECT * FROM tbl_ExportPCI"
    Set rs_Geral2 = CurrentDb.OpenRecordset(sql_Geral2)


    If Not rs_Geral2.EOF Then
    X = 2
    Do While Not rs_Geral2.EOF
    planilha.Range("A" & X).Value = rs_Geral2("ID_Retorno")
    'planilha.Range("B" & X).Value = rs_Geral2("Cod_Empresa")
    planilha.Range("B" & X).Value = rs_Geral2("Cod_Empresa")
    planilha.Range("C" & X).Value = rs_Geral2("CPF")
    planilha.Range("D" & X).Value = rs_Geral2("Nome")
    planilha.Range("E" & X).Value = rs_Geral2("Sexo")
    planilha.Range("F" & X).Value = rs_Geral2("RG")
    planilha.Range("G" & X).Value = rs_Geral2("DT_ExpedicaoRG")
    planilha.Range("H" & X).Value = rs_Geral2("Orgao_Expedidor")
    planilha.Range("I" & X).Value = rs_Geral2("UF")
    planilha.Range("J" & X).Value = rs_Geral2("Dt_Nascimento")
    planilha.Range("K" & X).Value = rs_Geral2("Salario")
    planilha.Range("L" & X).Value = rs_Geral2("Filial")
    planilha.Range("M" & X).Value = rs_Geral2("Cod_Centro_Custo")
    planilha.Range("N" & X).Value = rs_Geral2("Nome_Pai")
    planilha.Range("O" & X).Value = rs_Geral2("Nome_Mae")
    planilha.Range("P" & X).Value = rs_Geral2("Base_Origem")
    'planilha.Range("Q" & X).Value = rs_Geral2("Dt_Limite")
    planilha.Range("Q" & X).Value = rs_Geral2("Criminal")
    planilha.Range("R" & X).Value = rs_Geral2("Comercial")


    X = X + 1
    rs_Geral2.MoveNext
    Loop
    End If
    Workbook.Save
    Workbook.Close

    'MsgBox "Teste ok!"

    '
    '
    ' Fim Teste
    '
    '
    avatar
    RLins
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/06/2011

    [Resolvido]Exportar tabela Formato CSV Empty Ajuda...

    Mensagem  RLins 22/9/2011, 14:47

    Galera ainda não consegui resolver esse problema.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Exportar tabela Formato CSV Empty Re: [Resolvido]Exportar tabela Formato CSV

    Mensagem  vieirasoft 13/10/2011, 23:37

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]Exportar tabela Formato CSV Empty Re: [Resolvido]Exportar tabela Formato CSV

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 05:09