Kod Çağırma

[hlojan]

Merhaba Arkadaşlar

Sürekli tekrarlayan kodlarım var bunları toğarlamak istiyorum

Bütün kodlar tek modülde olacak.

    Set rs = CreateObject("Adodb.Recordset")
    Set con = CreateObject("Adodb.Connection")
   server_name = "www.******.com.tr"
    database_name = "*****"
    User_ID = "*****"
    Password = "*****"
    port = "****"
   
   con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & server_name & _
                    ";Port=" & port & _
                    ";Database=" & database_name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;" & _
                    ";CharSet=latin5;"

bu kodları

call Baglan

dediğimde direk bağlantı sağlasın istiyorum.

Dim wb As Workbook
Dim ws As Worksheet
Dim con, rs As Object
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("Data")

Bunuda kısaltıp

call tanımlama

yapmak istiyorum

Yardımlarınızı bekliyorum

 

[hlojan]

Hala konuya çözüm bulamadım

 

[Murat OSMA]

vs. gibi..

[SIZE="2"]Sub Baglan()
    Set rs = CreateObject("Adodb.Recordset")
    Set con = CreateObject("Adodb.Connection")
    server_name = "www.******.com.tr"
    database_name = "*****"
    User_ID = "*****"
    Password = "*****"
    port = "****"
    con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & server_name & _
                    ";Port=" & port & _
                    ";Database=" & database_name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;" & _
                    ";CharSet=latin5;"

    Call Tanımlama
End Sub

Sub Tanımlama()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim con, rs As Object
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets("Data")
    
    Call Baglan
End Sub[/SIZE]