Question : Récrire le code pour la création de titre de cahier de travail.

Salut les experts, le

I voudraient inviter l'aide d'experts pour récrire le manuscrit joint. Actuellement j'emploie ce manuscrit pour appeler le cahier de travail. Maintenant j'ajouterais la valeur des cellules A3 des feuilles (« source »). Les données en cellule A3 sont toujours date dans ce format « : 22 août 2010 dimanche ». Les experts en matière d'espoir pourraient aider à mettre à jour ce code.




class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de
1 :
class= " de l'id= le " codeSnippet963314 de
ws2.Name = « réconcilient » et le format (WS. Gamme (« G2 »). Valeur, « densité-millimètres-yyyy »)
class= de

Réponse : Récrire le code pour la création de titre de cahier de travail.

Si la « source » est dans le wb, alors changer svp en tant que ci-dessous.

ws2.Name = parti (« réconcilier » et remplacer (wb. Feuilles de travail (« source »). Gamme (« A3 »). Texte, » : « , » ."), 30)

Autrement il a supposé que la « source » est dans 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 :
Exportation secondaire ()

    Faible wb comme cahier de travail, wb2 comme cahier de travail
    Le faible WS comme feuille de travail, ws1 comme feuille de travail, ws2 comme feuille de travail
    'Faible décollement comme corde
   
    Placer wb = ThisWorkbook
    Placer le WS = le wb. Feuilles de travail (« réconcilier »)
   
    Placer wb2 = Workbooks.Add
    Placer ws2 = wb2.Worksheets (« Sheet1 »)
    
    'ws2.Name = « réconcilient » et le format (WS. Gamme (« G2 »). Valeur, « densité-millimètres-yyyy »)

    ws2.Name = parti (« réconcilier » et remplacer (wb. Feuilles de travail (« source »). Gamme (« A3 »). Texte, » : « , » ."), 30)
    le WS. Colonnes (« A : F »). Destination de copie : =ws2.Columns (« A : F »)
    
    ActiveSheet.PageSetup.PrintArea = ""
    Avec ActiveSheet.PageSetup
        . Orientation = xlLandscape
        « . Bourdonnement = » meilleur faux inclus juste dans le cas !
        . Bourdonnement = 40 'meilleurs inclus juste dans le cas !
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Extrémité avec
    Colonnes (« A : F ») .EntireColumn.AutoFit

    Application.DisplayAlerts = faux
   
    Pour chaque ws1 dans wb2.Worksheets
        Si ws1.Name <> ws2.Name puis ws1.Delete
    Prochain ws1
       
    'S'assurer que chemise de liste existe
    'décollement = « TDC_ » et le WS. Gamme (« B2 »). Valeur et » .xls "
    décollement = « \ \ 04 \ FileServices \ document \ DBD \ rapports \ Reconcile_ » et format (WS. Gamme (« G2 »), « densité-millimètre ») et » .xls "

    Application.DisplayAlerts = rectifient
       
    décollement de wb2.SaveAs
        
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us