Frage : Den Code für Arbeitsbuchtitelkreation neu schreiben.

Hallo möchten Experten,

I Expertenhilfe fordern, um den angebrachten Index neu zu schreiben. Z.Z. benutze ich diesen Index für die Benennung des Arbeitsbuches. Jetzt würde ich den Wert der Zelle A3 von den Blättern hinzufügen („Quelle“). Die Daten in der Zelle A3 sind immer in diesem Format „Datum: 22. August 2010 Sonntag“. Hoffnung-Experten konnten helfen, dieses code.




zu verbessern
1:
" das notpretty "
ws2.Name = „versöhnen“ u. Format (WS. Strecke („G2“). Wert, „DDmillimeter-yyyy“)

Antwort : Den Code für Arbeitsbuchtitelkreation neu schreiben.

Wenn „Quelle“ in WB ist, dann als unten bitte ändern.

ws2.Name = verlassen („versöhnen“ u. ersetzen (WB. Arbeitsblätter („Quelle“). Strecke („A3“). Text,“: „,“ ."), 30)

Andernfalls nahm er an, dass „Quelle“ in ActiveWorkbook ist
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:
38:
39:
40:
41:
42:
Vorexport ()

    Schwache WB als Arbeitsbuch, wb2 als Arbeitsbuch
    Schwaches WS als Arbeitsblatt, ws1 als Arbeitsblatt, ws2 als Arbeitsblatt
    'Schwaches Papierlösekorotron als Schnur
   
    Einstellen WB = ThisWorkbook
    Einstellen WS = WB. Arbeitsblätter („versöhnen“)
   
    Einstellen wb2 = Workbooks.Add
    Einstellen ws2 = wb2.Worksheets („Sheet1“)
    
    'ws2.Name = „versöhnen“ u. Format (WS. Strecke („G2“). Wert, „DDmillimeter-yyyy“)

    ws2.Name = verlassen („versöhnen“ u. ersetzen (WB. Arbeitsblätter („Quelle“). Strecke („A3“). Text,“: „,“ ."), 30)
    WS. Spalten („A: F“). Kopien-Bestimmungsort: =ws2.Columns („A: F“)
    
    ActiveSheet.PageSetup.PrintArea = ""
    Mit ActiveSheet.PageSetup
        . Lagebestimmung = xlLandscape
        „. Lautes Summen = falsches“ besseres eingeschlossen gerade im Fall!
        . Lautes Summen = 40 'bessere eingeschlossen gerade im Fall!
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    Ende mit
    Spalten („A: F“) .EntireColumn.AutoFit

    Application.DisplayAlerts = falsch
   
    Für jedes ws1 in wb2.Worksheets
        Wenn ws1.Name <> ws2.Name dann ws1.Delete
    Folgendes ws1
       
    'Sicherstellen, dass Auflistungsfaltblatt existiert
    'Papierlösekorotron = „TDC_“ u. WS. Strecke („B2“). Wert u.“ .xls "
    Papierlösekorotron = „\ \ 04 \ FileServices \ Dokument \ DBD \ Reports \ Reconcile_“ u. Format (WS. Strecke („G2“), „DDmillimeter“) u.“ .xls "

    Application.DisplayAlerts = richten aus
       
    wb2.SaveAs Papierlösekorotron
        
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us