RPA Geliştiricileri İçin Temel VBScript Kodları

Merhaba! RPA (Robotik Süreç Otomasyonu) projelerinde, süreçleri optimize etmek ve verimliliği artırmak için çeşitli programlama dilleri ve araçlar kullanılmaktadır. Bu bağlamda, VBScript, özellikle Excel ile ilgili otomasyonlarda önemli bir rol oynar. Bu yazıda, RPA geliştiricilerinin sıklıkla ihtiyaç duyduğu bazı temel VBScript kod örneklerini ve bu kodların pratikteki kullanımını ele alacağız. Bu kodlar sayesinde süreçlerinizi daha verimli hale getirip, RPA projelerinizde başarılı sonuçlar elde edebilirsiniz.

RPA Geliştiricileri İçin Temel VBScript Kodları

Merhaba! RPA (Robotik Süreç Otomasyonu) geliştirme sürecinde, çeşitli programlama dilleri ve otomasyon araçları kullanarak iş süreçlerinizi optimize etmeniz mümkündür. VBScript, kolay anlaşılabilir yapısı ve güçlü fonksiyonları ile RPA projelerinde kritik bir rol oynar. Özellikle büyük Excel dosyaları ile çalışırken, VBScript’in sunduğu hızlı ve etkili çözümler, işlemlerinizi daha hızlı ve verimli hale getirebilir. Bu yazıda, süreçlerinizi iyileştirmek için kullanabileceğiniz bazı temel VBScript kod örneklerini ve bu kodların nasıl uygulanacağını detaylı bir şekilde ele alacağız.

1. Excel Dosyaları Arasında Veri Kopyalama

Bu kod parçası, CopyExcel değişkeninde tutulan Excel verilerinin, PasteExcel değişkenindeki Excel dosyasına eklenmesini sağlar. TargetSheet değişkeni ise verilerin yazdırılacağı sayfanın adını içerir. Kodun başlangıcındaki fonksiyon, Türkçe karakter içeren isimlendirmelerde herhangi bir sorun yaşanmaması için gerekli düzenlemeleri yapmaktadır.

**CopyExcel** = "C:\Projects\Deneme.xlsx"
**PasteExcel** = "C:\Projects\Deneme2.xlsx"
**TargetSheet** = "Excel Sayfası"

'Türkçe karakter içeren alanları düzenleyen fonksiyon
Function **CnvTr**(str)
    Set **dict** = CreateObject("Scripting.Dictionary")
    dict.Add "İ", ChrW(304)
    dict.Add "ı", ChrW(305)
    dict.Add "Ç", ChrW(199)
    dict.Add "ç", ChrW(231)
    dict.Add "Ğ", ChrW(286)
    dict.Add "ğ", ChrW(287)
    dict.Add "Ö", ChrW(214)
    dict.Add "ö", ChrW(246)
    dict.Add "Ş", ChrW(350)
    dict.Add "ş", ChrW(351)
    dict.Add "Ü", ChrW(220)
    dict.Add "ü", ChrW(252)
    For Each key In dict.Keys
        str = Replace(str, key, dict.Item(key))
    Next
    **CnvTr** = str
End Function

Set **objExcel** = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False

'CopyExcel ve PasteExcel değişkenlerindeki excelleri aç
Set **CopyFromExcel** = objExcel.Workbooks.Open(**CnvTr**(CopyExcel))
Set **PasteToExcel** = objExcel.Workbooks.Open(**CnvTr**(PasteExcel))
Set **PasteToSheet** = PasteToExcel.Worksheets(**CnvTr**(TargetSheet))

'Hedef sayfada kopyalanan verinin yapıştırılması için son satırı bul ve 1 ekle
**rowCount** = PasteToSheet.Cells(PasteToSheet.Rows.Count, "A").End(-4162).Row + 1

'Excelden verileri kopyala
CopyFromExcel.Worksheets(1).UsedRange.Copy

'Kopyalanan verileri hedeflenen alana yapıştır
PasteToSheet.Range("A" & rowCount).PasteSpecial -4104
objExcel.DisplayAlerts = False

PasteToExcel.close True
CopyFromExcel.Close False
objExcel.quit

2. Excel'deki Formüllerin Otomatik Uygulanması

Bu kod, Excel'deki formüllerin, yeni eklenen verilere de otomatik olarak uygulanmasını sağlar.

**ExcelPath** = "C:\Projects\Deneme.xlsx"
**TargetSheet** = "Excel Sayfası"

'Formül uygulanması gereken kolonları belirt
Dim **FormulaCell**(2)
FormulaCell(0) = "I"
FormulaCell(1) = "J"
FormulaCell(2) = "K"

'Türkçe karakter içeren alanları düzenleyen fonksiyon
Function **CnvTr**(str)
    Set **dict** = CreateObject("Scripting.Dictionary")
    dict.Add "İ", ChrW(304)
    dict.Add "ı", ChrW(305)
    dict.Add "Ç", ChrW(199)
    dict.Add "ç", ChrW(231)
    dict.Add "Ğ", ChrW(286)
    dict.Add "ğ", ChrW(287)
    dict.Add "Ö", ChrW(214)
    dict.Add "ö", ChrW(246)
    dict.Add "Ş", ChrW(350)
    dict.Add "ş", ChrW(351)
    dict.Add "Ü", ChrW(220)
    dict.Add "ü", ChrW(252)
    For Each key In dict.Keys
        str = Replace(str, key, dict.Item(key))
    Next
    **CnvTr** = str
End Function

Set **objExcel** = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False

'Formül uygulanacak Excel ve sayfa açılır
Set **TargetExcel** = objExcel.Workbooks.Open(**CnvTr**(ExcelPath))
Set **PasteToSheet** = PasteToExcel.Worksheets(**CnvTr**(TargetSheet))

'Hedef sayfada formülün uygulanacağı son satırı bul
**rowCount** = PasteToSheet.Cells(PasteToSheet.Rows.Count, "A").End(-4162).Row

'Formül uygulanacak kolonlarda 2. indeksten itibaren formül uygulanır
For i = 0 To UBound(**FormulaCell**)
    Set **sourceRange** = PasteToSheet.Range(FormulaCell(i) & "2")
    Set **fillRange** = PasteToSheet.Range(FormulaCell(i) & "2" & ":" & FormulaCell(i) & rowCount)
    sourceRange.AutoFill **fillRange**
Next

objExcel.DisplayAlerts = False
TargetExcel.close True
objExcel.quit

Bu makalede, RPA projelerinde VBScript’in nasıl kullanılabileceğine dair temel kod örneklerini ve bu kodların uygulama biçimlerini inceledik. Bu tür kodlar, büyük Excel dosyaları ile çalışırken verimliliğinizi artırabilir ve iş süreçlerinizi daha etkili hale getirebilir. RPA geliştirme sürecinde VBScript gibi araçların sunduğu esneklik ve güç, projelerinizde başarıyı artırmada önemli bir rol oynayacaktır.

Tepkiniz Nedir?

like

dislike

love

funny

angry

sad

wow