Import da excel

di
Anonimizzato13073
il
3 risposte
/
Anonimizzato13073
Utente anonimizzato

Import da excel

Ciao, ho un problema che non riesco a risolvere.Ho cercato ovunque ma non trovo informazioni.
Dovrei importare in Access vari file excel con nomi file diversi ma che hanno tutti in comune i dati inseriti nelle stesse coordinate di cella. Esempio, in tutti i file il nome in B3 il cognome in C3 il codice prodotto in A6 e via dicendo...Ho cercato codici VBA o macro ma non ho trovato nulla al riguardo. Come posso fare? Spero in un vostro aiuto, grazie anticipatamente.

3 Risposte

  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7517

    Re: Import da excel

    1. Apri Access
    2. Dal menu File|Carica dati esteri|Importa
    3. Ti apparirà una finestra dove devi scegliere la directory dove si trova il file Excel e, in basso,
    Tipo file: Microsoft Excel (*.xls), poi clicca sul tasto Importa
    4. Partirà una procedura guidata in cui vengono individuate le colonne da importare in tabella di Access
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8767

    Re: Import da excel

    Se le CELLE sono contigue o raggruppabili puoi usare questo:
    
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
    "Employees","C:\Data\Test.xls", True, "A3:G12"
    Se la cosa è invece più da CUSTOMIZZARE devi accedere al SERVER di AUTOMAZIONE
    
Dim xlApp As Object 'Excel.Application
Dim xlWrk As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlWrk = xlApp.Workbooks.Open("C:\Data\Test.xls")
Set xlSheet = xlWrk.Sheets("Foglio1")

' TuoaPrimaCella=xlSheet.Cells(1, 5)
.... chiudi tutto
    Ovviamente se devi importare i dati in una Tabella Aprirai un Recordset in Tabella ed andrai a scrivere dentro i valori recuperati dalla Lettura delle celle... 
    
Dim rec As Recordset
Dim db As Database

Set db = CurrentDb
Set rec = db.OpenRecordset("TuaTabella")

rec.AddNew
rec("Campo1") = xlSheet.Cells(1, 5) ' Corrisponde ad A5
rec("Campo2") = xlSheet.Cells(2, 9) ' Corrisponde a B9 
rec.Update

rec.close
set rec=nothing
  • /
    Anonimizzato13073
    Utente anonimizzato

    Re: Import da excel

    Ciao, grazie mille per la celerità di risposta. Sono appena rientrato e in questi giorni proverò ciò che mi avete consigliato. Spero di risolvere il problema...intanto rigrazieeee
Devi accedere o registrarti per scrivere nel forum
3 risposte