Vraag : De variabele van de datum van een ander werkboek, reeks als variabele - VBA

Deskundigen,

I am sommige datumgegevens van een ander die aantekenvel (binnen code VBA slechts wordt gedaan) proberen te halen en deze op te slaan als variabelen in automatisering van kopbal (datuminformatie) verwezenlijking te gebruiken. Uiteindelijk, wil ik de verschillende datumvariabelen eens plaatsen (in één dossier) en dan de 25 andere dossiers hebben die kopbalupdates aan allen worden verbonden terug naar dat die één vergen, met de code (die ik van sub aan sub in druktijd zal veranderen) op druk wordt uitgevoerd zodat de correcte data uit zonder het moeten hen allen door hand veranderen komen. Dan volgende maand, wordt een nieuw datumdossier gecre�ërd, geplaatste variabelen, zal elk dossier in druktijd de kopbal, etc.

In mijn eerste vraag het onderwerp bijwerken, schijnen plaats wij die in het worden van de gegevens over worden geplakt, zonder het moeten het als koord in een cel op het aantekenvel wordt geplaatst en dan een variabele als waarde van dat cell.

Can dit zonder het gebruik van een „cel/een aantekenvel“ als „blocnote“ wordt gedaan? mijn

Also, als toen anders, op lijnen 19 tot 23, wat is veronderstel te controleren als het dossier bestaat (d.w.z., heb ik het van einde in MM_YYYY in de correcte datum veranderd, zoals die in veranderlijke FolderDate wordt gevonden) schijnt om altijd naar Anders (wanneer het raken van F8 in VBE) te gaan geen kwestie als het dossier DOET of NIET op mijn systeem bestaat. Wat ik hier verkeerd ben het doen? />Please

http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html

The in gebruik is hieronder vermeld, samen met de suggestie om de gegevens binnen te brengen als koord en dan VBA te gebruiken om dat koord als waarde in variable.

Thank u te plaatsen voor uw tijd en hulp!
Kevin
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Sub UpdateHeaderDataVariable ()

Application.ScreenUpdating = Vals
Schemerige WS als Aantekenvel
Schemerige InDate1 als Koord
Schemerige InDate2 als Koord
Schemerige InDate3 als Koord
Schemerige Date1 als Datum
Schemerige Date2 als Datum
Schemerige Date3 als Datum
Schemerige FolderDate als Koord

FolderDate = ActiveWorkbook.Path
FolderDate = Medio (FolderDate, InStrRev (ActiveWorkbook.Path, „\“) - 7, 7)
MsgBox FolderDate

'Controle als er Monthly_Report_Date_-_MM_YYYY.xls met MM.-YYYY omgezet in Variabele FolderDate bestaat
'Als het bestaat, dan ga met Sub, als het niet bestaat, berichtvakje en dan geen uitgang toont
    Als Dir („C:\Temp Downloads\VBA\“ & FolderDate &“ \ [Monthly_Report_Date_-_ „& FolderDate &“ .xls ") <> "" toen
        Dossier van MsgBox „er bestaat“ 'voor slechts het Testen, Echte zal sub bericht geen vakje hebben
            Anders
        MsgBox „Dossier - Monthly_Report_Date_-_“ & FolderDate & „.xls“ & vbNewLine & „in Folder - C:\Temp Downloads\VBA\“ & FolderDate & vbNewLine & „BESTAAT niet“
    Beëindig als

InDate1 = „= ' C:\Temp Downloads\VBA\“ & FolderDate & „\ [Monthly_Report_Date_-_“ & FolderDate & „.xls] Sheet1'!$A$1“
Date1 = InDate1

'InDate1 = (CD.) Dossier (Monthly_Report_Date_-_?? -??? .xls, Sheet1, Cel A1)

'Date1 = CDate (InDate1)

'Plaats WS = Bladen („Sheet1“)
'WS.PageSetup.CenterHeader = ""
'WS.PageSetup.CenterHeader = „Intern Rapport (Variabele hier)“
     'Formaat de Kopbal hier om 16 punt, Vette letters, Garmond te zijn
    
Sub van het eind
" codeBody " 
1:
2:
3:

Range („A1“). Formule = „= ' H:\VBA\“ & FolderDate & „\ [Monthly_Report_Date_-_“ & FolderDate & „.xls] Sheet1'!$A$1“

InDate1 = Waaier („A1“). Waarde

Antwoord : De variabele van de datum van een ander werkboek, reeks als variabele - VBA

dan zou ik ook een Hoofdroutine toevoegen die de diverse delen roept

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Schemerige dtIN1 als Datum, dtIn2 als Datum, dtIn3 als Datum
Schemerige sDateFilename
Datefile Const = „Monthly_Report_Date_-_“ 'MM.-YYYY.XLS
Schemerige wbReport als Werkboek   de 'wijzer aan het werkboek dat als rapportdoel wordt gebruikt


Sub Leiding ()

    Reeks wbReport = Application.ActiveWorkbook
    RetrieveDateValues
    UpdateHeaderDataVariable
    
Sub van het eind
Andere oplossingen  
 
programming4us programming4us