Vraag : Excel VBA om andere te openen blinkt dossier uit en de waarde van de exemplaarcel aan actief blinkt blad uit

De code zou hieronder de dossierweg moeten openen die als koord/waarde in waaier genoemde „FilePath“ wordt opgeslagen en de cel A1 van de waardevorm in het geopende blad krijgt, het kopi�ërt om zich „CopiedValue“ in het blad met de code uit te strekken en het geopende boek zonder saving.

Unfortunately te sluiten, werkt mijn versie… geen hulp appreciated.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub GetHistData ()
    'open histdossier
    FilePath = Waaier („FilePath“). Waarde
    Filename van Workbooks.Open: =FilePath
    Bladen („Sheet1“). Selecteer
    'kopi�ër gegevens van histdossier
    Waaier („a1“). Exemplaar
    'activeer werkend dossier
    ThisWorkbook.Activate
    Bladen („Sheet1“). Activeer
    'kopi�ër waarden aan bestemmingscel
    Waaier („CopiedValue“). Selecteer
    Selection.PasteSpecial kleef: =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
        : =False, herschik: =False
    Werkboeken (HistSheetPath). Sluit
Beëindig Sub
Attachments:
van
ee.xls (17 KB)  (de Details van het Type van Dossier)  
dossier met code discussed

Antwoord : Excel VBA om andere te openen blinkt dossier uit en de waarde van de exemplaarcel aan actief blinkt blad uit

Sub GetHistData ()
    'open histdossier
    Schemerige mwb als Werkboek
    FilePath = Waaier („FilePath“). Waarde
    Reeks mwb = Workbooks.Open (Filename: =FilePath)
    mwb. Bladen („Sheet1“). Waaier („A1“). Exemplaar
    ThisWorkbook.Sheets („Sheet1“). Van de waaier (het „CopiedValue“) Deeg .PasteSpecial: =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
        : =False, herschik: =False
    Werkboeken (mwb. Naam). Dichte Vals
Sub van het eind
Andere oplossingen  
 
programming4us programming4us