[Resolvido]Percorrer ficheiro por VBA e alterar celular.

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


UP

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.

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

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

Obrigado resolvido.

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