Jak uzyskać nazwę skoroszytu za pomocą języka vba (z przykładami)

Aby uzyskać nazwę skoroszytu programu Excel, możesz użyć następujących metod w języku VBA:

Metoda 1: Uzyskaj nazwę aktywnego skoroszytu

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Ta funkcja zwróci nazwę aktywnego skoroszytu, taką jak my_vba_workbook.xlsm .

Metoda 2: Uzyskaj nazwę aktywnego skoroszytu bez rozszerzenia

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Ta funkcja zwróci nazwę aktywnego skoroszytu bez rozszerzenia, takiego jak my_vba_workbook .

Poniższe przykłady pokazują, jak w praktyce zastosować każdą metodę z aktualnie aktywnym skoroszytem programu Excel o nazwie my_vba_workbook.xlsm .

Przykład 1: Uzyskaj nazwę aktywnego skoroszytu

Możemy utworzyć następującą funkcję, aby uzyskać nazwę aktywnego skoroszytu:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Możemy następnie wpisać następującą formułę w komórce A1 , aby uzyskać nazwę aktywnego skoroszytu:

 =GetWorkbookName()

Poniższy zrzut ekranu pokazuje, jak zastosować tę formułę w praktyce:

Widzimy, że formuła zwraca my_vba_workbook.xlsm , czyli nazwę aktualnie aktywnego skoroszytu, którego używamy.

Uwaga : rozszerzenie .xlsm reprezentuje skoroszyt programu Excel z obsługą makr.

Przykład 2: Uzyskaj nazwę aktywnego skoroszytu bez rozszerzenia

Możemy utworzyć następującą funkcję, aby uzyskać nazwę aktywnego skoroszytu bez rozszerzenia:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Możemy następnie wpisać następującą formułę w komórce A1 , aby uzyskać nazwę aktywnego skoroszytu:

 =GetWorkbookName()

Poniższy zrzut ekranu pokazuje, jak zastosować tę formułę w praktyce:

Widzimy, że formuła zwraca my_vba_workbook , czyli nazwę aktualnie aktywnego skoroszytu bez rozszerzenia .xlsm .

Uwaga : Korzystając z funkcji Left i Instr , możemy wyodrębnić wszystkie znaki z nazwy skoroszytu po lewej stronie kropki.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak tworzyć foldery za pomocą VBA
Jak usunąć foldery za pomocą VBA
Jak zmienić nazwę pliku za pomocą VBA
Jak sprawdzić, czy plik istnieje za pomocą VBA