VBA kullanarak Excel'den bir Word dosyasına veri kopyalamak için Excel VBA kullanarak kelime uygulamasına erişmemiz gerekir. Bu dersimizde word uygulaması açmayı, belge eklemeyi ve excel'den kopyala-yapıştır verisini ona nasıl uygulayacağımızı öğreneceğiz.
Bu yazımızda geç bağlama kullanmak yerine Word uygulamasının bir nesnesini oluşturmak için Early Binding yöntemini kullanacağız. Bununla ilgili ayrıntılı olarak buradan okuyabilirsiniz.
Excel VBA Kullanarak Excel Verilerini Bir Word Dosyasına Kopyalama İşlemi
VBA kullanarak excel'den bir word dosyasına veri kopyalamak için önce tabi ki Word Uygulamasını açmamız gerekiyor. Ardından buna bir belge ekleyin (yeni bir belge istiyorsanız). Excel dosyasından verileri kopyalayın. Belgedeki paragrafı seçin ve üzerine yapıştırın.Son olarak belgeyi kaydedin ve kapatın. Bu adımların her biri Excel'den kolayca yapılabilir. Word Belgesi ile etkileşime girmenize gerek kalmayacak.
Teoriye daha fazla girmeden bir örnekle başlayalım. Çünkü Iron Man, "Bazen yürümeden önce koşman gerekir" demişti.
Örnek : Excel Verilerini VBA Kullanarak Word'e Yapıştırın
Aşağıdaki kod, bir dizi excel'i nasıl kopyalayabileceğinizi ve yeni bir word belgesine nasıl yapıştırabileceğinizi ve daha sonra kullanmak üzere sürücüye nasıl kaydedebileceğinizi gösteren bir örnektir.
'Excel'den Bir Belgeye Veri Kopyalamak için Yazılacak VBA Kodu ExcelToWord() 'Erken Ciltlemeyi Kullanma Dim wordApp As Word.Uygulama Dim mydoc As Word.Document 'Yalnızca başka bir örnek yoksa yeni bir word örneği oluşturma WordApp = Yeni Olarak Ayarla Word.Application 'Kelime Uygulamasını Görünür yapma wordApp.Visible = True 'Yeni bir belge oluşturma Mydoc'u ayarla = wordApp.Documents.Add() 'BuWorkbook.Worksheets("sheet1").Range("A1:g20 excel sayfasından içerik kopyalama" ").Kopyala 'Belgeye yapıştırma mydoc.Paragraphs(1).Range.PasteExcelTable _ LinkedToExcel:=False, _ WordFormatting:=False, RTF:=False 'belgeyi kaydediyor mydoc.SaveAs2 "MyDoc" 'belgeyi kapatıyor mydoc .Close 'Panoyu Boşaltma CutCopyMode = False End Sub
Kodun Açıklaması:
Koddaki her adımı yorumları kullanarak açıkladım ama bu alt bölümde kullandığımız satırlar hakkında biraz bilgi verelim.
'Kelime uygulaması ve belge türü değişkenleri oluşturuldu
Dim wordApp olarak Word.Application
Mydoc'u Word.Document olarak karart
Burada gerekli tiplerden iki değişken tanımladık. Bunu yapabiliriz çünkü başvuruyu zaten kelime uygulamasına ekledik. Bunu menüdeki araçlara giderek yapabilirsiniz. Referanslar seçeneğini bulun ve ardından referans kelimesini arayın.
'Yalnızca başka bir örnek yoksa yeni bir Word örneği oluşturma
wordApp = Yeni Word.Application olarak ayarlayın
'Kelime Uygulamasını Görünür Yapmak
wordApp.Visible = Doğru
'Yeni bir belge oluşturma
Belgem = wordApp.Documents.Add() olarak ayarla
Yukarıdaki ilk satırda, New anahtar sözcüğünü kullanarak Word.App türünde bir nesneyle wordApp değişkenini amaçlıyoruz. Bu, Word Uygulamasını açacaktır.
İkinci satırda, onunla çalışabilmemiz için uygulama kelimesini görünür hale getiriyoruz.
Sonraki satırda Word.Documents.Add() fonksiyonunu kullanarak word uygulamasına yeni bir belge ekliyoruz. Bu, mydoc değişkeninde saklanır.
içeriği excel sayfasından kopyalama
ThisWorkbook.Worksheets("sayfa1").Range("A1:G20").Kopyala
Burada sadece excel'den bir dizi kopyalıyoruz. Daha önce yapmış olmalısın. Panoda saklanır.
'Belgeye yapıştırma
mydoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=Yanlış, _
WordFormatting:=Yanlış,
RTF:=Yanlış
Panodan veri yapıştırmak için Mydoc'un Paragraph.Range sınıfının PasteExcelTable yöntemini kullanıyoruz.
'belgeyi kaydetme
belgem.SaveAs2 "Belgem"
'belgeyi kapatmak
belgem.Kapat
'Panoyu Boşaltmak
CutCopyMode = Yanlış
Belgeyi MyDoc adıyla kaydediyoruz. Ardından Close fonksiyonunu kullanarak belgeyi kapatıyoruz. Sonunda, başkaları tarafından kullanılmak üzere panoyu serbest bırakıyoruz.
Evet arkadaşlar, bu şekilde yeni bir Word belgesi oluşturabilir ve VBA kullanarak Excel verilerini bu belgeye kopyalayabilirsiniz. Yazıyı çok uzatacağı için ayrıntılara girmedim. Bu sadece Excel aracılığıyla bir kelime belgesine nasıl yapıştırabileceğinizi öğrenmek içindi. Umarım süreci anlamanıza yardımcı olmuştur. Bu makale ile ilgili herhangi bir sorunuz varsa, aşağıdaki yorumlar bölümünden benimle iletişime geçebilirsiniz.
Excel VBA UserForms'a Başlarken| Excel'de nasıl form oluşturulacağını, VBA araç kutusunun nasıl kullanılacağını, kullanıcı girdilerinin nasıl ele alınacağını ve son olarak kullanıcı girdilerinin nasıl saklanacağını anlatacağım. Bu konuları bir örnek ve adım adım kılavuz kullanarak inceleyeceğiz.
Excel'de VBA değişkenleri| VBA, Visual Basic for Applications anlamına gelir. Microsoft'tan bir programlama dilidir. MSExcel, MS-Word ve MS-Access gibi Microsoft Office uygulamalarıyla kullanılırken VBA değişkenleri belirli anahtar kelimelerdir.
Excel VBA Değişken Kapsamı| Tüm programlama dillerinde, tanımlanmış bir değişkene nereden erişilebileceğini tanımlayan değişken erişim belirteçlerine sahibiz. Excel VBA İstisna değildir. VBA'nın da kapsam belirleyicileri vardır.
ByRef ve ByVal Argümanları | Bir argüman farklı bir alt veya fonksiyona ByRef argümanı olarak iletildiğinde, gerçek değişkenin referansı gönderilir. Değişkenin kopyasında yapılan herhangi bir değişiklik orijinal argümana yansır.
Microsoft Excel'de VBA kullanarak onay istemleri olmadan sayfaları silin | VBA kullanarak sayfaları sildiğiniz için ne yaptığınızı biliyorsunuz. Excel'e bu uyarıyı göstermemesini ve lanet olası sayfayı silmesini söylemek istersiniz.
Microsoft Excel 2016'da VBA Kullanarak Yeni Çalışma Kitabı Ekleme ve Kaydetme| Bu kodda, önce bir çalışma kitabı nesnesine bir başvuru oluşturduk. Sonra onu yeni bir çalışma kitabı nesnesiyle başlattık. Bu yaklaşımın yararı, bu yeni çalışma kitabında işlemleri kolayca yapabilmenizdir. Kaydetme, kapatma, silme vb.
Excel VBA Durum Çubuğunda Bir Mesaj Görüntüle| Excel'deki durum çubuğu, kod izleyicisi olarak kullanılabilir. VBA kodunuz uzun olduğunda ve VBA'yı kullanarak birkaç görev yaptığınızda, ekranın titrediğini görmemek için genellikle ekran güncellemesini devre dışı bırakırsınız.
Microsoft Excel 2016'da VBA Kullanarak Uyarı Mesajlarını Kapatın| Bu kod yalnızca VBA uyarılarını devre dışı bırakmakla kalmaz, aynı zamanda kodun zaman verimliliğini de artırır. Nasıl olduğunu görelim.
Popüler Makaleler:
Verimliliğinizi Artıracak 50 Excel Kısayolu | Görevinizde daha hızlı olun. Bu 50 kısayol, Excel'de daha da hızlı çalışmanızı sağlayacaktır.
Excel'de DÜŞEYARA İşlevi | Bu, farklı aralıklardan ve sayfalardan değer aramak için kullanılan excel'in en çok kullanılan ve popüler işlevlerinden biridir.
Excel 2016'da EĞERSAY | Bu şaşırtıcı işlevi kullanarak değerleri koşullarla sayın. Belirli değerleri saymak için verilerinizi filtrelemeniz gerekmez. Gösterge tablonuzu hazırlamak için Countif işlevi gereklidir.
Excel'de SUMIF İşlevi nasıl kullanılır? | Bu, başka bir gösterge panosu temel işlevidir. Bu, belirli koşullardaki değerleri özetlemenize yardımcı olur.