Von anderer Exceldatei in Sheet kopieren
07.08.2015 13:20:20
HokoPLM
Ich habe eine Excel "EXCEL_1" geöffnet und möchte auf ein anderes Tabellenblatt den Inhalt einer noch geschlossenen Excel "EXCEL_2" reinkopieren.
Inklusive Format und Formeln etc.
Diesen Code fand ich jetzt schon ansatzweise hilfreich.
Sub AuslesenGeschlDatei()
Dim rng As Range, _
sFile As String, sPath As String, _
oldStatusBar As Boolean
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "quelle.xls"
sPath = ThisWorkbook.Path & "\"
Application.StatusBar = "Daten werden importiert. Bitte warten..."
With Sheets(1)
.Range("A1:E100").Formula = "='" & sPath & "[" & sFile & _
"]Tabelle1'!A1:E100"
Set rng = .Range("A1:E100")
End With
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
Hier habe ich nur ein paar Probleme:
Ich möchte auswählen auf welches Tabellenblatt in "EXCEL_1" kopiert werden soll,
es soll aus der ganze Inhalt von "EXCEL_2" kopiert werden.
Sind in "EXCEL_2" mehrere Tabellenblätter beschriftet, ein Auswahlfenster...
Wer hat so eine VOrlage und wieviel kostet mich diese jene welche ;)))
Anzeige