Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2003
    Messaggi
    375

    access e excel

    dovrei tramite una macro codice o un pulsante di comando importare dei dati da foglio excel a tabella access.

    Qualcuno di voi lo ha già fatto o sa come fare non dai comandi di menù importa dati da sorgenti esterne ma da codice??

    Grazie a tutti. ciao.

  2. #2
    Utente di HTML.it
    Registrato dal
    Oct 2003
    Messaggi
    375
    ho trovato questo codice funziona ma ho il grave sospetto che mi lasci aperto il file excel...

    Infatti se chiudo access e cerco di aprire il file non me lo apre...

    Cosa mi manca?
    segue codice...

    Dim strPath As String
    Dim indxSheet As Integer
    Dim paginaExcel As Worksheet

    strPath = "Percorso"

    Set objExcel = CreateObject("Excel.Application")
    Set objWorkBook = objExcel.Workbooks.Open(strPath)
    Set objWorkBook = objExcel.ActiveWorkbook

    indxSheet = 1

    Set paginaExcel = objWorkBook.Worksheets(indxSheet)

    'PRIMA CELLA PRIMA RIGA
    MsgBox paginaExcel.Cells(1, 1)

    'SECONDA CELLA PRIMA RIGA
    MsgBox paginaExcel.Cells(1, 2)

  3. #3
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    Manca la parte della chiusura :
    codice:
        ' Questa riga ti evita la finestra di Excel dove ti chiede 
        ' di salvare le modifiche. 
        objExcel.ActiveWorkbook.Saved = True
    
        ' Effettiva chiusura
        objExcel.Quit
        Set objExcel = Nothing
    Ciao, Brainjar

  4. #4
    Utente di HTML.it
    Registrato dal
    Oct 2003
    Messaggi
    375
    Grazie funziona

    ciao

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.