Fråga : Datera variabeln från en annan arbetsbok, uppsättning som variabeln - VBA

Experter den pröva förmiddagen för

I att hämta något daterar data från en annan arbetssedel (som göras inom VBA, kodifiera endast) och lagrar dessa som variabler för att använda i automation av skapelsen för titelraden (datera information). Ultimately jag önskar till uppsättningen som de olika daterar variabler en gång (i en spara) och har därefter 25 annan sparar att behovsalla titelraden uppdaterar till anknytas tillbaka till den, med kodifiera (som jag ska ändring från under till suben på trycktid) som, utförs på printing, så att det korrekt daterar kommet ut utan att måste att ändra dem alla räcker by. Därefter den nästa månaden, ett nytt daterar sparar skapas, variabeluppsättningen, varje sparar på ska uppdateringen för trycket den tid titelraden, etc.

In mitt första ifrågasätter betvinga, vi verkar för att klibbas, i att få datan över, utan att måste att komma med den som, stränger förlagt in i en cell på arbetssedeln, och därefter uppsättningen en variabel som värdera av det cell.

Can detta göras utan bruket av ”en cell/en arbetssedel”, som ”en skrapa vadderar”?

Also som är min, om därefter annan, fodrar på 19 till 23, som är antar för att kontrollera, om spara finns (ie, jag har ändrat den från att avsluta i MM_YYYY till det korrekt daterar, som funnit i variabeln FolderDate), verkar alltid för att gå till det annat (när slå F8 i VBE) ingen materia, om spara GÖR eller INTE finns på mitt system. Vad I-förmiddag som orätt här gör?

Please ser annan ifrågasätta här: href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html " för
aktuellast ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html

The för http://www.experts-exchang e.com/Soft kodifierar i bruk är listat nedanfört, tillsammans med förslag för att komma med datan in som en stränga och därefter using VBA till uppsättningen som stränger som en värdera i variable.
Thank dig för din tid och hjälp!
Kevin
> för

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:

" codeBody " " >Sub UpdateHeaderDataVariable för class= " för "" därefter MsgBox ”sparar finns” 'för att testa endast, den verkliga suben som ska för att inte ha meddelandet att boxas Annars MsgBox ”sparar - Monthly_Report_Date_-_” & FolderDate & ”.xls” & vbNewLinen & ”i arkiv - C:\Temp Downloads\VBA\”, & FolderDate & vbNewLinen & ”FINNS INTE”, Avsluta om InDate1 = ”= ' C:\Temp Downloads\VBA\” & FolderDate & ”\ [Monthly_Report_Date_-_” & FolderDate & ”.xls] Sheet1'!$A$1”, Date1 = InDate1 'InDate1 = (cd.) Spara (Monthly_Report_Date_-_?? -??? .xls, Sheet1, cell A1) 'Date1 = CDate (InDate1) 'Uppsättningen WS = täcker (”Sheet1”) 'WS.PageSetup.CenterHeader = "", 'WS.PageSetup.CenterHeader = ”inre rapport (variabeln här)”, 'Formatera titelraden här för att vara 16 pekar, sätta en klocka på, Garmond Avsluta suben > för

1:
2:
3:

" codeBody " " >Range för class= " för " klar "

Svar : Datera variabeln från en annan arbetsbok, uppsättning som variabeln - VBA

därefter jag skulle tillfogar också ett huvudsakligt rutinmässigt det appeller de olika delarna

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

Dunkel dtIN1 som daterar, dtIn2 som daterar, dtIn3 som daterar Dunkel sDateFilename Datefile Const = ”Monthly_Report_Date_-_” 'MM-YYYY.XLS Dunkel wbReport som arbetsboken, 'som pekaren till arbetsboken som används som rapport, uppsätta som mål Underhuvudsakligt () Fastställd wbReport = Application.ActiveWorkbook RetrieveDateValues UpdateHeaderDataVariable Avsluta suben