2 Arbeitsmappen kopieren

Question

Gibt es die Möglichkeit, aus einer Arbeitsmappe in eine andere daten zu kopieren ohn sie über ein makro oder manuell zu öffnen ?
auch nicht mit workbooks open sondern die Arbeitsmappe aus der kopiert wird, soll geschlossen bleiben ??


[*]
[sup]Admininfo: Führ bitte einen Thread nicht fort indem du einen Zweiten eröffnest, und vermeide Mehrfachanfragen. Die Datenbank wird es dir danken. Siehe FAQ 2 für deine nächste Anfrage.[/sup]

Answer 1

Man kann die Datei außerhalb des Programmes kopieren.
Nur Teile daraus in eine neue Datei zu bekommen, ohne die Datei zu
öffnen, halte ich für unmöglich.

Gruß Flupo

Answer 2

hi ^^

sollte nur fuer wenige zellen genutz werden
bzw Laufzeit beachten

gruss nighty

die cell Positionen muessen bekannt sein
eine Erfassung der letzten zeile/spalte ist nicht möglich

Sub DateienLesen()
Dim ZellPos As Range
For Each ZellPos In Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
Range("B" & ZellPos.Row) = ExecuteExcel4Macro("'C:\Temp\" & "[" & ZellPos & ".xls]Tabelle1" & "'!" & Range("A1").Address(, , xlR1C1))
Next ZellPos
End Sub

Answer 3

hi all ^^

korrigiert

gruss nighty

Sub Excel4Lesen()
For Each ZellPos In Array("A1", "A2")
Zindex = Zindex + 1
Cells(Zindex, 1) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "Mappe1" & "]Tabelle1" & "'!" & Range("" & ZellPos).Address(, , xlR1C1))
Next ZellPos
End Sub

Answer 4

hi all ^^

zellen einer spalte

könnte dann so aussehen

gruss nighty

zweite zeile die 2 gibt die zeilenanzahl der spalte a an

Sub Excel4Lesen()
For ZeilenIndex = 1 To 2
Zindex = Zindex + 1
Cells(Zindex, 1) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "Mappe1" & "]Tabelle1" & "'!" & Range("A" & ZeilenIndex).Address(, , xlR1C1))
Next ZeilenIndex
End Sub

Answer 5

hi all ^^

ein Bereich dann so

gruss nighty

Sub Excel4Lesen()
For Each ZellPos In Range("A1:B2")
Zindex = Zindex + 1
Cells(Zindex, 1) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "Mappe1" & "]Tabelle1" & "'!" & Range(ZellPos.Address).Address(, , xlR1C1))
Next ZellPos
End Sub

Answer 6

hatten wir heute schon:

www.supportnet.de/t/2477309

Answer 7

hi all ^^

nur zu antworten der antwort wegen,hatten wir auch schon :-)

gruss nighty