Techniquices

Para criar a tabela, fazer segundo o explicado no link abaixo: Ver aqui como se faz... Para importar, pode-se usar o método descrito no link acima ou, mais fácil ainda, quando se escolhe o ficheiro onde estão os dados, escolher antes "MS Clipboard".

DRAFT de um excel que criei para uns testes na Orange: Sub AccImport(ByRef ws As Worksheet) Dim acc As New Access.Application Dim bla As String Dim rng As Range Dim path As String Dim dbName As String Dim wb As Workbook path = "C:\Users\pmendes\Local documents\" dbName = "QVT_prod_cat.accdb" On Error Resume Next acc.NewCurrentDatabase path & dbName, acNewDatabaseFormatUserDefault acc.CloseCurrentDatabase On Error GoTo 0 acc.OpenCurrentDatabase path & dbName Application.StatusBar = "Exporting " & ws.Name & ". PLEASE WAIT!" Set wb = Application.ActiveWorkbook Application.DisplayAlerts = False On Error Resume Next Application.Workbooks("##expt##" & ws.Name & "##.xlsx").Close On Error GoTo 0 Application.ActiveWorkbook.SaveAs path & "##expt##" & ws.Name & "##.xlsx" Application.Dis