[Resolvido]Erro ao tentar alterar o nome do campo via vba

Pessoa, boa tarde,

Estou tentando alterar o nome de alguns campos de uma planilha em excel que recedo toda semana, e preciso exportar para o access, porem preciso alterar o nome de alguns campos antes de exportar, e fazer o que preciso, porem sem sucesso até o momento, segue abaixo o código e o erro que mostra!

O erro ocorre nessa linha:

Rs1.Fields(i).Name = Replace(Rs1.Fields(i).Name, "#", "")

informando: erro em tempo de execução '3219' opção invalida

Código:



Private Sub tirarponto()
  Dim bdExcel As DAO.Database
    Dim Rs1 As Recordset
  Dim strPathFile As String, strFile As String, strPath As String
 
strPath = "C:\Sistema de compras\Excel_Estoque_Viman\" ' drive onde se situa o seu documento excel
strTable = "Tbmaterial" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
 strPathFile = strPath & strFile
 
  Set bdExcel = OpenDatabase(strPathFile, False, False, "Excel 12.0;HDR=NO;IMEX=0") 'abro o arquivo excel
    Set Rs1 = bdExcel.OpenRecordset("Plan1$") 'abro a planilha

 While Not Rs1.EOF


          For i = 0 To 7
         
          If InStr(1, Rs1.Fields(i).Name, "#") > 0 Then
            Rs1.Edit
            Rs1.Fields(i).Name = Replace(Rs1.Fields(i).Name, "#", "")
              Rs1.Update
          '    Rs1.MoveNext
              End If
          if i = 7 then
         
exit for

                Next i

               
            Wend
   
            Rs1.Close: Set Rs1 = Nothing


End Sub



Boa noite.
Só um palpite.
Já tentou tirar o #? Geralmente ele que da problema

OpenDatabase não é a forma ideal de fazer essa alteração no nome de um campo.

Adapte o metodo abaixo
https://www.maximoaccess.com/t33512-resolvidoexportar-o-que-esta-no-formulario-para-celulas-definidas-no-excel#253935

obrigado, damasceno pela dica, resolvido com algumas modificações conforme código abaixo:

Código:


Dim VarArquivo As String
Dim rpt As Report
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xls As Excel.Worksheet

strPath = "C:\Sistema de compras\Excel_Estoque_Viman\" ' drive onde se situa o seu documento excel
strTable = "Tbmaterial" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
 strPathFile = strPath & strFile
 
 
VarArquivo = strPathFile

Set xlsBook = Workbooks.Open(VarArquivo, , False)
Set xlsApp = xlsBook.Parent
Set xls = xlsApp.Sheets("Plan1")

xlsApp.visible = False

 
    xls.Range("c1").Value = "Qtdisponivel"
    xls.Range("d1").Value = "Qtestoque externo"
    xls.Range("e1").Value = "Qtnao conforme"
    xls.Range("f1").Value = " Qtquarentena"
    xls.Range("g1").Value = "Qttotal"

xlsBook.Application.DisplayAlerts = False

xlsBook.Close savechanges:=True


O fórum agradece o retorno. Sucesso.