Получить имя листа с помощью Excel VBA

Question

Я хотел бы создать функцию user-defined в Excel, которая может вернуть текущий рабочий лист. Я мог бы использовать

sheetname = ActiveSheet.Name 

Но проблема это, она работает, и вдруг он начинает получать другое имя листа. Например, вместо SHEET I LOVE YOU он возвращает SHEET I HATE YOU.

Есть ли все-таки исправить это - или это возможно, потому что я думаю, что он не может быть статическим, но меняется?

Answer 1

Function MySheet() 

    MySheet = Application.Caller.Worksheet.Name 

End Function 

Это должно быть функция, которую вы ищете

Answer 2

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

Sub ChangeSheetName() 

Dim shName As String 
Dim currentName As String 
currentName = ActiveSheet.Name 
shName = InputBox("What name you want to give for your sheet") 
ThisWorkbook.Sheets(currentName).Name = shName 

End Sub 

Answer 3

Sub FnGetSheetsName() 

Dim mainworkBook As Workbook 

Set mainworkBook = ActiveWorkbook 

For i = 1 To mainworkBook.Sheets.Count 

'Either we can put all names in an array , here we are printing all the names in Sheet 2 

mainworkBook.Sheets("Sheet2").Range("A" & i) = mainworkBook.Sheets(i).Name 

Next i 

End Sub 

Answer 4

Это работает для меня.

worksheetName = ActiveSheet.Name