ACC: Bagaimana memanggil fungsi Excel dari dalam Microsoft Access

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 153748 - Melihat produk di mana artikel ini berlaku.
Lanjutan: Memerlukan ahli coding, interoperabilitas, dan keterampilan multiuser.

Untuk versi Microsoft Access 2000 artikel ini, lihat 198571.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan kepada Anda bagaimana menggunakan otomatisasi untuk memanggil Microsoft Excel fungsi dari dalam Microsoft Access.

Artikel ini mengasumsikan bahwa Anda sudah familiar dengan Visual Basic untuk Aplikasi dan membuat aplikasi Microsoft Access menggunakan pemrograman alat-alat yang disediakan dengan Microsoft Access. Untuk informasi lebih lanjut tentang Visual Basic for Applications, silakan merujuk ke versi "Membangun aplikasi dengan Microsoft Access" manual.

INFORMASI LEBIH LANJUT

Microsoft Excel menawarkan beberapa fungsi yang tidak tersedia di Microsoft Akses, misalnya, statistik fungsi. Namun, Anda dapat mengakses ini fungsi dari dalam Microsoft Access dengan menggunakan otomatisasi jika Anda pertama menetapkan referensi ke perpustakaan objek Microsoft Excel.

Untuk membuat referensi ke perpustakaan objek Microsoft Excel, ikuti langkah-langkah:
  1. Membuka modul dalam Microsoft Access.
  2. Pada menu alat, klik referensi.
  3. Dalam kotak referensi, pilih perpustakaan objek Microsoft Excel yang sesuai untuk versi Microsoft Excel, dan kemudian klik OK.

    Jika Anda menggunakan Microsoft Excel 5.0 atau 7.0, pilih Microsoft Excel 5.0 perpustakaan objek. Jika Anda menggunakan Microsoft Excel 97, pilih Perpustakaan objek Microsoft Excel 8.0.
Setelah referensi dibuat, Anda dapat menggunakan Browser objek untuk melihat semua Microsoft Excel objek, properti dan metode, termasuk fungsi yang tersedia melalui objek aplikasi.

Subrutin dua contoh berikut menggunakan Microsoft Excel statistik fungsi.

Catatan: Microsoft Excel tidak secara otomatis menutup setelah itu telah dibuka dengan menggunakan otomatisasi. Subrutin berikut menggunakan metode keluar untuk Tutup Microsoft Excel. Untuk informasi lebih lanjut tentang berhenti Microsoft Excel, silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
145770 ACC: Otomasi tidak menutup Microsoft Excel

Contoh 1

Subrutin berikut menggunakan otomatisasi untuk memanggil Microsoft Excel Median() fungsi. Setengah dari set nomor jatuh di bawah dan setengah di atas median.
   Sub xlMedian()
      Dim obj As Excel.Application
      Set obj = CreateObject("Excel.Application")
      MsgBox obj.Application.Median(1, 2, 5, 8, 12, 13)
      obj.Quit
      Set obj = Nothing
   End Sub
				
Subrutin menampilkan 6,5 di kotak pesan.

Jika Anda menggunakan Microsoft Access 97 Microsoft Excel 97, Anda dapat menyederhanakan kode dengan menelepon Microsoft Excel referensi langsung:
   Sub xlMedian()
      MsgBox Excel.Application.Median(1, 2, 5, 8, 12, 13)
   End Sub
				
Catatan: Bila Anda menggunakan sintaks ini, Microsoft Excel 97 tetap dalam memori sampai Anda reset kode atau menutup database Anda. Perhatikan juga, bahwa meskipun ini sintaks bekerja dengan Microsoft Excel 7.0, Microsoft Excel 7.0 tetap di memori setelah Anda me-reset kode atau menutup database Anda, dan bahkan setelah Anda berhenti Microsoft Access. Untuk menghemat sumber daya sistem, jangan gunakan ini sintaks dengan Microsoft Excel 7.0.

Contoh 2

Subrutin berikut menggunakan otomatisasi untuk memanggil Microsoft Excel ChiInv() fungsi yang mengembalikan invers atau satu ekor probabilitas distribusi Chi-Squared:
   Sub xlChiInv()
      Dim obj As Excel.Application
      Set obj = CreateObject("Excel.Application")
      MsgBox obj.Application.ChiInv(0.05, 10)
      obj.Quit
      Set obj = Nothing
   End Sub
				
Subrutin ini menampilkan 18.3070290368475 di kotak pesan.

Jika Anda menggunakan Microsoft Access 97 Microsoft Excel 97, Anda dapat menyederhanakan kode dengan menelepon Microsoft Excel referensi langsung:
   Sub xlChiInv()
      MsgBox Excel.Application.ChiInv(0.05, 10)
   End Sub
				
Merujuk kepada catatan dalam contoh 1 untuk informasi tentang dampak menggunakan sintaks ini.

Microsoft Excel juga menggunakan tambahan. Ini adalah program yang mencakup kustom fungsi dan perintah. Jika Anda perlu untuk menggunakan fungsi yang termasuk dalam Tambah program, Anda harus terlebih dahulu membuka tambahan. Berikut adalah contoh penggunaan fungsi LCM (kelipatan persekutuan terkecil):
      Sub xlAddin()
      Dim obj As Excel.Application
      Set obj = CreateObject("Excel.Application")
      ' Opens the add-in, which is in the Analysis folder of the
      ' Microsoft Excel Library Directory.
      obj.workbooks.Open (obj.Application.librarypath & _
       "\Analysis\atpvbaen.xla")
      ' Runs the AutoOpen macro in the add-in
      obj.workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
      MsgBox obj.Application.Run("atpvbaen.xla!lcm", 5, 2)
      obj.Quit
      Set obj = Nothing
   End Sub
				
Subrutin ini menampilkan 10 di kotak pesan.

REFERENSI

Untuk informasi lebih lanjut tentang menggunakan otomatisasi, Cari Otomatisasi, dan kemudian Otomatisasi dengan Microsoft Access menggunakan Microsoft Access 97 bantuan Indeks.

Untuk informasi lebih lanjut tentang menggunakan Browser objek, Cari Objek Browser dan kemudian "bekerja dengan objek Visual Basic yang menggunakan objek Browser"menggunakan Microsoft Access 97 Index bantuan.

Untuk informasi lebih lanjut mengenai referensi Perpustakaan jenis, Cari Jenis Perpustakaan, dan kemudian "Set referensi untuk jenis perpustakaan" menggunakan Microsoft Access 97 Index bantuan.

Untuk informasi lebih lanjut tentang tambahan di Microsoft Excel, Cari "add-in program"menggunakan Microsoft Excel 97 Index bantuan.

Properti

ID Artikel: 153748 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 97 Standard Edition
Kata kunci: 
kbhowto kbprogramming kbmt KB153748 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:153748
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com