Excel - Kopieren aus einer anderen Arbeitsmappe mit intakter bedingter Formatierung

Question

Ich habe das meiste selbst herausgefunden, aber der Teil, der mich aufhält, ist das Einfügen der bedingten Formatierung.

Ich möchte in der Lage sein, eine Arbeitsmappe geöffnet zu haben, führen Sie ein VBA-Skript aus, um eine andere Arbeitsmappe zu öffnen, kopieren Sie einen Bereich daraus, und fügen Sie das dann in der ursprünglichen Arbeitsmappe ein.

Die meisten Erfolg hatte ich habe, ist die Makroaufzeichnung und damit dies geschieht: Mit dem Original, Ziel Arbeitsmappe geöffnet ...

1. Öffnen Sie die Quelle Arbeitsmappe
2. Copy Bereich A1: X105
3. Schließen Quelle Arbeitsmappe
4. Einfügen in Arbeitsblatt dem Titel "Temp" in Ziel Arbeitsmappe

Das Problem besteht darin, dass die Quellarbeitsmappe bedingte Formatierung enthält. Wenn die Quellarbeitsmappe vor dem Einfügen in die Zielarbeitsmappe geschlossen wird, wird die bedingte Formatierung nicht eingefügt.

Entweder muss ich einen Weg finden, die Daten mit der bedingten Formatierung einzufügen, oder ich muss in der Lage sein, zurück in die Zielarbeitsmappe zu wechseln, bevor die Quellarbeitsmappe geschlossen wird. Dies ist ein Prozess, der mehrmals mit verschiedenen Zielarbeitsmappen ausgeführt werden muss. Daher kann der VBA-Code nicht auf einen Arbeitsmappendateinamen für das Ziel verweisen. Die Quellarbeitsmappe hat jedoch immer den gleichen Pfad.

Beim Durchsuchen der Website konnte ich nur Lösungen finden, die den Pfad für beide Arbeitsmappen angegeben. Diese

ist, was ich habe jetzt:

Sub CopyData() 
Application.DisplayAlerts = False 
Workbooks.Open filename:="source.xlsx", _ 
UpdateLinks:=3 
Range("A1:X105").Select 
Selection.Copy 
ActiveWindow.Close 
Sheets("Temp").Select 
ActiveSheet.Paste 
Application.DisplayAlerts = True 
End Sub 

Ich nehme an, was ich umsetzen müssen, um in das ist das Ziel Arbeitsmappe als eine Variable zu deklarieren. Kann jemand damit helfen?

Answer 1

Auf der Grundlage neuer Informationen:

Sub CopyData() 
Application.DisplayAlerts = False 
Workbooks.Open filename:="source.xlsx", _ 
UpdateLinks:=3 
Range("A1:X105").Select 
Selection.Copy 
ActiveWindow.Close 
Sheets("Temp").Select 
ActiveSheet.PasteSpecial xlPasteFormats 
Application.DisplayAlerts = True 
End Sub 

Zurück: Von: Copy conditional formatting from one cell to another using VBA?

Sub test() 
    Sheets("B").[B1].Copy: Sheets("A").[A1:A10].PasteSpecial xlPasteFormats 
End Sub 

ist ein Code, der die bedingte Formatierung einfügen wird.

Meistens, was Sie tun müssen, um die Reihenfolge ändern:

1. Open Source eine Eingabeaufforderung für den Benutzer unter Verwendung von Datei

2. Kopierbereich von Quelle

3. Paste Bereich im Original zu wählen
4. Schließen Quelle

Answer 2

Sie können die Arbeitsmappe einfach abdunkeln und dann kopieren und einfügen. Nachdem Sie das abgeschlossen haben, können Sie die Arbeitsmappe mithilfe der Variablen schließen.Code würde wie folgt aussehen:

Sub CopyData() 
    Application.DisplayAlerts = False 
    Dim wbSource As Workbook 
    Set wbSource = Workbooks.Open(Filename:="source.xlsx", UpdateLinks:=3) 
    wbSource.Sheets(1).Range("A1:X105").Copy 
    ThisWorkbook.ActiveSheet.Selection.Paste 
    wbSource.Close 
    Application.DisplayAlerts = True 
End Sub 

Ich sehe nicht, wie Sie bestimmen, welchen Bereich Sie auf der Ziel-Arbeitsmappe einfügen aber, dass für eine andere Frage verlassen. Die Antwort von Emily Alden Ich denke nicht, dass es funktionieren wird, weil Sie nicht von einer Quelle kopieren können, die geschlossen ist. Die Zwischenablage verhält sich in Excel anders als bei anderen Anwendungen.