Cara membuat makro Excel dengan menggunakan otomatisasi dari Visual Basic.NET

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 303871 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini selangkah demi selangkah menjelaskan cara mengotomatisasi Microsoft Excel dari Microsoft Visual Basic.NET untuk buat buku kerja yang berisi makro baru yang terkait dengan CommandBar tombol.

Langkah-langkah untuk membuat sampel Visual Basic.NET aplikasi

  1. Mulai Microsoft Visual Basic.NET.
  2. Pada Berkas menu, klik Baru, lalu klik Project. Pilih Aplikasi Windows dari jenis proyek Visual Basic. Form1 dibuat oleh default.
  3. Menambahkan referensi ke Perpustakaan objek Microsoft Excel, Perpustakaan objek Microsoft Office, dan Microsoft Visual Basic untuk aplikasi Extensibility perpustakaan. Untuk melakukannya, ikuti langkah-langkah berikut:
    1. Pada Project menu, klik Menambahkan referensi.
    2. Klik COM tab, klik Microsoft Excel Perpustakaan objek, lalu klik Pilih.

      Catatan Microsoft Office 2003 mencakup Majelis Interop utama (PIAs). Microsoft Office XP tidak mencakup PIAs, tetapi mereka dapat didownload.Untuk informasi tambahan tentang Office XP PIAs, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
      328912INFO: Microsoft Office XP PIAs tersedia untuk di-Download
    3. Pilih Microsoft Visual Basic untuk aplikasi Extensibility perpustakaan, lalu klik Pilih.
    4. Klik Oke dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda.
  4. Pada Lihat menu, klik Toolbox untuk menampilkan Toolbox, dan menambahkan tombol ke Form1.
  5. Klik dua kali Button1. Kode jendela terbuka di onClick acara untuk Button1. Tambahkan baris berikut di atas Public Class Form1:
       Imports Office = Microsoft.Office.Core
    					
  6. Dalam jendela kode, tambahkan kode berikut:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
          System.EventArgs) Handles Button1.Click
       Dim oExcel As Excel.Application
       Dim oBook As Excel.Workbook
       Dim oModule As VBIDE.VBComponent
       Dim oCommandBar As Office.CommandBar
       Dim oCommandBarButton As Office.CommandBarControl
       Dim sCode As String
    
       ' Create an instance of Excel, and show it to the user.
       oExcel = New Excel.Application()
    
       ' Add a workbook.
       oBook = oExcel.Workbooks.Add
    
       ' Create a new VBA code module.
       oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule)
    
       sCode = "sub VBAMacro()" & vbCr & _
          "   msgbox ""VBA Macro called"" " & vbCr & _
          "end sub"
    
       ' Add the VBA macro to the new code module.
       oModule.CodeModule.AddFromString(sCode)
    
       Try
          ' Create a new toolbar, and show it to the user.
          oCommandBar = oExcel.CommandBars.Add("VBAMacroCommandBar")
          oCommandBar.Visible = True
    
          ' Create a new button on the toolbar.
          oCommandBarButton = oCommandBar.Controls.Add(Office.MsoControlType.msoControlButton)
          ' Assign a macro to the button.
          oCommandBarButton.OnAction = "VBAMacro"
          ' Set the caption of the button.
          oCommandBarButton.Caption = "Call VBAMacro"
          ' Set the icon on the button to a picture.
          oCommandBarButton.FaceId = 2151
       Catch exc As Exception
             MessageBox.Show("VBAMacroCommandBar already exists.", "Error")
       End Try
    
       oExcel.Visible = True
       ' Set the UserControl property so that Excel does not shut down.
       oExcel.UserControl = True
    
       ' Release the variables.
       oCommandBarButton = Nothing
       oCommandBar = Nothing
       oModule = Nothing
       oBook = Nothing
       oExcel = Nothing
    
       ' Force garbage collection.
       GC.Collect()
    
    End Sub
    					
  7. Menambahkan kode berikut ke atas Form1.vb:
    Imports Office = Microsoft.Office.Core
    Imports Microsoft.Office.Interop
    Imports VBIDE = Microsoft.Vbe.Interop
    					
  8. Tekan F5 untuk membangun dan kemudian jalankan program.
  9. Klik Button1 untuk memulai Excel, masukkan Visual Basic for Applications (VBA) kode, dan kemudian menambahkan baru CommandBar kontrol. Klik tombol pada CommandBar untuk menjalankan VBA makro.

Catatan tambahan untuk Office XP

Aplikasi Microsoft Office XP dan Microsoft Office 2003 memiliki opsi keamanan yang memungkinkan program akses ke VBA object model. Jika pengaturan ini Dari (default), Anda menerima pesan galat ketika Anda menjalankan sampel kode. Untuk informasi tambahan tentang pengaturan ini dan bagaimana Anda dapat memperbaiki kesalahan, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
282830PRB: program Akses ke Office XP VBA proyek ditolak

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
194611Membuat dan memanggil Excel makro Pemrograman dari BB

Properti

ID Artikel: 303871 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Excel 2002 Standard Edition
Kata kunci: 
kbpia kbautomation kbhowtomaster kbmt KB303871 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:303871

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