Início
![[Resolvido]Percorrer ficheiro por VBA e alterar celular. Empty](https://2img.net/i/empty.gif)
XPTOS 25/6/2022, 00:49Pessoal,
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?
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
![[Resolvido]Percorrer ficheiro por VBA e alterar celular. Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]![[Resolvido]Percorrer ficheiro por VBA e alterar celular. Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]Percorrer ficheiro por VBA e alterar celular. Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
!