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.