Copy, Paste von 2 Workbooks

Forumthread: Copy, Paste von 2 Workbooks

15.01.2015 14:06:44

Hey,
habe folgende Aufgabe: Daten von einem Workbook ins andere Kopieren, wobei die Quelldatei nicht _ geöffnet sein muss. Mein Versuch:


Sub CopyPaste()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ext_wb = Workbooks.Open(ThisWorkbook.Path & "C:\Users\Tritec12\Desktop\zum_kopieren.xls")
ext_wb.Sheets("Hoja1").Range("A1:B10").Copy
ThisWorkbook.Sheets("Hoja1").Range("A3").PasteSpecial
ext_wb.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Wo liegt de Synthax Fehler.
danke für die Hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Copy, Paste von 2 Workbooks

15.01.2015 14:09:24

2
AW: Copy, Paste von 2 Workbooks

15.01.2015 14:28:52

2
AW: Copy, Paste von 2 Workbooks

15.01.2015 14:30:19

2

AW: Copy, Paste von 2 Workbooks

15.01.2015 14:09:24

aus einer geschlossenen Datei kannst du nichts kopieren. Auslesen schon.

AW: Copy, Paste von 2 Workbooks

15.01.2015 14:28:52

wie müsster der code den aussehen, damit ich die Daten aus der Datei "zum_kopieren" rausziehen könnte und in mein Sheet einfügen kann.
danke für die hilfe
lg Paul

AW: Copy, Paste von 2 Workbooks

15.01.2015 14:30:19

Hallo Paul,

Option Explicit
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'© t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle       As String
Dim Zeilen          As Long
Dim Spalten         As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from  _
closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad            As String
Dim Dateiname       As String
Dim Blatt           As String
Dim Bereich         As String
Dim Ziel            As Range
Pfad = "L:\Eigene Dateien\Hajo\Internet\Test\2009\"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1"  ' von welcher Tabelle soll er holen?
Bereich = "A1:B9"   ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1")  ' in welchen Bereich soll er kopieren? Genauer gesagt:  _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Forumthread: Copy, Paste von 2 Workbooks

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread