Сортировка рабочих листов в заданной пользователем книге

Question

У меня есть вопрос, и я новичок в VB. Пожалуйста, помогите мне!

У меня есть рабочая книга с разными рабочими листами, и я хочу отсортировать их в соответствии с диапазоном порядка, который я даю в «Csheet». Это код ниже, и он работает нормально. Но я хотел реализовать это в другой книге. И это не сработает. Вы можете помочь мне с этим, пожалуйста !!!!

Dim SortOrder As Variant 
Dim Ndx As Long 
With Worksheets("CSheet").Range("A1:A3") 
    For Ndx = .Cells.Count To 1 Step -1 
     Worksheets(.Cells(Ndx).Value).Move before:=Worksheets(1) 
    Next Ndx 
End With 
End Sub 

Answer 1

Основываясь на моих комментариях, вот более устоявшийся способ сделать это. Я просто набрал его и, следовательно, не тестировался. Дайте мне знать, если вы столкнетесь с какой-либо ошибкой.

Причина, по которой ваш код не будет работать для другой книги, заключается в том, что вы не указали, в какой книге вы хотите, чтобы листы сортировались. Вы должны полностью квалифицировать свои объекты.

Sub Sample() 
    Dim thisWb As Workbook, thatWb As Workbook 
    Dim ws As Worksheet 
    Dim i As Long 

    Set thisWb = ThisWorkbook 
    Set ws = thisWb.Sheets("CSheet") 

    Set thatWb = Workbooks("BlahBlah") 

    For i = 3 To 1 Step -1 
     With ws 
      thatWb.Worksheets(.Cells(i, 1).Value).Move _ 
      before:=thatWb.Worksheets(1) 
     End With 
    Next i 
End Sub