Início
![[Resolvido]Importação Excel para Access informando nome do campo - Página 1 Empty](https://2img.net/i/empty.gif)
Olá, não sei se já resolveu, no entanto fiz pequeno exemplo com o seguinte código:
Abaixo ficheiro de teste.
Abraço
- Código:
Private Sub cmdAlterarXLSX_Click()
'ahteixeira 2015 - maximoaccess
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(Application.CurrentProject.Path & "\AlteraFicheiroExcel.xlsx")
oExcel.Visible = False
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "maximoaccess A1"
oSheet.Range("B1").Value = "maximoaccess A2"
oBook.Save
oBook.Close
oExcel.Quit
MsgBox "Feito, Veja ficheiro excel.", vbInformation
End Sub
Abaixo ficheiro de teste.
Abraço
- Anexos
![[Resolvido]Importação Excel para Access informando nome do campo - Página 1 Attachment](https://2img.net/i/fa/attachment.png)
AlteraFicheiroExcel.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (28 Kb) Baixado 132 vez(es)
