Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ExcelTabelle Kopieren
Autor: Norbert
Datum: 26.04.02 13:34
Hier ein kleines Beispiel: Dim ExcelApp As Excel.Application Dim Wb As Workbook, WbNeu As Workbook Dim Ws As Worksheet, WsNeu As WorksheetSetSpIndex Set ExcelApp = New Excel.Application Set Wb = ExcelApp.Workbooks.Open("Irgendwas.xls") Set Ws = Wb.Worksheets.Item(1) Set WbNeu = ExcelApp.Workbooks.Add 'neue Excelmappe If WbNeu.Worksheets.Count > 0 Then Set WsNeu = WbNeu.Worksheets.Item(1) Set Rng = Ws.Range("A1:Z400") 'Spalte a-z, Zeile 1-400, Rng.Copy ' Bereich ´kopieren 'kannst auch mal ws.copy und wsneu.paste probieren WsNeu.Paste WbNeu.Save "Irgendwohin.xls" WbNeu.Close Wb.Close ExcelApp.Quit

ExcelTabelle Kopieren	47	Diver	26.04.02 12:00
Re: ExcelTabelle Kopieren	31	Norbert	26.04.02 13:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen