Prenez la valeur du fichier Excel via AutoCAD vba

[Pombia]

Bonjour à tous, en lisant un petit forum sur ce thème, je n'ai pas pu trouver de solution à ce problème.

ayant ce code:

dim reg en acadtext
dim textreg en chaîne
dim ip(0 à 2) double
dim x double, y double, z double, pourriture double

textreg = regionetext.text
x = 2,875
y = 10,4
z = 0
ip(0) = x: ip(1) = y: ip(2) = z

set reg = thisdrawing.modelspace.addtext(textreg, ip, 0.2)
reg.layer = 0
reg.color = acbylayer
reg.alignement = centre d'calignement
textalignmentpoint = ip

Je voudrais que le textreg = soit extrait d'une cellule d'un fichier excel en dehors du ggw et non de la zone de texte que j'ai saisie dans le formulaire utilisateur.

Quelqu'un peut m'aider ?

 

[rpor66]

dim excelsheet comme objet
dim nom de fichier comme chaîne

nom de fichier = "c:\tuofile.xls"
set excelsheet = getobject(filename)

excelsheet.application.visible = vrai
cellule = excelsheet.application.cells(1, 1)

cellules contiene il valore della cella a1

Détournement de buon

 

[Pombia]

Toujours des problèmes, avoir ajouté le code ne me gâche pas la même chose.

D'autres solutions ?

 

[rpor66]

dvb contient une fonction qui lit une cellule d'excel décrite par nom de fichier, ligne et colonne.
vba vérification, outils/références doivent se référer à la version d'excel en usage.Si vous avez des problèmes, demandez.
Au revoir.

 

[Pombia]

J'ai résolu en utilisant un autre code et en activant les références. Merci pour l'aide, j'ai des problèmes parce qu'ils sont à première main

 

[rpor66]

a seguito richiesta, posto un esempio di richiamo della funzione vlookup in excel

sous testvlookup()

Dim prova comme chaîne
dim obxls comme objet
dim wkfile comme manuel
dim shfile comme feuille de travail

set obxls = getobject(, "Excel. application")

obxls.application.visible = true

set wkfile = obxls.activeworkbook
définir shfile = wkfile.activessheet
'set shfile = wkfile.worksheets(combobox1.text)prova = wkfile.application.worksheetfonction.vlookup("c", shfile.range("f1:g8"), 2, false)
'prova = shfile.application.worksheetfunction.vlookup(listbox2.list(x), shfile.range(l9, l28), 3, false)Essai de msgbox

fin

p.s.: pour enfant
Les pièces bleues contiennent vos paramètres, échangez.
Au revoir.

 

[kAndreak]

Au revoir à tous,
Je suis nouveau sur le terrain et j'aurais besoin de réaliser un vbs et vba.
autocad permet d'exporter les attributs des blocs sélectionnés en format Excel.
Ce que je veux faire, c'est créer le processus inverse; ou importer une table externe dans excel in autocad, pour mettre à jour les blocs que je veux.
Est-ce possible ?
Je vous remercie.

 

[rpor66]

dans les blocs de section express, trouvez la commande <import attribute="" information=""> C'est ce qu'il faut.</import>

 

[kAndreak]

dans les blocs de section express, trouvez la commande <import attribute="" information=""> C'est ce qu'il faut.</import>

Vous voulez dire des outils express d'autocad, n'est-ce pas ? Alors je dois le mettre dans l'installation.

 

[rpor66]

Le code est en train de l'écrire. si vous voulez utiliser cette méthode et pratiquer vba, créez un logiciel en excellent qui vous permet de modifier le fichier txt.

 

[kAndreak]

Le code est en train de l'écrire. si vous voulez utiliser cette méthode et pratiquer vba, créez un logiciel en excellent qui vous permet de modifier le fichier txt.

Je l'ai résolu d'une manière plus simple.
J'ai importé d'excel le fichier .txt et sucessivamnete re montants le fichier .txt modifié dans autocad.

Je vous remercie.
vous avez été utile