Excel Elektronik Tablosu Oluşturmak için VBA'ya Nasıl Erişilir

VBA kullanarak verileri bir Excel elektronik tablosuna kaydedin.

Access'te bir Excel elektronik tablosu oluşturmak, verileri bir Excel elektronik tablosuna aktarmanız gerektiğinde size zaman kazandırabilir. Visual Basic for Applications (VBA), Microsoft Office uygulamalarındaki işlemleri otomatikleştirmek için güçlü bir araç olabilir. VBA ile Access'ten bir Excel elektronik tablosu oluşturmak için Microsoft Excel Uygulaması nesnesini kullanabilirsiniz. Excel uygulama nesnesi, nesne modelinin geri kalanına giriş noktasıdır. Verileri doğrudan bir Excel elektronik tablosuna kaydederek verileri Excel'e daha hızlı aktarın.

Aşama 1

Microsoft Office Access'i başlatın, "Boş Veritabanı"na tıklayın ve boş bir veritabanı oluşturmak için "Oluştur" düğmesine tıklayın. "Veritabanı Araçları" sekmesine tıklayın ve Microsoft Visual Basic Penceresini açmak için "Visual Basic"e tıklayın. "Ekle" menüsüne tıklayın ve yeni bir kod modülü eklemek için "Modül"e tıklayın.

Günün Videosu

Adım 2

"Araçlar" menüsünü tıklayın ve "Referanslar"ı tıklayın. Aşağı kaydırın ve "Microsoft Excel

Nesne Kitaplığı." "Tamam"ı tıklayın.

Aşama 3

Yeni bir alt prosedür oluşturmak için aşağıdaki VBA kodunu yazarak başlayın:

Özel Alt createSpreadSheet()

4. Adım

Excel elektronik tablosunu oluşturmak için kullanılacak üç yeni değişken nesne oluşturmak için aşağıdaki kodu yazarak devam edin:

Excel olarak yeniExcelApp'i karartın. Başvuru. Excel olarak yeniWbk'yi karartın. Çalışma kitabı. Excel olarak yeniWkSheet'i karartın. Çalışma kağıdı

Adım 5

Excel'i başlatmak ve görüntülemek için aşağıdaki kodu ekleyin:

newExcelApp = Excel olarak ayarlayın. Başvuru

yeniExcelApp. Görünür = Doğru

6. Adım

Yeni bir çalışma kitabı ve çalışma sayfası eklemek için aşağıdakini yazın:

newWbk = newExcelApp olarak ayarlayın. Çalışma kitapları. Ekle

newWkSheet = newWbk olarak ayarlayın. Çalışma sayfaları (1)

7. Adım

Aşağıdakileri yazarak yeni e-tablonuza veri ekleyin:

yeniWkSheet. Hücreler (1, 1).Value = "Yeni çalışma sayfası..."

Adım 8

Aşağıdaki kodu yazarak oluşturulan yeni çalışma kitabını kaydedin:

yeniWkSheet. SaveAs ("C:\myworksheet.xlsx")

9. Adım

Bir önceki adımdaki yolu düzenleyin ve istediğiniz yolu ve dosya adını yazın.

Adım 10

Alt prosedürü sonlandırmak için aşağıdakini yazın:

Alt Alt

11. Adım

Prosedürünüzü çalıştırmak ve yeni bir Excel elektronik tablosu oluşturmak için "F5" tuşuna basın.