Tabelle Kopieren Objekt nicht festgelegt

'Hier wird die Tabelle zum Kopieren in CorelDraw erstellt Sub Tabelle() Dim xlApp As Object 'Excel festlegen Set xlApp = CreateObject("Excel.Application") 'Vorlage öffnen xlApp.Application.Workbooks.Open FileName:="C:\Users\M. Kempf\Desktop\vorlage.xlsx" 'Test Beschriftung xlApp.Application.ActiveWorkbook.ActiveSheet.Cells(1, 1) = "Hallo" 'Zellen auswählen xlApp.Application.ActiveWorkbook.ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet. _ Cells(2, 2)).Select 'Kopieren xlApp.Application.Selection.Copy 'Einfügen ActivePage.ActiveLayer.Paste 'Ohne Speichern schließen xlApp.Application.DisplayAlerts = False xlApp.Application.ActiveWorkbook.Close End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Vorlage öffnen with xlApp.Application .Workbooks.Open FileName:="C:\Users\M. Kempf\Desktop\vorlage.xlsx" 'Test Beschriftung .ActiveWorkbook.ActiveSheet.Cells(1, 1) = "Hallo" 'Zellen auswählen .ActiveWorkbook.ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(2, 2)).copy _ destination:=ActivePage.ActiveLayer.Paste end with

Hallo,
@ Ralf:
Der von dir gegebene Vorschlag endet leider im Laufzeitfehler 1004: "Die Copy-Methode des Range-Objektes konnte nicht ausgeführt werden."
@Tino:
Diese Vermutung hatte ich auch, jedoch stellte sich mir dann die Frage, warum der erste Durchgang anstandslos funktioniert.
Bezüglich des Levels lässt "Gut" immernoch Luft nach oben zu Profi ;-)
Wenn ich mir angucke wo ich vor 3 Monaten stand, als ich mit VBA begann, komme ich mittlerweile recht "Gut" voran .
Eine Sache noch die mir im Vorfeld auffiel, anfänglich habe ich Excel am Ende per application.quit geschlossen.
Dies resultierte aber darin, dass Excel als Prozess weiter ausgeführt wurde, bis ich die Makroausführung im CD-VBA-Editor per Stop beendete.
Auch war nachverlassen des Subs die Bearbeitung scheinbar immernoch aktiv, ich konnte sie nämlich über Unterbrechen anhalten.
vielleicht ist dies ja ein Anhaltspunkt.
Kann es etwas mit der Zwischenablage zu tun haben?
Gruß Marcus.

Sub Tabelle() Dim xlApp As Excel.Application On Error GoTo ErrorHandler: 'Excel festlegen Set xlApp = New Excel.Application 'Vorlage öffnen schreibgeschützt With xlApp.Workbooks.Open("C:\Users\M. Kempf\Desktop\vorlage.xlsx", ReadOnly:=True) 'antelle von ActiveSheet würde ich die richtige Tabelle verwenden .Sheets("Tabelle1") .ActiveSheet.Cells(1, 1) = "Hallo" .ActiveSheet.Range(.ActiveSheet.Cells(1, 1), .ActiveSheet.Cells(2, 2)).Copy ' .ActiveSheet.Range("A1:B2").Copy 'oder ' .ActiveSheet.Cells(1, 1).Resize(2, 2).Copy 'oder ActivePage.ActiveLayer.Paste '? Variable nicht deklariert .Close False End With ErrorHandler: If Err.Number 0 Then MsgBox Err.Number & vbCr & vbCr & Err.Description, vbCritical End If On Error Resume Next xlApp.Quit End Sub

Hallo Marcus,
mit
Set xlApp = New Excel.Application
erzeugst du eine neue Instanz von Excel, wie man schön im Task-Manager sehen kann.
Im Moment der Erzeugung ist diese embedded.
Diese musst du auch wieder mit dem gleichen Objekt beenden:
xlapp.quit
Mittels:
Application.Quit
sprichst du die App an, in der das Makro läuft.
Wenn du die beendest, beendet sich auch die Makroabarbeitung, was im allg. unerwünscht ist.
Das Makro sägt sich selbst den Ast ab ;-).
Ich verwende grundsätzlich beim Arbeiten mit mehreren Dateien/Apps/Tabellen Objekte, auf die man immer referenzieren kann. Dort ist aber dann auch wichtig diese auf Nothing zu setzen.
kleines Bsp:


dim quellbook as workbook
dim zielbook as workbook
dim quellsht as worksheet
dim zielsht as worksheet
set quellbook=workbooks("book1.xls")
set quellsht = quellbook.worksheets(1)
set zielbook=workbooks("book2.xls")
set zeielsht=zielbook.worksheets("blatt5")
code

Jetzt funktioniert auch intellisense und du brauchst nur auf die sheets und nicht immer auf die books&sheets verweisen.
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

Tabelle Kopieren Objekt nicht festgelegt

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread