1. Access97‚ð‹N“®‚µ‚ĐV‹K‚̃f[ƒ^ƒx[ƒX(MyDB.mdb)‚ðì¬‚µ‚Ü‚·B
   
2. ƒf[ƒ^ƒx[ƒX‚̃_ƒCƒAƒƒOƒ{ƒbƒNƒX‚©‚烂ƒWƒ…[ƒ‹ƒ^ƒu‚ðƒNƒŠƒbƒN‚µ‚½‚çAV‹Kì¬ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚ă‚ƒWƒ…[ƒ‹‚̃EƒCƒ“ƒhƒE‚ð•\Ž¦‚³‚¹‚Ü‚·B
   
3. ƒƒjƒ…[‚©‚çƒc[ƒ‹‚ðƒNƒŠƒbƒN‚µ‚ÄŽQÆÝ’è‚ðƒNƒŠƒbƒN‚µ‚Ü‚·B
   
4. MyLib.mda‚ÆMS Excel 8.0 Object Library‚ð“o˜^‚µ‚Ü‚·BMyLib.mda‚ð“o˜^‚·‚é‚ɂ́AŽQÆƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚ÄMyLib.mda‚ð‘I‘ð‚µ‚Ü‚·BiÚ×‚́Aƒ‰ƒCƒuƒ‰ƒŠ[ƒf[ƒ^ƒx[ƒX‚Ì‘g‚ݍž‚Ý‚ðŽQÆ‚µ‚Ä‚­‚¾‚³‚¢j MS Excel 8.0 Object Library‚́AƒIƒuƒWƒFƒNƒg‚̈ꗗ‚©‚猟õ‚µ‚ă`ƒFƒbƒNƒ}[ƒN‚ðƒNƒŠƒbƒN‚µ‚Ä‚©‚çOKƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ü‚·B‚±‚ê‚щƒCƒuƒ‰ƒŠ[‚Ì“o˜^‚ªŠ®—¹‚µ‚Ü‚µ‚½B
   
5. ƒ‚ƒWƒ…[ƒ‹ƒEƒCƒ“ƒhƒE‚ÉŽg—p—á‚P‚ðƒRƒs[•ƒy[ƒXƒg‚µ‚Ü‚·B
   
6. ƒfƒoƒbƒOƒEƒCƒ“ƒhƒE‚ð•\Ž¦‚³‚¹‚½‚çSample1‚ðŽÀs‚µ‚Ü‚·B
   
7. Excel97‚ª‹N“®‚³‚ê‚ăpƒCƒ`ƒƒ[ƒg‚ª•\Ž¦‚³‚ê‚Ü‚·B
   

   }1-Žg—p—á‚P‚Å•\Ž¦‚³‚ê‚éƒOƒ‰ƒt

8. Excel97‚ð‚»‚Ì‚Ü‚Ü‚Ìó‘ԂŁAAccess97‚ɃtƒH[ƒJƒX‚ðˆÚ“®‚µ‚Ü‚·B
   
9. Hello Sample1‚̃ƒbƒZ[ƒW‚ª•\Ž¦‚³‚ê‚Ä‚¢‚Ü‚·‚Ì‚ÅOK‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ü‚·B
   
10. Excel97‚ÍŽ©“®“I‚ɏI—¹‚µ‚Ü‚·B
    

Public Sub Sample1()

  OpenExcel_FS
  If gobjExcel Is Nothing Then
      MsgBox "MS Excel 8.0 control is not installed on your computer!"
      Exit Sub
  End If

  With gobjExcel
      .Workbooks.Add
      With .ActiveSheet
          .Cells(1, 1).Value = "–¼‘O"
          .Cells(2, 1).Value = "tŽq"
          .Cells(3, 1).Value = "‰ÄŽq"
          .Cells(4, 1).Value = "HŽq"
          .Cells(5, 1).Value = "“~Žq"
          
          .Cells(1, 2).Value = "”„ã"
          .Cells(2, 2).Value = "60"
          .Cells(3, 2).Value = "25"
          .Cells(4, 2).Value = "10"
          .Cells(5, 2).Value = "5"
      End With
      
      DrawExcelChart_FS strDataRange:="A2:B5", _
                        strChartTitle:="‰c‹Æ’S“–ŽÒ•Ê”„ã", _
                        intChartType:=xl3DPieExploded
      
      MsgBox "Hello Sample1"
  End With
  
  CloseExcel_FS

End Sub @

1. Access97‚É“Y•t‚³‚ê‚Ä‚¢‚é Northwind.mdb ‚ðŠJ‚«‚Ü‚·B
   i’ʏ킱‚̃tƒ@ƒCƒ‹‚́AC:\Program Files\Office\Samples‚̃tƒHƒ‹ƒ_‚ɃCƒ“ƒXƒg[ƒ‹‚³‚ê‚Ü‚·Bj
   
2. ƒf[ƒ^ƒx[ƒX‚̃_ƒCƒAƒƒOƒ{ƒbƒNƒX‚̃‚ƒWƒ…[ƒ‹‚̃^ƒu‚ðƒNƒŠƒbƒN‚µ‚½‚çV‹Kì¬‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚ă‚ƒWƒ…[ƒ‹ƒEƒCƒ“ƒhƒE‚ð•\Ž¦‚³‚¹‚Ü‚·B
   
3. Žg—p—á‚P‚Æ“¯—lAƒƒjƒ…[‚©‚çƒc[ƒ‹‚ðƒNƒŠƒbƒN‚µ‚½‚çŽQÆÝ’è‚ðƒNƒŠƒbƒN‚µ‚ÄMyLib.mda‚ÆMS Excel 8.0 Object Library‚ð“o˜^‚µ‚Ü‚·B
   
4. ƒ‚ƒWƒ…[ƒ‹ƒEƒCƒ“ƒhƒE‚ÉŽg—p—á‚Q‚ðƒRƒs[•ƒy[ƒXƒg‚µ‚Ü‚·B
   
5. ƒfƒoƒbƒOƒEƒCƒ“ƒhƒE‚ð•\Ž¦‚³‚¹‚ÄSample2‚ðŽÀs‚µ‚Ü‚·B
   
6. Excel97‚ª‹N“®‚³‚ê‚洛i‹æ•ª•Ê”„ã‚̃pƒCƒ`ƒƒ[ƒg‚ª•\Ž¦‚³‚ê‚Ü‚·B
   

   }2-Žg—p—á‚Q‚Å•\Ž¦‚³‚ê‚éƒOƒ‰ƒt

7. Excel97‚ð‚»‚Ì‚Ü‚Ü‚Ìó‘ԂŁAAccess97‚ɃtƒH[ƒJƒX‚ðˆÚ“®‚µ‚Ü‚·B
   
8. Hello Sample2‚̃ƒbƒZ[ƒW‚ª•\Ž¦‚³‚ê‚Ä‚¢‚Ü‚·‚Ì‚ÅOK‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ü‚·B
   
9. Excel97‚ÍŽ©“®“I‚ɏI—¹‚µ‚Ü‚·B

Public Sub Sample2()

  Dim rsSales As Recordset
  Dim strSQL As String
  
  Dim strDataRange As String
  Dim strChartTitle As String

  OpenExcel_FS

  strSQL = "SELECT ¤•i‹æ•ª.‹æ•ª–¼, Sum(Žó’–¾×.’P‰¿*Žó’–¾×.”—Ê) AS ‹àŠz" _
         & " FROM (¤•i INNER JOIN Žó’–¾× ON ¤•i.¤•iƒR[ƒh = Žó’–¾×.¤•iƒR[ƒh)" _
         & " INNER JOIN ¤•i‹æ•ª ON ¤•i.‹æ•ªƒR[ƒh = ¤•i‹æ•ª.‹æ•ªƒR[ƒh" _
         & " GROUP BY ¤•i‹æ•ª.‹æ•ª–¼" _
         & " ORDER BY Sum(Žó’–¾×.’P‰¿*Žó’–¾×.”—Ê) DESC;"

  Set rsSales = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

  With gobjExcel
      .Workbooks.Add
      With .ActiveSheet
          .Cells(1, 1).Value = "¤•i‹æ•ª"
          .Cells(1, 2).Value = "”„ã‹àŠz"
          .Range("A2").CopyFromRecordset rsSales
          .Columns("A:B").AutoFit
      End With
      
      strDataRange = "A2:B" & Format(rsSales.RecordCount + 1) ' ==> A2:B9
      strChartTitle = "¤•i‹æ•ª•Ê”„ã"
      
      DrawExcelChart_FS strDataRange, strChartTitle, xl3DPieExploded
      
      MsgBox "Hello Sample2"
      
  End With
  
  rsSales.Close
  Set rsSales = Nothing
  
  CloseExcel_FS

End Sub