[Access] Excel 파일에 값 쓰기

Access에서 Visual Basic을 통해 Excel Macro를
실행하는 예제입니다.


    Dim xlApp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim filename As String
   
    filename = CurrentProject.Path & "\test.xlsm"

    Set xlApp = CreateObject("Excel.Application")
    Set xlbook = xlApp.Workbooks.Open(filename)
    Set xlsheet = xlbook.Worksheets(1)
   
    xlsheet.cells(1, 1).Value = "Access 에서 삽입한 값은 " & 삽입텍스트 & " 입니다."
    xlsheet.Application.Run "Macro1", 삽입텍스트
   
    xlsheet.Application.Visible = True
    'xlbook.Close

Run_Excel_Macro.zip

0.03MB