Frage : Excel VBA, zum anderes zu öffnen übertreffen Akte und kopieren Zellenwert zum Active übertreffen Blatt

Der Code unten sollte den Aktenweg öffnen, der, während Schnur/Wert in der Strecke „FilePath“ nannten und die Wertformzelle A1 im geöffneten Blatt erhalten, sie kopieren, um sich zu erstrecken „CopiedValue“ im Blatt mit dem Code und das geöffnete Buch ohne saving.

Unfortunately schließen, meine Version bearbeitet… keine Hilfe appreciated. gespeichert wird 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub GetHistData ()
    'geöffnete hist Akte
    FilePath = Strecke („FilePath“). Wert
    Workbooks.Open Dateiname: =FilePath
    Blätter („Sheet1“). Auserwählt
    'Daten von der hist Akte kopieren
    Strecke („a1“). Kopie
    'Arbeitsdatei aktivieren
    ThisWorkbook.Activate
    Blätter („Sheet1“). Aktivieren
    'Werte zur Bestimmungsortzelle kopieren
    Strecke („CopiedValue“). Auserwählt
    Selection.PasteSpecial Paste: =xlPasteValues, Betrieb: =xlNone, SkipBlanks _
        : =False, stellen um: =False
    Arbeitsbücher (HistSheetPath). Abschluss
Enden-Unterseeboot
Attachments:
ee.xls (17 KBS)  (Akten-Art Details)  
Akte mit Code discussed

Antwort : Excel VBA, zum anderes zu öffnen übertreffen Akte und kopieren Zellenwert zum Active übertreffen Blatt

VorGetHistData ()
    'geöffnete hist Akte
    Schwaches mwb als Arbeitsbuch
    FilePath = Strecke („FilePath“). Wert
    Mwb = Workbooks.Open einstellen (Dateinamen: =FilePath)
    mwb. Blätter („Sheet1“). Strecke („A1“). Kopie
    ThisWorkbook.Sheets („Sheet1“). Paste der Strecken-(„CopiedValue“) .PasteSpecial: =xlPasteValues, Betrieb: =xlNone, SkipBlanks _
        : =False, stellen um: =False
    Arbeitsbücher (mwb. Name). Nahes falsches
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us