Daten kopieren

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Wer-Weiss-Was-Community,

ich habe da ein Problem bei dem ich überhaupt nicht vorrankomme…
Wie kann man aus einer Excel-Datei, Dateninhalte in eine andere Excel-Datei rüberkopieren?

Sagen wir ich will aus Appel_tmp.xls alle Dateninhalte die ich über den Appel brauch und die in den Zeilen A1 und A2 bis Ai (i = solange bis kein Wert mehr kommt) in Appel.xls in die Zeile A1 und die anderen Einträge A11 bis Ai kopieren??? Irgendwie bekomme ich nur noch Kopf weh und komme kein Schritt voran… obwohl es eigentlich das Finale wäre :wink:

Hoffe ihr könnt mir da weiter helfen…

Liebe Grüße
Pheyx

#2

Hallo,

das ist eigentlich kein Hexenwerk…

Man nehme in EXCEL-Applikation object.
Man oeffen das Sheet
Man liest die Werte in Variant Array ein.
Man schliesse das Sheet
Man oeffen das 2.Sheet
Man kopiere die Werte aus dem Array in die entspr. Zeile in Sheet
Man speichere das Sheet
Man schliesse das Sheet

Die genau Syntax fuer solche eine Funktion findet man in der MSDN.

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hm… ich verwendet VBS und kein VBA… ist das nicht auch in VBS möglich??? Weil wenn ich in VBA nach einer Lösung suche, dann weiß ich immernoch nicht wie ich die VBA Funktion in ein VBS einbinde…

Liebe Grüße
Pheyx

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo,

also ich bin nicht so sehr fit in Script entwickeln, mehr VB(A), aber meines Wissend sollten die OLE-Funktionen auch in einem Script funktionieren.
So nach der Art

Dim xlsApp as Object
set xlsApp = CreateObject(„excel.application“)
xlsApp.Visible = False
Set NewMap = xlsApp.Workbooks.Open(„irgendwas.xls“)

allerdins muesste in dem Script die Office/Excel OLE-Lib eingebunden sein.

Falls das nicht funktioniert, was spricht dagegen mit dem Sript ein externes VB-ActiveX anzusprechen, das die Arbeit erledigt.

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]