Excel VB Cette Feuille de calcul Active

Je suis sûr que c'est vraiment facile, mais je ne trouve aucune info sur elle.

J'ai une macro Excel qui a des choses comme:

    ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Data21 Oct 12 11-05").Sort.SortFields.Add Key _
    :=Range("W1:W23"), SortOn:=xlSortOnValues, Order:=xlDescending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort
    .SetRange Range("A1:BZ23")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Ce que je veux faire est de faire de cette un global macro, mais le nom de fichier est codé en dur dans la macro. Comment puis-je changer le code de sorte qu'il références "ce" fichier actuellement ouvert?

OriginalL'auteur Dan Twining | 2012-10-21

  1. 7

    Ok, j'ai travaillé, vous avez besoin de le changer à partir de:

    ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort.

    :

    ActiveWorkbook.ActiveSheet.Sort

    De crédit à cet article sur la création d'un bouton dans Excel

    OriginalL'auteur Dan Twining

  2. 3

    ActiveWorkbook fait référence à l'actuel ouverte et active de fichier.

    Si par nom de fichier vous référer au fait que le nom de la feuille est codé en dur, vous pouvez faire de la macro de travail avec la participation active de feuille par le remplacement de ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05") avec ActiveSheet.

    OriginalL'auteur assylias