Bustrek
Guest
Herkese merhaba
Ilogic için bir sorum var, premise I am able to program in ilogic and cemo in etc, but playing in here and a couple of strings I set up a code to update the properties of the files by reading them from perfect, all start from a file together. Çalışmayan tek şey ve her zaman başlangıç eksen kodunun veri çizgisini yükler ve beni açan dosyaları değil.
Eğer birisi size önceden teşekkür ediyorum.
Ben kodu yapıştırıyorum:
dim odoc belge olarak = buapplication.activedocument
dim adoc as documentsnumerator = odoc. allreferenceddocuments
dim idoc belge olarak
dim xdoc belge olarak
Her idoc için birdoc
xdoc = buapplication.documents.open(idoc.fullfilename, true) ‘false görünmez bir açık olacaktır
startrule:
"TheMaster file
'goexcel.open ("c:\users\michele\onedrive\documenti\codifica salvamac.xlsx" (İngilizce).
goexcel.open("c:\ut\prg\salvamac\p100\bom p100003.xlsx", "bom")
‘ ‘ ‘ Row index from 2 to 10000
For rowpn = 2 to 10000
‘İlk boş hücreyi sütunda bul
Eğer (goexcel.cellvalue("e" & rowpn) = budoc.filename)
“Bir sıranın alt hücre değeri için değişken yaratıyor
‘ ‘ ‘ Boş hücre hattı
Sonpn = goexcel.cellvalue("e" & rowpn)
Sondesc = goexcel.cellvalue("f" & rowpn)
dse = goexcel.cellvalue("ae" & rowpn)
Tarih = goexcel.cellvalue("g" & rowpn)
Dev = goexcel.cellvalue("h" & rowpn)
snq = goexcel.cellvalue("i" & rowpn)
rah = goexcel.cellvalue("j" & rowpn)
mat = goexcel.cellvalue("p" & rowpn)
fom = goexcel.cellvalue("q" & rowpn)
trf = goexcel.cellvalue("r" & rowpn)
tri = goexcel.cellvalue("ag" & rowpn)
gdp = goexcel.cellvalue("s" & rowpn)
Kedi = goexcel.cellvalue("m" & rowpn)
Tar = goexcel.cellvalue("k" & rowpn)
lav = goexcel.cellvalue("n" & rowpn)
Tap = goexcel.cellvalue("o" & rowpn)
fn = goexcel.cellvalue("l" & rowpn)
r1d = goexcel.cellvalue("t" & rowpn)
r1t = goexcel.cellvalue("u" & rowpn)
r1a = goexcel.cellvalue("v" & rowpn)
r2d = goexcel.cellvalue("w" & rowpn)
r2t = goexcel.cellvalue("x" & rowpn)
r2a = goexcel.cellvalue("y" & rowpn)
r3d = goexcel.cellvalue("z" & rowpn)
r3t = goexcel.cellvalue("aaa" & rowpn)
r3a = goexcel.cellvalue("ab" & rowpn)
nte = goexcel.cellvalue("ac" & rowpn)
ssc = goexcel.cellvalue("ad" & rowpn)
Çıkış için
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
“ kod numarası dosya adına eşit olup olmadığını kontrol edin veya boş
Eğer iproperties.value(" project", "part number") = budoc.filename(false) _
veya iproperties.value(" project", "part number") = "
“Doğal değerde üst düzey vergiler,
Iproperties.value(" project", "part number") = sonpn
Iproperties.value(" project", "description") = sondesc
Iproperties.value("custom", "description") = dse
Iproperties.value("custom", "data") = tarih
Iproperties.value("custom", "derived by") = Dev
Iproperties.value("custom", "unquoted bevels" = snq
Iproperties.value("custom", "rugosita' ra" = rah
Iproperties.value("custom", "mal") mat
Iproperties.value("custom", "mal şekli") = fom
Iproperties.value("custom", "final işleme") = trf
Iproperties.value("custom", "intermediate tedavisi" = trimediate
Iproperties.value("custom", "grad doğruluk") = gdp
Iproperties.value("custom", "category" = kedi
Iproperties.value("custom", "type article") = tar
Iproperties.value("custom", "iş" = lav
Iproperties.value("custom", "type appov. primary") = musluk
Iproperties.value("custom", "elier") =
Iproperties.value("custom", "r01_data") = r1dd
Iproperties.value("custom", "r01_testo") = r1t
Iproperties.value("custom", "r01_writer") = r1a
Iproperties.value("custom", "r02_data") = r2dd
Iproperties.value("custom", "r02_text" = r2t
Iproperties.value("custom", "r02_writer") = r2a
Iproperties.value("custom", "r03_data") = r3dd
Iproperties.value("custom", "r03_testo") = r3t
Iproperties.value("custom", "r03_writer") = r3a
Iproperties.value("custom", "note" = nte
Iproperties.value("custom", "replaces") = ssc
Sonunda, eğer sona erirse
“Düz ve sonuçları doğrulamak ister
Soru = mesajbox.show ("code: " & lastpn & etclf _
" & lastdesc & etclf _
Ve "Doğru mu?", "ekiz mülk", mesaj kutusubuttons.yesno)
“Eğer cevap hayır
Soru = vsno o zaman
“Bu iproperties Tamamlandı
Iproperties.value(" project", "part number") = "
Iproperties.value(" project", "description") = "
Iproperties.value("custom", "description" = "
Iproperties.value("custom", "data") = "
Iproperties.value("custom", "derived by" = "
Iproperties.value("custom", "unquoted bevels" = "
Iproperties.value("custom", "rugosita' ra" = ""
Iproperties.value("custom", "mal" = "
Iproperties.value("custom", "mal şekli" = ""
Iproperties.value("custom", "data") = "
Iproperties.value("custom", "final tedavisi" = ""
Iproperties.value("custom", "intermediate tedavi" = ""
Iproperties.value("custom", "grad doğruluk" = ""
Iproperties.value("custom", "category" = ""
Iproperties.value("custom", "type article") = ""
Iproperties.value("custom", "iş" = "
Iproperties.value("custom", "type appov. primary" = ""
Iproperties.value("custom", "eelier" = ""
Iproperties.value("custom", "r01_data" = ""
Iproperties.value("custom", "r01_testo" = ""
Iproperties.value("custom", "r01_writer" = ""
Iproperties.value("custom", "r02_data" = ""
Iproperties.value("custom", "r02_text" = ""
Iproperties.value("custom", "r02_writer") = ""
Iproperties.value("custom", "r03_data" = ""
Iproperties.value("custom", "r03_text" = ""
Iproperties.value("custom", "r03_writer") = ""
Iproperties.value("custom", "note" = ""
Iproperties.value("custom", "replaces" = ""
Kuralı tekrar çalıştırın
Goto startrule
“Eğer cevap evet çıkış kuralıysa
Başka bir son eğer
'ilogicvb.runexternalrule('properties')
'xdoc. kurtarma kurtarma
xdoc.close(Real)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Ilogic için bir sorum var, premise I am able to program in ilogic and cemo in etc, but playing in here and a couple of strings I set up a code to update the properties of the files by reading them from perfect, all start from a file together. Çalışmayan tek şey ve her zaman başlangıç eksen kodunun veri çizgisini yükler ve beni açan dosyaları değil.
Eğer birisi size önceden teşekkür ediyorum.
Ben kodu yapıştırıyorum:
dim odoc belge olarak = buapplication.activedocument
dim adoc as documentsnumerator = odoc. allreferenceddocuments
dim idoc belge olarak
dim xdoc belge olarak
Her idoc için birdoc
xdoc = buapplication.documents.open(idoc.fullfilename, true) ‘false görünmez bir açık olacaktır
startrule:
"TheMaster file
'goexcel.open ("c:\users\michele\onedrive\documenti\codifica salvamac.xlsx" (İngilizce).
goexcel.open("c:\ut\prg\salvamac\p100\bom p100003.xlsx", "bom")
‘ ‘ ‘ Row index from 2 to 10000
For rowpn = 2 to 10000
‘İlk boş hücreyi sütunda bul
Eğer (goexcel.cellvalue("e" & rowpn) = budoc.filename)
“Bir sıranın alt hücre değeri için değişken yaratıyor
‘ ‘ ‘ Boş hücre hattı
Sonpn = goexcel.cellvalue("e" & rowpn)
Sondesc = goexcel.cellvalue("f" & rowpn)
dse = goexcel.cellvalue("ae" & rowpn)
Tarih = goexcel.cellvalue("g" & rowpn)
Dev = goexcel.cellvalue("h" & rowpn)
snq = goexcel.cellvalue("i" & rowpn)
rah = goexcel.cellvalue("j" & rowpn)
mat = goexcel.cellvalue("p" & rowpn)
fom = goexcel.cellvalue("q" & rowpn)
trf = goexcel.cellvalue("r" & rowpn)
tri = goexcel.cellvalue("ag" & rowpn)
gdp = goexcel.cellvalue("s" & rowpn)
Kedi = goexcel.cellvalue("m" & rowpn)
Tar = goexcel.cellvalue("k" & rowpn)
lav = goexcel.cellvalue("n" & rowpn)
Tap = goexcel.cellvalue("o" & rowpn)
fn = goexcel.cellvalue("l" & rowpn)
r1d = goexcel.cellvalue("t" & rowpn)
r1t = goexcel.cellvalue("u" & rowpn)
r1a = goexcel.cellvalue("v" & rowpn)
r2d = goexcel.cellvalue("w" & rowpn)
r2t = goexcel.cellvalue("x" & rowpn)
r2a = goexcel.cellvalue("y" & rowpn)
r3d = goexcel.cellvalue("z" & rowpn)
r3t = goexcel.cellvalue("aaa" & rowpn)
r3a = goexcel.cellvalue("ab" & rowpn)
nte = goexcel.cellvalue("ac" & rowpn)
ssc = goexcel.cellvalue("ad" & rowpn)
Çıkış için
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
“ kod numarası dosya adına eşit olup olmadığını kontrol edin veya boş
Eğer iproperties.value(" project", "part number") = budoc.filename(false) _
veya iproperties.value(" project", "part number") = "
“Doğal değerde üst düzey vergiler,
Iproperties.value(" project", "part number") = sonpn
Iproperties.value(" project", "description") = sondesc
Iproperties.value("custom", "description") = dse
Iproperties.value("custom", "data") = tarih
Iproperties.value("custom", "derived by") = Dev
Iproperties.value("custom", "unquoted bevels" = snq
Iproperties.value("custom", "rugosita' ra" = rah
Iproperties.value("custom", "mal") mat
Iproperties.value("custom", "mal şekli") = fom
Iproperties.value("custom", "final işleme") = trf
Iproperties.value("custom", "intermediate tedavisi" = trimediate
Iproperties.value("custom", "grad doğruluk") = gdp
Iproperties.value("custom", "category" = kedi
Iproperties.value("custom", "type article") = tar
Iproperties.value("custom", "iş" = lav
Iproperties.value("custom", "type appov. primary") = musluk
Iproperties.value("custom", "elier") =
Iproperties.value("custom", "r01_data") = r1dd
Iproperties.value("custom", "r01_testo") = r1t
Iproperties.value("custom", "r01_writer") = r1a
Iproperties.value("custom", "r02_data") = r2dd
Iproperties.value("custom", "r02_text" = r2t
Iproperties.value("custom", "r02_writer") = r2a
Iproperties.value("custom", "r03_data") = r3dd
Iproperties.value("custom", "r03_testo") = r3t
Iproperties.value("custom", "r03_writer") = r3a
Iproperties.value("custom", "note" = nte
Iproperties.value("custom", "replaces") = ssc
Sonunda, eğer sona erirse
“Düz ve sonuçları doğrulamak ister
Soru = mesajbox.show ("code: " & lastpn & etclf _
" & lastdesc & etclf _
Ve "Doğru mu?", "ekiz mülk", mesaj kutusubuttons.yesno)
“Eğer cevap hayır
Soru = vsno o zaman
“Bu iproperties Tamamlandı
Iproperties.value(" project", "part number") = "
Iproperties.value(" project", "description") = "
Iproperties.value("custom", "description" = "
Iproperties.value("custom", "data") = "
Iproperties.value("custom", "derived by" = "
Iproperties.value("custom", "unquoted bevels" = "
Iproperties.value("custom", "rugosita' ra" = ""
Iproperties.value("custom", "mal" = "
Iproperties.value("custom", "mal şekli" = ""
Iproperties.value("custom", "data") = "
Iproperties.value("custom", "final tedavisi" = ""
Iproperties.value("custom", "intermediate tedavi" = ""
Iproperties.value("custom", "grad doğruluk" = ""
Iproperties.value("custom", "category" = ""
Iproperties.value("custom", "type article") = ""
Iproperties.value("custom", "iş" = "
Iproperties.value("custom", "type appov. primary" = ""
Iproperties.value("custom", "eelier" = ""
Iproperties.value("custom", "r01_data" = ""
Iproperties.value("custom", "r01_testo" = ""
Iproperties.value("custom", "r01_writer" = ""
Iproperties.value("custom", "r02_data" = ""
Iproperties.value("custom", "r02_text" = ""
Iproperties.value("custom", "r02_writer") = ""
Iproperties.value("custom", "r03_data" = ""
Iproperties.value("custom", "r03_text" = ""
Iproperties.value("custom", "r03_writer") = ""
Iproperties.value("custom", "note" = ""
Iproperties.value("custom", "replaces" = ""
Kuralı tekrar çalıştırın
Goto startrule
“Eğer cevap evet çıkış kuralıysa
Başka bir son eğer
'ilogicvb.runexternalrule('properties')
'xdoc. kurtarma kurtarma
xdoc.close(Real)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki