Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Laufzeitfehler 91

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
Autor Thema:  Laufzeitfehler 91 (656 mal gelesen)
kn
Mitglied
CAD-Koordinator

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

Beiträge: 2
Registriert: 21.07.2009

erstellt am: 21. Jul. 2009 13:11    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 hab ein kleines Tool geschrieben, das eine verknüpfte Excel-Tabelle öffnet. Mit einer bidirektionalen Verknüpfung  zurück zu ACAD. Das komische ist, dass dieses Tool mit den meisten Rechnern (XP/Office - Excel 9-11) funktioniert. Aber doch nicht bei allen. Denn bei einigen Rechnern bekomme ich den Fehler:

"Laufzeitfehler'91: Objektvariable oder With Blockvariable nicht festgelegt."
Die Fehlermeldung bezieht sich auf folgende Zeile:

Set XLS_Sheet = XLS_WB.Sheets.Add(, , 1)

Anbei noch der ganze Block!

'Excel starten
Set XLS_WB = StartExcel(True)
RowAnz = 0
For Ish = 0 To UBound(SheetNames)
  If OneSheet = 0 Then
    Set XLS_Sheet = XLS_WB.Sheets.Add(, , 1)
    XLS_Sheet.name = SheetNames(Ish)
    RowAnz = 0
  Else
    Set XLS_Sheet = XLS_WB.ActiveSheet
  End If
  For row = 0 To UBound(SheetDatas(Ish))
    For col = 0 To UBound(SheetDatas(Ish)(row))
      DS(0) = SheetDatas(Ish)(row)(col)(0)
      DS(1) = SheetDatas(Ish)(row)(col)(1)
      If row = 0 Then
        With XLS_Sheet.Cells(RowAnz + row + 1, col + 1)
          .NumberFormat = "@"
        End With
        With XLS_Sheet.Cells(RowAnz + row + 2, col + 1)
          .NumberFormat = "@"
        End With
        If col = 0 And OneSheet = -1 Then
          XLS_Sheet.Cells(RowAnz + row + 1, col + 1) = SheetNames(Ish)
        Else
          XLS_Sheet.Cells(RowAnz + row + 1, col + 1) = DS(0)
        End If
        XLS_Sheet.Cells(RowAnz + row + 2, col + 1) = DS(1)
      Else
        With XLS_Sheet.Cells(RowAnz + row + 2, col + 1)
          .NumberFormat = "@"
        End With
        XLS_Sheet.Cells(RowAnz + row + 2, col + 1) = DS(1)
      End If
    Next col
  Next row
  RowAnz = RowAnz + UBound(SheetDatas(Ish)) + 3
Next Ish
Set XLS_WB = Nothing
End Function

Bitte dringend um Hilfe!!!

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




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

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 22. Jul. 2009 10:34    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 kn 10 Unities + Antwort hilfreich

Hallo

Ich rate mal fröhlich drauf los, kann es sein das Excel noch nicht mit starten fertig ist, wenn du in den Fehler läufst?

------------------
MfG
RK

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

kn
Mitglied
CAD-Koordinator

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

Beiträge: 2
Registriert: 21.07.2009

erstellt am: 22. Jul. 2009 10:51    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

Nein, stimmt nicht.
Denn auch wenn ich Excel separat starte (also schon gestartet ist) kommt der Fehler.
Gruß

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 22. Jul. 2009 11:42    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 kn 10 Unities + Antwort hilfreich

Hallo,

hast Du denn auch

Dim XLS_WB As Excel.WorkBook
Dim XLS_Sheet As Excel.Sheet

in Deinem Code ?


------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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)2023 CAD.de | Impressum | Datenschutz