Populate an excell cell

[ptrifile]

Is there any way from the push of a button to populate an excel cell with data from a field on a form?

Thanks for any suggestions

Paul

 

[dhookom]

You can use automation to open an Excel file and then set the value of a cell. I use code something like this:

    Dim strFile as String
    Dim oXLS As Excel.Application
    Dim oWkb As Object
    strFile = "C:\TEMP\Mytemplate.xls"
    Set oXLS = CreateObject("Excel.Application")
    oXLS.Workbooks.Open strFile
    Set oWkb = oXLS.Workbooks(1)
    oWkb.Worksheets(1).Range("NamedRange") = Me.txtMyValue
    oXLS.Visible = True
    Set oXLS = Nothing
    Set oWkb = Nothing

Duane
Hook'D on Access
MS Access MVP

 

[ptrifile]

Thanks Dhookum, when i run that i get "Compile error: User-defined type not defined" I am running access 2007, is there something i need to do?

Thanks

Paul

 

[dhookom]

You may need to set a reference to the Excel object library or try change one line:

    Dim oXLS As Object

Duane
Hook'D on Access
MS Access MVP