Pytanie : Daktylowy zmienna od inny workbook, set jako zmienna - VBA

Ekspert,

I am tworzenie daktylowy dane od inny worksheet (robić wśród VBA kod tylko) i kod jako zmienna w automatyzacja chodnikowiec (daktylowy informacja) tworzenie. Ostatecznie, I chcieć the różny daktylowy zmienna daktylowy (w jeden kartoteka) i wtedy the 25 inny kartoteka który potrzebować chodnikowiec aktualizacja kartoteka łączyć z powrotem ten jeden, z the kod (che I zmieniać od okręt podwodny okręt podwodny przy druk czas) wykonywać na druk tak, że the poprawny data przychodzić przychodzić bez kod ręka. Wtedy the przyszły miesiąc, nowy daktylowy kartoteka tworzyć, zmienna ustawiać, ustawiać kartoteka przy druk czas aktualizować the chodnikowiec, etc.

In mój pierwszy pytanie the temat, my wydawać się wtykać w the dane, bez ono równie smyczkowy umieszczać w komórka na the worksheet i wtedy zmienna the wartość i cell.

Can i zrobić bez the use "komórka/worksheet" jako "narys ochraniacz"?

Also, mój Jeżeli Wtedy Inny, na linia 19 23, che być przypuszczać jeżeli the kartoteka istnieć (ie, I zmieniać ono od w MM_YYYY the poprawny data, jak znalezione w zmienny FolderDate) wydawać się zawsze the Inny (gdy uderzać F8 w VBE) żadny sprawa jeżeli the kartoteka ROBIĆ lub Istnieć na mój system. Tutaj I robić źle tutaj?

Please widzieć the inny pytanie tutaj:
http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26353195.html

The nowomodny kod w użyciu spisywać w użyciu, wraz z the propozycja dla the dane wewnątrz jako sznurek i wtedy using VBA ten sznurek jako wartość w the variable.

Thank ty dla twój czas i!
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:
36:
37:

Sub UpdateHeaderDataVariable ()

Application.ScreenUpdating = Fałszywy
Ciemnawy WS Jako Worksheet
Ciemnawy InDate1 Sznurek
Ciemnawy InDate2 Sznurek
Ciemnawy InDate3 Sznurek
Ciemnawy Date1 Data
Ciemnawy Date2 Data
Ciemnawy Date3 Data
Ciemnawy FolderDate Sznurek

FolderDate = ActiveWorkbook.Path
FolderDate = W połowie (FolderDate, InStrRev (ActiveWorkbook.Path, "\ ") - 7, 7)
MsgBox FolderDate

'Sprawdzać jeżeli Monthly_Report_Date_-_MM_YYYY.xls istnieć z MM-YYYY nawracać FolderDate Zmienna
'Jeżeli ono istnieć, then iść dalej z Okręt podwodny, jeżeli ono istnieć, pokazywać wiadomość pudełko i wtedy wychodzić
    Jeżeli Dir ("C:\Temp Downloads\VBA\" & FolderDate &" \ [Monthly_Report_Date_-_ "& FolderDate &" .xls ") <> "" Wtedy
        MsgBox "Kartoteka istnieć" 'Dla Testowanie Tylko, Real okręt podwodny mieć wiadomość pudełko
            Inny
        MsgBox "Kartoteka - Monthly_Report_Date_-_" & FolderDate & ".xls" & vbNewLine & "W Książka telefoniczna - C:\Temp Downloads\VBA\" & FolderDate & vbNewLine & "ISTNIEĆ"
    Kończyć Jeżeli

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

'InDate1 = (cd.) Kartoteka (Monthly_Report_Date_-_?? -??? .xls, Sheet1, Komórka A1)

'Date1 = CDate (InDate1)

'Set WS = Ciąć na arkusze ("Sheet1")
'WS.PageSetup.CenterHeader = ""
'WS.PageSetup.CenterHeader = "Wewnętrzny Raport (Zmienna Tutaj)"
     'Format the Chodnikowiec tutaj 16 punkt, Śmiały, Garmond
    
Końcówka Okręt podwodny

(1):
2:
3:

Range ("A1"). Formuła = "= ' H:\VBA\" & FolderDate & "\ [Monthly_Report_Date_-_" & FolderDate & ".xls] Sheet1'!$A$1"

InDate1 = Pasmo ("A1"). Wartość

Odpowiedź : Daktylowy zmienna od inny workbook, set jako zmienna - VBA

wtedy I także dodawać Główny rutyna który dzwonić the różnorodny część

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

Ciemnawy dtIN1 Data, dtIn2 Jako Data, dtIn3 Data
Ciemnawy sDateFilename
Const datefile = "Monthly_Report_Date_-_" 'MM-YYYY.XLS
Ciemnawy wbReport Jako Workbook   'the pointer the workbook gdy raportowy celować


Okręt podwodny Magistrala ()

    Ustalony wbReport = Application.ActiveWorkbook
    RetrieveDateValues
    UpdateHeaderDataVariable
    
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us