Excel dosyasından AutoCAD vsa ile değer alın

[Pombia]

Herkese merhaba, bu tema üzerinde küçük bir forum okudum bu probleme bir çözüm bulamadım.

Bu koda sahip olmak:

dim reg as acadtext
dim textreg as string
dim ip(0 to 2) çift olarak
dim x çift olarak, y çift olarak, iki, çift olarak çürük, çift olarak

Textreg = regionetext.text
x = 2.875
y = 10.4
Z = 0
İLGİLİ = x: ip (1) = y: ip(2) = z

reg = budrawing.modelspace.Addtext(textreg, ip, 0.2)
Reg.layer = 0
Reg.color = bylayer
Tartışma = amentcenter
Tartışma noktası = ip

Textreg = dgw dışındaki bir mükemmel dosya hücresinden alınır ve kullanıcı formatında girdiğim metin kutusundan değil.

Herkes bana yardım edebilir mi?

 

[rpor66]

dim excelsheet as object
dim filename as string

Dosya adı = "c:\tuofile.xls"
Set Excellencesheet = getobject(filename)

Üstün tablo.application.visible = true = true
hücre = Üstün tablo.application.cells (1, 1)

cell contiene valore della cella a1

Buon divertimento

 

[Pombia]

Yine de sıkıntılar, kodu ekledikten sonra beni aynı şımartmıyor.

Diğer çözümler?

 

[rpor66]

dvb, dosya adı, satır ve sütun tarafından açıklanan bir özellik içerir.
vsa doğrulama, araçlar/referanslar, kullanımdaki başarı versiyonuna atıfta bulunmalıdır.Sorunlarınız varsa, sorun.
Yemin ederim

 

[Pombia]

Başka bir kodu kullanarak çözdüm ve referansları aktive ettim. Yardım için teşekkürler, sorunlarım var çünkü ilk silahtalar

 

[rpor66]

Bir seguito richiesta, posto un esempio di richiamo della funzione v göz ardı

Sub testvlookup()

dim string olarak kanıtlandı
dim obxls as object
dim wkfile as workbook
dim shfile as worksheet

obxls = getobject (, "excel.application")

obxls.application.visible = true = true

wkfile = obxls.activeworkbook
set shfile = wkfile.activesheet
'set shfile = wkfile.worksheets (combobox1.text)Kanıtlanmış = wkfile.application.worksheet function.vlookup ("c", shfile.range ("f1:g8") 2, false)
"prova = shfile.application.worksheet function.vlookup(listbox2.list(x), shfile.range (l9, l28), 3, false)msgbox testi

end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end

p.s.: çocuk için
mavi parçalar ayarlarınızı içeriyor, takas.
Yemin ederim

 

[kAndreak]

Her şeye yemin ederim,
Alanda yeniyim ve bir vss ve etca fark etmem gerekiyor.
Autocad, seçilen blokların özelliklerini üst düzeyde ihraç etmesine izin verir.
Yapmak istediğim şey ters süreci yaratmaktır; veya otocad'da dış bir masayı ithal etmek, istediğim blokları güncellemek.
Bu mümkün mü?
Teşekkür ederim.

 

[rpor66]

ekspres bölümde bloklar, komut bul <import attribute="" information=""> Bu, aldığı şeydir.</import>

 

[kAndreak]

ekspres bölümde bloklar, komut bul <import attribute="" information=""> Bu, aldığı şeydir.</import>

Autocad'ın ekspres araçları demek, değil mi? Sonra kuruluma koymak zorundayım.

 

[rpor66]

Kod onu şekillendiriyor. Bu yöntemi ve pratik vsa kullanmak istiyorsanız, txt dosyasını düzenlemenize izin veren bir yazılım oluşturun.

 

[kAndreak]

Kod onu şekillendiriyor. Bu yöntemi ve pratik vsa kullanmak istiyorsanız, txt dosyasını düzenlemenize izin veren bir yazılım oluşturun.

Bunu daha basit bir şekilde çözdüm.
.txt dosyasını ve sucessivamnete'den ithal ettim otocad'da .txt dosyası.

Teşekkür ederim teşekkür ederim
yararlıydın