Questione : Riscrivere il codice per la creazione di titolo del libro di esercizi.

Ciao gli esperti, il

I vorrebbero invitare l'aiuto degli esperti per riscrivere lo scritto allegato. Attualmente sto usando questo scritto per la nomina del libro di esercizi. Ora aggiungerei il valore delle cellule A3 dagli strati (“fonte„). I dati in cellula A3 sono sempre data in questa disposizione “: 22 agosto 2010 domenica„. Gli esperti in speranza potrebbero contribuire a modificare questo code.




class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del
1:
il class= " del id= " codeSnippet963314 del
ws2.Name = “riconcilia„ & disposizione (WS. Gamma (“G2„). Valore, “dd-millimetri-yyyy„)
class= del

Risposta : Riscrivere il codice per la creazione di titolo del libro di esercizi.

Se “la fonte„ è in wb, quindi cambiare prego come sotto.

ws2.Name = andato (“riconciliare„ & sostituire (wb. Manuali (“fonte„). Gamma (“A3„). Testo,„: “,„ ."), 30)

Altrimenti ha presupposto che “la fonte„ fosse in ActiveWorkbook
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:
38:
39:
40:
41:
42:
Esportazione secondaria ()

    Wb fioco come libro di esercizi, wb2 come libro di esercizi
    La WS fioca come manuale, ws1 come manuale, ws2 come manuale
    'Distacco fioco come stringa
   
    Regolar wb = ThisWorkbook
    Regolar la WS = wb. Manuali (“riconciliare„)
   
    Regolar wb2 = Workbooks.Add
    Regolar ws2 = wb2.Worksheets (“Sheet1„)
    
    'ws2.Name = “riconciliano„ & disposizione (WS. Gamma (“G2„). Valore, “dd-millimetri-yyyy„)

    ws2.Name = andato (“riconciliare„ & sostituire (wb. Manuali (“fonte„). Gamma (“A3„). Testo,„: “,„ ."), 30)
    la WS. Colonne (“A: F„). Destinazione della copia: =ws2.Columns (“A: F„)
    
    ActiveSheet.PageSetup.PrintArea = ""
    Con ActiveSheet.PageSetup
        . Orientamento = xlLandscape
        “. Zoom =„ migliore falso incluso appena nel caso!
        . Zoom = 40 'migliori inclusi appena nel caso!
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Estremità con
    Colonne (“A: F„) .EntireColumn.AutoFit

    Application.DisplayAlerts = falso
   
    Per ogni ws1 in wb2.Worksheets
        Se ws1.Name <> ws2.Name allora ws1.Delete
    Ws1 seguente
       
    'Assicurar che dispositivo di piegatura dell'elenco esista
    'distacco = “TDC_„ & la WS. Gamma (“B2„). Valore &„ .xls "
    distacco = “\ \ 04 \ FileServices \ documento \ DBD \ rapporti \ Reconcile_„ & disposizione (WS. Gamma (“G2„), “dd-millimetro„) &„ .xls "

    Application.DisplayAlerts = allineano
       
    distacco di wb2.SaveAs
        
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us