VBA를 통해 여러 Excel 워크 시트에 액세스 데이터를 출력합니다.

Question

Excel에 4 개의 보고서를 출력하는 데이터베이스가 있습니다. 이들은 모두 다른 워크 북에 있습니다. 그러나이 모든 것을 하나의 서식 파일 통합 문서로 출력하지만 다른 워크 시트에서는 출력하고 싶습니다.

도움을 주시면 감사하겠습니다.

크리스

Answer 1

여기 있습니다. 늦은 바인딩을 사용하고 있습니다.

Private Sub OutputToExcel() 
    Dim oExcel As Object 
    Dim oBook As Object 
    Dim oSheet As Object 

    On Error Resume Next 
    Set oExcel = GetObject(, "Excel.Application") 
    If Err.Number <> 0 Then 
     Err.Clear 
     Set oExcel = CreateObject("Excel.Application") 
    End If 
    On Error GoTo 0 

    oExcel.Visible = True 
    Set oBook = oExcel.Workbooks.Add 'default workbook has 3 sheets 
    Set oSheet = oBook.worksheets(1) 
    oSheet.Range("A1").Value = "Test " & oSheet.Name 
    Set oSheet = oBook.worksheets(2) 
    oSheet.Range("A1").Value = "Test " & oSheet.Name 
    Set oSheet = oBook.worksheets(3) 
    oSheet.Range("A1").Value = "Test " & oSheet.Name 
    Set oSheet = oBook.worksheets.Add 
    oSheet.Name = "Test Sheet4" 
    oSheet.Range("A1").Value = "Test " & oSheet.Name 

    Set oSheet = Nothing 
    Set oBook = Nothing 
    Set oExcel = Nothing 
End Sub