Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  daten aus ole excel objekt lesen und schreiben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
Autor Thema:  daten aus ole excel objekt lesen und schreiben (317 / mal gelesen)
bimbelhuber
Mitglied
technischer zeichner


Sehen Sie sich das Profil von bimbelhuber an!   Senden Sie eine Private Message an bimbelhuber  Schreiben Sie einen Gästebucheintrag für bimbelhuber

Beiträge: 13
Registriert: 08.01.2020

erstellt am: 26. Apr. 2023 14:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ich habe eine zeichnung "test.dwg" mit einer userform1, die aus einer combobox1 besteht.
diese befülle ich bei der iniziallisierung ganz normal mit:

  userform1.combobox1.AddItem "klein"
  userform1.combobox1.AddItem "mittel"
  userform1.combobox1.AddItem "groß"

jetzt habe ich eine exceltabelle mit insertobj in die zeichnung eingefügt und im tabellen-
blatt "tab1" in die zelle "a1" den wert "klein" reingeschrieben. der vorgegebene name der
excel datei ist "Tabelle von test.dwg".

jetzt soll die combobox1 mit dem Wert aus der zelle "a1" nämlich "klein" versehen werden.
ich schätze es muss erst mal das applicationsobjekt ungefähr so deklariert werden:

  Dim xlApp As Object
  Set xlApp = CreateObject("excel.application")

bis hierher funktionert alles, die userform wird angezeigt, die vorgaben sind wählbar.

jetzt ist meine frage wie bekomme ich den wert von der tabelle in die combobox1? wenn
jemand von euch eine idee hat oder mir meinen denkfehler erkläre könnte wäre das prima.

ach ja, später soll es auch umgekehrt funktionieren, ich wähle z.b. "mittel" in der
userform aus und dieser wert soll dann in die integrierte tabelle in die zelle "a1" zu-
rückgeschrieben werden.

dank euch freundlichen helfern schon jetzt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2812
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2022
Plateia, Canalis
Visual Basic

erstellt am: 26. Apr. 2023 16:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für bimbelhuber 10 Unities + Antwort hilfreich

Hallo,
Das ist alles ein wenig verwirrend, vielleicht kannst Du uns die Zeichnung mit dvb und xls einmal als zip-Datei zur Verfügung stellen?

Theoretisch kannst Du die Combobox auch mit den Werten des Tabellenblattes füllen wenn Du einen Range-Bereich zuweist. Ob das zielführend ist kommt natürlich auf den Anwendungsfall an.

Wie hast Du denn die Tabelle eingefügt? Mit / ohne Verknüpfung?

Nebenbei bemerkt: Ich verwende gerne eine andere Vorgehensweise für den Excelzugriff:
  Set tExcelApp = GetObject(, "Excel.Application") 'verbindet sich mit Excel, wenn dieses schon laeuft
  If tExcelApp Is Nothing Then
    Set tExcelApp = CreateObject("Excel.Application")
  End If

Vorteil: Wenn Excel schon aktiv ist wird keine neues Excel gestartet und man kann einfacher auf geöffnete Tabellen zugreifen.
Aber schick erstmal Deine dwg, vielleicht mußt Du auch anders zugreifen ...

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rexxitall
Mitglied
Dipl. -Ing. Bau


Sehen Sie sich das Profil von rexxitall an!   Senden Sie eine Private Message an rexxitall  Schreiben Sie einen Gästebucheintrag für rexxitall

Beiträge: 270
Registriert: 07.06.2013

Various: systems, Operating systems, cad systems, cad versions, programming languages.

erstellt am: 27. Apr. 2023 22:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für bimbelhuber 10 Unities + Antwort hilfreich

Ein simpler Hinweis. Ohne das in der VBA Referenz Excel nicht angemeldet ist wird das gar nichts. Und es wird auch nix wenn Autocad 64 bit ist und Excel 32 Bit - oder umgekehrt. Bevor das nicht sicher ist, lohnt keine weitere zeile 

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< not for sale !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2812
Registriert: 02.05.2006

AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2022
Plateia, Canalis
Visual Basic

erstellt am: 29. Apr. 2023 12:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für bimbelhuber 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von rexxitall:
Ein simpler Hinweis. Ohne das in der VBA Referenz Excel nicht angemeldet ist wird das gar nichts. Und es wird auch nix wenn Autocad 64 bit ist und Excel 32 Bit - oder umgekehrt. Bevor das nicht sicher ist, lohnt keine weitere zeile  

Der Hinweis ist zwar nicht verkehrt, aber ich denke das hat er schon bemerkt. Allerdings muß man nicht umbedingt bei den Verweisen Excel markiert haben. Vereinfacht zwar die Programmierung aber durch die Definition als Objekt und nicht als Workbook würde das Programm trotzdem ausgeführt (Stichwort Late Binding)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz