Daten aus geschlossener Datei kopieren
13.12.2022 12:43:29
duAffentier
diesen Code habe ich gefunden.
Beim kopieren mit .copy werden die Zellen leider verlinkt.
Ich würde hier nur ein Kopieren der Werte wünschen.
Wie kann man dies hier anpassen, das nur die Werte der Quellezellen kopiert werden?
Sub Geschlossene_Arbeitsmappe()
Dim sPfad As String
Dim wbQuelle As Workbook
'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Dateipfad der Quelldatei
sPfad = "C:UserskaiweDesktopFebruary.xlsx"
'Prüfen, ob Datei existiert
If Dir(sPfad) "" Then
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren und einfügen
wbQuelle.Worksheets(1).Range("A2:E7").Copy ThisWorkbook.Worksheets(1).Range("A8")
'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False
End If
'ScreenUpdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Sub
https://vbatrainer.de/geschlossene-arbeitsmappe/