Mam to, co uważałem za podstawowy blok koduale ciągle otrzymujesz błąd Wymagany obiekt. Mam skoroszyt z wieloma arkuszami i chcę dokonać iteracji, aby zmienić ich nazwę. Wypróbowałem cztery różne metody, widoczne w komentarzach bloków, aby to osiągnąć, ale wszystkie uderzyły w ten sam błąd.
Sub ModifyWS()
Dim wb As Workbook
Dim a As String
Dim i As Integer
Dim nm As String
Set wb = ActiveWorkbook
For i = 2 To Application.Sheets.Count
a = "BOE" & CStr(i - 1)
"Attempt 1
Sheets(i).Name = a
"Attempt 2
"Application.Sheets(i).Name = a
"Attempt 3
"Set nm = Sheets(i).Name
"nm = a
"Attempt 4
"wb.Worksheets(i).Name = a
Next
End Sub
Twoja pomoc jest zawsze doceniana.
Dziękuję Ci, Joe
Odpowiedzi:
0 dla odpowiedzi № 1Kod zadziałał w nowym arkuszu kalkulacyjnym. Wygląda na to, że w jakiś sposób uszkodziłem mój skoroszyt przy pomocy innego modułu, ale po utworzeniu nowej wersji wszystko zaczęło działać.