vba kodunu python koduna çevirme

[Mahmut1976]

sutun = 5

altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click

For a = baslangic To altprogramsay

meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a
sutun = 5

altprogramsay = CLng(UBound(Split(meb.FindElementById("cmbAltProgram").Text, vbLf)))
If altprogramsay > 1 Then baslangic = 2 Else baslangic = 1
meb.FindElementById("cmbAltProgram").Click

For a = baslangic To altprogramsay

meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbAltProgram']/option[" & a & "]").Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById("cmbModulAdi").Text, vbLf)))
For b = 2 To ModulAdisay
meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Click
BolumAdisay = CLng(UBound(Split(meb.FindElementById("cmbBolumAdi").Text, vbLf)))
For c = 2 To BolumAdisay
meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Click
sutun = sutun + 1
Sheets("ÖĞRENCİ RAPOR BİLGİLERİ").Cells(x, sutun) = meb.FindElementByXPath("//*[@id='cmbModulAdi']/option[" & b & "]").Text & "/" & meb.FindElementByXPath("//*[@id='cmbBolumAdi']/option[" & c & "]").Text
Next c
Next b
Next a

vba kodunu Pyhthon koduna nasıl cevirebilirim.

 

[Trilenium]

from vb2py.vbfunctions import *
from vb2py.vbdebug import *



sutun = 5
altprogramsay = CLng(UBound(Split(meb.FindElementById('cmbAltProgram').Text, vbLf)))
if altprogramsay > 1:
baslangic = 2
else:
baslangic = 1
meb.FindElementById('cmbAltProgram').Click()
for a in vbForRange(baslangic, altprogramsay):
meb.FindElementByXPath('//*[@id=\'cmbAltProgram\']/option[' + a + ']').Click()
sutun = sutun + 1
Sheets['ÖĞRENCİ RAPOR BİLGİLERİ'].Cells[x, sutun] = meb.FindElementByXPath('//*[@id=\'cmbAltProgram\']/option[' + a + ']').Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById('cmbModulAdi').Text, vbLf)))
for b in vbForRange(2, ModulAdisay):
meb.FindElementByXPath('//*[@id=\'cmbModulAdi\']/option[' + b + ']').Click()
BolumAdisay = CLng(UBound(Split(meb.FindElementById('cmbBolumAdi').Text, vbLf)))
for c in vbForRange(2, BolumAdisay):
meb.FindElementByXPath('//*[@id=\'cmbBolumAdi\']/option[' + c + ']').Click()
sutun = sutun + 1
Sheets['ÖĞRENCİ RAPOR BİLGİLERİ'].Cells[x, sutun] = meb.FindElementByXPath('//*[@id=\'cmbModulAdi\']/option[' + b + ']').Text + '/' + meb.FindElementByXPath('//*[@id=\'cmbBolumAdi\']/option[' + c + ']').Text
sutun = 5
altprogramsay = CLng(UBound(Split(meb.FindElementById('cmbAltProgram').Text, vbLf)))
if altprogramsay > 1:
baslangic = 2
else:
baslangic = 1
meb.FindElementById('cmbAltProgram').Click()
for a in vbForRange(baslangic, altprogramsay):
meb.FindElementByXPath('//*[@id=\'cmbAltProgram\']/option[' + a + ']').Click()
sutun = sutun + 1
Sheets['ÖĞRENCİ RAPOR BİLGİLERİ'].Cells[x, sutun] = meb.FindElementByXPath('//*[@id=\'cmbAltProgram\']/option[' + a + ']').Text
ModulAdisay = CLng(UBound(Split(meb.FindElementById('cmbModulAdi').Text, vbLf)))
for b in vbForRange(2, ModulAdisay):
meb.FindElementByXPath('//*[@id=\'cmbModulAdi\']/option[' + b + ']').Click()
BolumAdisay = CLng(UBound(Split(meb.FindElementById('cmbBolumAdi').Text, vbLf)))
for c in vbForRange(2, BolumAdisay):
meb.FindElementByXPath('//*[@id=\'cmbBolumAdi\']/option[' + c + ']').Click()
sutun = sutun + 1
Sheets['ÖĞRENCİ RAPOR BİLGİLERİ'].Cells[x, sutun] = meb.FindElementByXPath('//*[@id=\'cmbModulAdi\']/option[' + b + ']').Text + '/' + meb.FindElementByXPath('//*[@id=\'cmbBolumAdi\']/option[' + c + ']').Text



python bilmiyorum dener misiniz


Google de convert vba to python online diyerek aratın cok sitecıkıyor denersiniz