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]Percorrer ficheiro por VBA e alterar celular.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  XPTOS 25/6/2022, 00:49

    Pessoal,

    Estou importando um ficheiro por VBA e tenho que percorrer o Campo7 e excluir o texto "EX".

    Estou usando o código abaixo, mas sem sucesso, podem me auxiliar?
    Código:
    strPath = CurrentProject.Path & "\Demonstrativo de Pagamento Excel\" & InitialFileName
    strTable = "tblAmil" 'nome da tabela no seu banco que recebera os dados
    Set JanelaDeProcura = Application.FileDialog(msoFileDialogFilePicker)
    With JanelaDeProcura
    .Title = "Selecione o arquivo"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xlsx"

    .FilterIndex = 2

    .ButtonName = "Selecione"
    .InitialView = msoFileDialogViewDetails
    .InitialFileName = CurrentProject.Path & "\Demonstrativo de Pagamento Excel\" & InitialFileName
    If .Show = -1 Then
    CaminhoDoFicheiro = CStr(JanelaDeProcura.SelectedItems.Item(1))
    Else

    End If
    Debug.Print Mid([CaminhoDoFicheiro], InStrRev([CaminhoDoFicheiro], "\") + 1)
    CaminhoDoFicheiro = Mid([CaminhoDoFicheiro], InStrRev([CaminhoDoFicheiro], "\") + 1)
    End With
    '--------------------------------Abre o Excel oculto para alteração
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(Application.CurrentProject.Path & "\Demonstrativo de Pagamento Excel\" & CaminhoDoFicheiro)
    'Set oBook = oExcel.Workbooks.Open("E:\SAC\Base dados SAC\Demonstrativo de Pagamento\" & CaminhoDoFicheiro)
    oExcel.Visible = False

    Set oSheet = oBook.Worksheets(1) 'Numero da planilha

    'Substitui campos pela nome da tabela
    oSheet.Range("A1:AD3").Delete
    oSheet.Range("A1").Value = "Campo1"

    oBook.Save
    oBook.Close
    oExcel.Quit
    '-------------------------------Fecha o Excel
    strFile = Dir(strPath & CaminhoDoFicheiro)

    Do While Len(strFile) > 0
    strPathFile = strPath & strFile

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop


    .................................................................................
    Grato,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  XPTOS 27/6/2022, 17:33

    UP


    .................................................................................
    Grato,
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  Marcelo David 27/6/2022, 20:08

    Boa tarde,
    Campo7, é de onde, Access ou Excel. Se do Access, qual tabela?

    Poderia detalhar melhore se possível postar aqui para que quem tentar lhe ajudar, possa ser mais acertivo.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Marcel11
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  XPTOS 27/6/2022, 20:16

    Está no xlsx e também na BD tblamil.
    Descarregar na unidade C

    Segue link:
    https://drive.google.com/file/d/1AIgFT6-C9wiDybyvp1yZ-YFicseHz9BU/view?usp=drivesdk
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  Marcelo David 29/6/2022, 12:02

    Não consegui baixar, diz que seu arquivo está apagado.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Marcel11
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  XPTOS 29/6/2022, 15:42

    Obrigado resolvido.


    .................................................................................
    Grato,
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty Re: [Resolvido]Percorrer ficheiro por VBA e alterar celular.

    Mensagem  Marcelo David 29/6/2022, 19:12

    Gratos pelo retorno,
    seria interessante compartilhar a solução, assim outros com problemas semelhantes poderão ser beneficiados Smile !


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Percorrer ficheiro por VBA e alterar celular. Marcel11

      Data/hora atual: 24/9/2022, 19:59