안녕하세요,
CIMON입니다.
VB 함수를 이용하여 스크립트를 작성하는 것으로 엑셀 파일의 시트 이름을 표시할 수 있습니다.
다음 예제를 참조하여 주시기 바랍니다.
[사용 예제]
1. 시트 이름을 가져올 엑셀 파일의 위치를 확인합니다.
2. [도구]-[스크립트]에 진입하여 다음과 같이 스크립트를 작성합니다.
Sub ReadExcelSheet()
Dim ExcelApp As Object
Dim DayRpt As Object
‘Read 파일 이름
fName$ = “C:\보고서\Test.xls”
‘Excel 실행
Set ExcelApp = CreateObject(“Excel.Application”)
‘Excel 파일 열기
Set DayRpt = ExcelApp.Workbooks.Open (fName$)
‘Excel 파일의 모든 시트를 돌며 시트의 이름을 가져와서 표시한다.
For nIdx = 1 To DayRpt.Worksheets.Count
shname = DayRpt.Worksheets(nIdx).Name
msgbox shname
Next nIdx
‘파일을 닫는다.
DayRpt.Close
‘Excel 를 종료한다.
ExcelApp.Quit
End Sub
=====================================
위 스크립트를 다음 그림과 같이 등록합니다.
3. CimonX를 실행합니다.
스크립트를 실행하면, 경로의 엑셀 파일에 저장된 모든 시트 이름을 메시지 박스로 표시합니다.
언제나 고객을 먼저 생각하는 CIMON이 되겠습니다.
감사합니다.