Demo entry 6661812



Submitted by lyli on Nov 22, 2017 at 17:17
Language: Code size: 548 Bytes.

    Dim xlApp As Excel.Application
    Dim xlBook As Workbook, xlSheet As Worksheet
    'The following code will initiate an ADODB.Recordset object for the table
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Dim strPathName As String
    strPathName = CurrentProject.Path & "\deviation.xlsx"
    Set xlBook = xlApp.Workbooks.Open(strPathName)
    Set xlSheet = xlBook.Worksheets(1)

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).