scrivere nelle celle excel da form access

Question

Ciao a tutti,

torno a chiedere un aiuto prezioso se esiste la possibilità di scrivere in un file di excel prelevando i dati da maschera access con il sistema della stampa unione.

Quale migliore guida seguire?

Grazie in anticipo a tutti.

Answer 1

Per ottenere un valore dalla form principale devi utilizzare

Me.nomeControllo

Per fare riferimento ad un controllo di una sottomaschera

Forms.nomeMaschera.nomeSottoMaschera.Form.nomeControllo

Ciao Mimmo

Answer 2

Ok. Se inizializzi Ind con 9

E utilizzi la sintassi

.range("A" & Ind)

Ottieni  A9 quindi al prossimo giro ottieni A10 e così via.

Mimmo

Answer 3

Grazie Mimmo ho sistemato, ma esce questo messaggio

ho provato anche a manterere aperto il file excel, ma esce lo stesso.

Come dovrei procedere?

Grazie ancora

Answer 4

Ciao,

prima dell'istruzione (riga 4)

 StrFile = "C:\Users\iaia\foglio.xlsx"

aggiungi

Dim StrFile As String

Ciao Mimmo

Answer 5

ciao,

ho cercato ed ho provato a seguire questo post https://answers.microsoft.com/it-it/msoffice/forum/all/automazione-inserimento-celle-in-excel-da-database/f7452a80-b30e-4edd-87b6-ae8fd0c37ff9 e adattare con il mio scenario con il seguente codice 

rivate Sub cmdExcel_Click()

    ' variabli Oggetto per Automazione

    Dim objXLApp As Object

    Dim objXLBook As Object

    Dim objSheet As Object

    StrFile = "C:\Users\iaia\foglio.xlsx"

    ' crea un Oggetto dal file di Excel

    Set objXLBook = GetObject(StrFile)

    ' Usiamo la proprietà Parent dell'Oggetto workbook per ottenere un puntatore all'Oggetto dell'Applicazione Excel

    Set objXLApp = objXLBook.Parent

    On Error GoTo Errore

    ' Impostiamo il riferimento al foglio di lavoro che ci interessa

    Set objSheet = objXLBook.Worksheets("Foglio1")

    objXLApp.Visible = True

    objXLBook.Save

    objXLBook.Windows(1).Activate

    With objSheet

        .Range("A5") = Me.data

        .Range("E5") = Me.operatore

    'ecc...

    End With

    Exit Sub

Errore:

    MsgBox "Non è possibile elaborare il file per il seguente errore " & Err.Description, vbInformation

End Sub

Quando premo su cmdExcel esce l'errore di compilazione Varaibaile non definita e d il cursore si posiziona in giallo nella parte 

StrFile =

Come potrei risolvere?

Grazie in anticipo a tutti Voi