---

Hallo!

ich möchte auf eine geschlossene Excel Tabelle zugreifen um eine Combobox mit Eitraegen zu fuellen. Leider gelingt mir das nicht mittels Rowsource. Den beieiner offener Tabelle funktioniert
das ja ganz gut...

  Dim tPfad
  Dim Exc As Object

  tPfad = "C:\Users\xxx\new.xls"
  Set Exc = GetObject(tPfad)

  ComboBox1.RowSource = Exc.Sheets(1).range("A1:A4").Value
--- hier ist Fehler

generel kann man auf einzelne Zelle zugreifen z.B.:
  ComboBox1.Value = Exc.Sheets(1).range("A1").Value

Hat jemand eine Idee?!

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

---

Hallo zurück

Du hast dir die Antwort schon fast selber geben.

Mit "GetObject" kannst du nur auf bestehende Objekte zugreifen.
Hier wäre ein "CreateObject" angebracht um die Excel-Instanz zu erstellen und die Datei zu öffnen.

Näheres hier -> http://support.microsoft.com/kb/288902/de

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Henry,

mit CreateObject funktioniert Rowsource auch nicht. Ich möchte Excel nicht starten, sondern nur auf die tabelle mit Catia zugreifen. Habe dieses problem übrigens mit List gelöst:

  Dim tPfad
  Dim Exc As Object

  tPfad = "C:\Users\xxx\new.xls"
  Set Exc = CreateObject(tPfad)

  ComboBox1.List = Exc.Sheets(1).range("A1:A5").Value

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

---

Hi,

mit deinem Code machst du nichts anderes als die Arbeitsmappe im Hintergrund "unsichtbar" zu öffnen. Weshalb öffnest du sie dann nicht einfach "ganz normal" und schließt sie dann wieder? Durch Application.ScreenUpdating bekommt doch der Benutzer gar nichts davon mit.

------------------
Bis später,
Karin

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