ich habe ein Problem und komme nicht weiter ;(
Ich erstelle ein Excel-Object so:
----------------------------
'Objekte definieren
Dim xlAppl As Object
Dim xlWB As Object
Dim xlWS As Object
'Objekte füllen
Set xlAppl = CreateObject("Excel.Application")
Set xlWB = xlAppl.Workbooks.Add
Set xlWS = xlWB.Worksheets(1)
xlWS.Name = myFrom & " - " & myTo 'Namen setzen
xlWS.Columns.AutoFit 'Spaltenbreite anpassen
xlWB.SaveAs (myFileName) 'Speichern
xlWB.Close SaveChanges:=True 'Schliessen
Set xlWS = Nothing
Set xlWB = Nothing
xlAppl.Application.Quit
Set xlAppl = Nothing
----------------------------
Nun möchte ich dabei Sheet2 aus der ausrufenden Excel-Datei in Sheet1 des erstellten Objektes kopieren.
Was ich probiert habe:
- Wenn ich .Copy benutze, erstellt er ja ein neues Dokument, es soll ja aber ins erstellte Objekt kopiert werden
- mit Application.ActiveWorkBooks.Cells.Select kann ich zwar den gewünschten Sheet selektieren, aber mit xlWS.Cells.Paste geht es irgendwie nicht ;-(
Vielen Dank schon im voraus !
Jenna