Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel2000 / 2002 PasteSpecial-Konflikt?

Excel2000 / 2002 PasteSpecial-Konflikt?
09.04.2003 01:11:07
Kay Molkenthin
Hallo zusammen,

ich habe folgendes grundsätzliches Problem:

Eine Excel-Applikation zur Aggregation von Daten aus mehreren Excel-Arbeitsmappen läuft unter

- WinXP und Excel2000 und
- Win2000 und Excel97 problemlos.

Unter Win2000 mit Excel2002 stürzt die Applikation bei Kopiervorgängen zwischen 2 Arbeitsmappen immer, aber willkürlich mit folgendem Fehler ab (aus dem Gedächtnis):

"Das Objekt wurde vom Client getrennt" und eine Fehlernummer á la -41273737373

Das hilft mir und Euch wahrscheinlich gar nichts ;-)

Allerdings steht der VBA-Cursor danach immer auf einer PasteSpecial-Zeile. Ich poste mal einen Auszug aus dem grundsätzlichen Kopiervorgang:

strName ist der Name der zu ladenden Arbeitsmappe, strSheet, der Name des Sheets, aus welchem Daten in "Kst_Kons.xls" kopiert werden soll.

Die zu ladenden Arbeitsmappen werden in einer Schleife geöffnet (Pseudo-Code):

For x=1 to Excel-workbooks
Öffne.TheseWorkbooks NameofWB, SheettoCopy
Next

Geöffnet werden die Arbeitsmappen mit:

Set SBook = Workbooks.Open(Filename:=strName, UpdateLinks:=0)
SBook.RunAutoMacros xlAutoDeactivate
...
Kopieraktionen
...
SBook.Close savechanges:=False
Set SBook = Nothing

Kopierroutine:

Sub Copy_Table_Data_DETMON(strName, strSheet As String)

Application.ScreenUpdating = False

Windows(strName).Activate
Sheets(strSheet).Select
Range("D7:H8").Select
Selection.Copy
Windows("Kst_Kons.xls").Activate
Sheets(strSheet).Select
Range("D7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:
= _
False, Transpose:=False
Windows(strName).Activate
Range("L7:P8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Kst_Kons.xls").Activate
Range("L7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:
= _
False, Transpose:=False
...
...
...

Windows(strName).Activate
Range("AJ97:AL97").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Kst_Kons.xls").Activate
Range("AJ97").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:
= _
False, Transpose:=False
Range("A1").Select
Application.ScreenUpdating = False
End Sub

Ich weiß da im Moment echt nicht weiter, da die Applikation auf drei willkürlichen Rechnern problemlos läuft, allerdings nicht auf dem Zielrechner, auf dem ein Excel2002 läuft.

Achso, die Anwendung läuft lokal, also kein Netzwerkzugriff (wegen der Fehlermeldung).

Gruß Kay

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag
09.04.2003 01:18:09
Kay Molkenthin

Die Fehlermeldung lautetet so (hab was ähnliches in der Recherche gefunden):

Laufzeitfehler’-2147417848 (80010108)’:
Automatisierungsfehler. Das aufgerufene Objekt wurde von den Clients getrennt.

Hilft mir aber immer noch nicht ;-)

Re: Pastespecial unter XP/2K
09.04.2003 10:53:31
Nike

Hi,
ich kenne bisher nur einen Effekt der in XP neu ist
und den 2K nicht kennt, hat aber nix mit Specialpaste zu tun.

Workbooks(strName).worksheets(strSheet).Range("D7:H8").Copy
workbooks("Kst_Kons.xls").Sheets(strSheet).Range("D7").PasteSpecial Paste:=xlValues, Operation:=xlAdd

Einfach mal die überflüssigen Operationen beim pastespecial weglassen...

Bye

Nike

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige