Parametre alan Microsoft Excel makrolarını çağırma

  • Makale
  • Şunlara uygulanır:
    Microsoft Excel

Özet

Otomasyon'u kullanarak Microsoft Excel'i işleyebilirsiniz. Microsoft Excel Uygulama nesnesinin Run yöntemini kullanarak Microsoft Excel Çalışma Kitaplarında depolanan makro yordamlarını çağırmak mümkündür. Parametreleri alan Microsoft Excel makro yordamları söz diziminde küçük bir değişikliğe neden olur. Aşağıda, Visual Basic'ten Microsoft Excel makro yordamının nasıl çağrılacaklarını gösteren bir kod örneği verilmiştir.

Daha Fazla Bilgi

Adım Adım Örnek

  1. Visual Basic'te yeni bir Proje başlatın. Form1 varsayılan olarak oluşturulur.

  2. Form1'e bir CommandButton yerleştirin.

  3. Form1'in Genel Bildirimler bölümüne şu kodu girin:

          Option Explicit

Private Sub Command1_Click()
       Dim oExcelApp As Object

' Create a reference to the currently running excel application
       Set oExcelApp = GetObject(, "Excel.application")
       ' Make the Excel Application Visible.
       oExcelApp.Visible = True
       ' Run the excel procedure
       oExcelApp.run "proc", "David", 30
      End Sub

  4. Microsoft Excel'i başlatın. Book1 varsayılan olarak oluşturulur.

  5. Çalışma kitabına yeni bir modül ekleyin.

    Excel 5.0 ve 7.0 için: Ekle menüsünde Makro'ya tıklayın ve modül seçeneğine tıklayın. Bu size modül1 adlı yeni bir modül sayfası sağlar.

    Excel 97 ve üzeri için: Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın. Ekle menüsünde Modül'e tıklayın.

  6. Modül1'de aşağıdaki kodu yazın:

    Sub Proc(sParam1 As String, iParam2 As Integer)
        MsgBox sParam1 & " is " & iParam2 & " Years Old"
      End Sub

  7. Çalışma kitabını Microsoft Excel'de açık bırakın ve Visual Basic'te projenize geçin.

  8. Projeyi çalıştırmak için Visual Basic'ten F5 tuşuna basın. Komut düğmesine tıkladığınızda içinde "David 30 yaşında" metninin yer alan bir iletişim kutusu görürsünüz.

Başvurular

Excel'i Otomatikleştirmek için Visual Basic kullanma hakkında daha fazla bilgi için aşağıdakilere bakın:

219151 Visual Basic'ten Microsoft Excel'i Otomatikleştirme