Frage : Datumvariable von einem anderen Arbeitsbuch, Satz als Variable - VBA

Experten,

I morgens versuchend, etwas Datumdaten von einem anderen Arbeitsblatt zu holen (getan innerhalb nur des VBA Codes) und diese als Variablen zu speichern, um in der Automatisierung der Kreation der Überschrift (Datuminformationen) zu verwenden. Dann der nächste Monat, wird eine neue Datumakte hergestellt, die eingestellten Variablen, aktualisiert jede Akte zur Druckzeit die Überschrift, das etc.

In meine erste Frage das Thema, scheinen wir, gehaftet zu werden, wenn wir vorbei die Daten erhalten, ohne zu müssen, es als Schnur zu holen, die in eine Zelle auf das Arbeitsblatt gesetzt wird und eine Variable als der Wert von der dann einzustellen wird cell.

Can dieses ohne den Gebrauch einer „Zelle/eines Arbeitsblattes“ als „Notizblock“ getan? das

Also, mein, wenn dann sonst, auf Linien 19 bis 23, das ist, nehmen an, um zu überprüfen, ob die Akte (IE, ich, haben geändert es vom Ende in MM_YYYY zum korrekten Datum, wie in variablem FolderDate gefunden), scheint, zum sonst immer zu gehen (wenn F8 in VBE geschlagen wird), keine Angelegenheit existiert, wenn die Akte TUT oder NICHT von meinem System existiert. Was bin ich Handeln hier falsch?

Please sehen die andere Frage hier:
http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html

The der meiste aktuelle Code, der gebräuchlich ist, ist unten, zusammen mit dem Vorschlag für die Daten als Schnur und using VBA innen holen, um dass Schnur als Wert im variable.

Thank dann einzustellen Sie für Ihre Zeit und Hilfe aufgeführt!
Kevin
 
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:
6:
37:

Sub UpdateHeaderDataVariable ()

Application.ScreenUpdating = falsch
Schwaches WS als Arbeitsblatt
Schwaches InDate1 als Schnur
Schwaches InDate2 als Schnur
Schwaches InDate3 als Schnur
Schwaches Date1 als Datum
Schwaches Date2 als Datum
Schwaches Date3 als Datum
Schwaches FolderDate als Schnur

FolderDate = ActiveWorkbook.Path
FolderDate = mittler (FolderDate, InStrRev (ActiveWorkbook.Path, „\ ") - 7, 7)
MsgBox FolderDate

'Überprüfen, ob Monthly_Report_Date_-_MM_YYYY.xls mit MM-YYYY existiert, das in FolderDate Variable umgewandelt wird
'Wenn es existiert, dann mit Unterseeboot weitergehen, wenn es dann existiert nicht, zeigt Mitteilungkasten und herausnimmt
    Wenn Dir („C:\Temp Downloads\VBA\“ u. FolderDate u.“ \ [Monthly_Report_Date_-_ „u. FolderDate u.“ .xls ") <> "" dann
        MsgBox „Akte existiert“ 'für nur prüfen, reales Unterseeboot hat nicht Mitteilungkasten
            Sonst
        MsgBox „Akte - Monthly_Report_Date_-_“ u. FolderDate u. „.xls“ u. vbNewLine u. „im Verzeichnis - C:\Temp Downloads\VBA\“ u. FolderDate u. vbNewLine u. „EXISTIERT NICHT“
    Beenden wenn

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

'InDate1 = (Cd.) Akte (Monthly_Report_Date_-_?? -??? .xls, Sheet1, Zelle A1)

'Date1 = CDate (InDate1)

'Einstellen WS = Blätter („Sheet1“)
'WS.PageSetup.CenterHeader = ""
'WS.PageSetup.CenterHeader = „interner Report (Variable hier)“
     'Die Überschrift hier formatieren, um 16 Punkt, fett, Garmond zu sein
    
Unterseeboot beenden

1:
2:
3:

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

InDate1 = Strecke („A1“). Wert

Antwort : Datumvariable von einem anderen Arbeitsbuch, Satz als Variable - VBA

dann würde ich auch ein Hauptprogramm addieren, das die verschiedenen Teile benennt

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

Schwaches dtIN1 als Datum, dtIn2 als Datum, dtIn3 als Datum
Schwaches sDateFilename
Const datefile = „Monthly_Report_Date_-_“ 'MM-YYYY.XLS
Schwaches wbReport als Arbeitsbuch   'der Zeiger zum Arbeitsbuch, das als Reportziel verwendet wird


Vorhauptleitung ()

    wbReport = Application.ActiveWorkbook einstellen
    RetrieveDateValues
    UpdateHeaderDataVariable
    
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us