Cuestión : Reescribir el código para la creación del título del libro de trabajo.

Hola los expertos,

I quisieran solicitar ayuda de los expertos para reescribir la escritura atada. Estoy utilizando actual esta escritura para nombrar el libro de trabajo. Ahora agregaría el valor de la célula A3 de las hojas (“fuente”). Los datos en la célula A3 están siempre en fecha de este formato “: 22 de agosto de 2010 domingo”. Los expertos de la esperanza podrían ayudar a revisar este code.




 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
el class= " del id= " codeSnippet963314 del 
ws2.Name = “reconcilia” y el formato (WS. Gama (“G2”). Valor, “DD-milímetros-yyyy”)
class= del

Respuesta : Reescribir el código para la creación del título del libro de trabajo.

Si la “fuente” está en el wb, después cambiar por favor como abajo.

ws2.Name = ido (“reconciliar” y substituir (wb. Hojas de trabajo (“fuente”). Gama (“A3”). Texto,”: “,” ."), 30)

Si no asumió que la “fuente” está en 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:

Exportación secundaria ()

    Wb dévil como libro de trabajo, wb2 como libro de trabajo
    WS dévil como hoja de trabajo, ws1 como hoja de trabajo, ws2 como hoja de trabajo
    'Despegue dévil como secuencia
   
    Fijar wb = ThisWorkbook
    Fijar WS = wb. Hojas de trabajo (“reconciliar”)
   
    Fijar wb2 = Workbooks.Add
    Fijar ws2 = wb2.Worksheets (“Sheet1”)
    
    'ws2.Name = “reconcilian” y el formato (WS. Gama (“G2”). Valor, “DD-milímetros-yyyy”)

    ws2.Name = ido (“reconciliar” y substituir (wb. Hojas de trabajo (“fuente”). Gama (“A3”). Texto,”: “,” ."), 30)
    WS. Columnas (“A: F”). Destinación de la copia: =ws2.Columns (“A: F”)
    
    ActiveSheet.PageSetup.PrintArea = ""
    Con ActiveSheet.PageSetup
        . Orientación = xlLandscape
        “. ¡Zumbido =” mejor falso incluido apenas en caso!
        . ¡Zumbido = 40 'mejores incluidos apenas en caso!
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Extremo con
    Columnas (“A: F”) .EntireColumn.AutoFit

    Application.DisplayAlerts = falso
   
    Para cada ws1 en wb2.Worksheets
        Si ws1.Name <> ws2.Name entonces ws1.Delete
    Ws1 siguiente
       
    'Cerciorarse de que carpeta exista del listado
    'despegue = “TDC_” y WS. Gama (“B2”). Valor y” .xls "
    despegue = “\ \ 04 \ FileServices \ documento \ DBD \ informes \ Reconcile_” y formato (WS. Gama (“G2”), “DD-milímetro”) y” .xls "

    Application.DisplayAlerts = verdad
       
    despegue de wb2.SaveAs
        
Submarino del extremo
Otras soluciones  
 
programming4us programming4us