Questione : Variabile di data da un altro libro di esercizi, insieme come variabile - VBA

Esperti,

I che prova ad andare a prendere alcuni dati della data da un altro manuale (fatto all'interno del codice di VBA soltanto) ed ad immagazzinare questi come variabili per utilizzare nell'automazione della creazione dell'intestazione (informazioni della data). Infine, voglio fissare una volta le variabili di data differenti (in una lima) ed allora avere le 25 altre lime che hanno bisogno degli aggiornamenti dell'intestazione a tutte be sono collegate di nuovo a quell', con il codice (che cambierò da secondario al sommergibile a tempo della stampa) eseguito su stampa in modo che le date corrette escano senza dovere cambiarlo a mano tutte. Allora il mese prossimo, una nuova lima di data è generata, variabili fissate, ogni lima a tempo della stampa aggiornerà l'intestazione, etc.

In la mia prima domanda l'oggetto, sembriamo essere attaccati nel superare i dati, senza dovere portarlo come stringa disposta in una cellula sul manuale ed allora fissare una variabile come il valore di quella cell.

Can questo be è fatto a meno dell'uso “di una cellula/manuale„ come “rilievo di graffiatura„? il

Also, mio se allora altro, sulle linee 19 - 23, che è suppone per controllare se la lima esiste (IE, io lo ha cambiato dal termine in MM_YYYY alla data corretta, come trovato in FolderDate variabile) sembra andare sempre all'altro (quando colpiscono F8 in VBE) nessuna materia se la lima FA o non esiste sul mio sistema. Che cosa sono fare errato qui? il

Please vede l'altra domanda qui: il href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html " del
ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html

The del e.com/Soft di http://www.experts-exchang la maggior parte del codice aggiornato in uso è elencato sotto, con il suggerimento per portare i dati dentro come stringa ed allora using VBA per regolarsi che stringa come valore nel variable.

Thank voi per il vostri tempo ed aiuto!
Kevin
 class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty UpdateHeaderDataVariable " del class= " del id= " codeSnippet853787 del 
 allora
        La lima di MsgBox “esiste„ 'per le prove soltanto, sommergibile reale non avrà finestra di messaggio
            Altrimenti
        MsgBox “lima - Monthly_Report_Date_-_„ & FolderDate & “.xls„ & vbNewLine & “nell'indice - C:\Temp Downloads\VBA\„ & FolderDate & il vbNewLine & “NON ESISTE„
    Concluder se

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

'InDate1 = (Cd.) Lima (Monthly_Report_Date_-_?? -??? .xls, Sheet1, cellula A1)

'Date1 = CDate (InDate1)

'Regolar la WS = strati (“Sheet1„)
'WS.PageSetup.CenterHeader = ""
'WS.PageSetup.CenterHeader = “rapporto interno (variabile qui)„
     'Formattare l'intestazione qui per essere 16 punti, GRASSETTO, Garmond
    
Concludere il sommergibile
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
>Range notpretty " del class= " del id= " codeSnippet853788 del
class= del

Risposta : Variabile di data da un altro libro di esercizi, insieme come variabile - VBA

allora inoltre aggiungerei una procedura principale che denomina le varie parti

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

dtIN1 fioco come data, dtIn2 come data, dtIn3 come data
sDateFilename fioco
Const datefile = “Monthly_Report_Date_-_„ 'MM-YYYY.XLS
wbReport fioco come libro di esercizi   'l'indicatore al libro di esercizi che usando come obiettivo di rapporto


Conduttura secondaria ()

    Regolare il wbReport = Application.ActiveWorkbook
    RetrieveDateValues
    UpdateHeaderDataVariable
    
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us