İçindekiler
Excel Dosyasını Aç
Aşağıdaki bu işlev, Access VBA ile bir Excel dosyası açacaktır.
Fonksiyonu kullanmadan önce, bir referans eklediğinizden emin olun. Microsoft Excel Nesne Kitaplığı giderek Araçlar > Referanslar ve kontrol Microsoft Excel Nesne Kitaplığı.
Genel İşlev OpenExcelFile(strFilePath As String) As Boolean 'Gerekli: Araçlar > Referanslar: Microsoft Excel Nesne Kitaplığı'na başvuru ekleyin Dim appExcel As Excel.Uygulama Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject("Excel.Application") MyWorkbook'umu ayarla = appExcel.Workbooks.Open(strFilePath) appExcel.Visible = True 'Bir Şey Yap veya Sadece Açık Bırak Ayarla appExcel = Hiçbir Şey Ayarlama myWorkbook = Hiçbir Şey Bitiş İşlevi 'Kullanım Örneği Sub OpenExcelFile_Example() OpenExcelFile("C:\Users\StevePC2\Downloads\Downloads\ test.xlsx") End Sub
Access VBA'yı Kullanarak Word Belgesini Açın
Önce Access VBA Ortamı için Word Kitaplığına bir başvuru ayarlayın.
Not: Bunu VBE'de Araçlar> Referanslar'a gidip Microsoft Word 15.0 Nesne Kitaplığı'nı işaretleyerek yaparsınız.
Aşağıdaki kod, Word belgenizi Access'i kullanarak açmanıza olanak tanır:
WordDoc'u Nesne Kümesi Olarak Karartın WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C:\Users\Taryn\Desktop\BusinessDocument.docx" WordDoc'u Ayarla = Hiçbir şey
Veya Access VBA'dan bir Word belgesi açma işlevi oluşturmak için yukarıdaki Excel Dosyasını Aç işlevini uyarlayabilirsiniz.
