Tool/MSoffice5 excel / vba / sheet 목록 가져오기 Sub 목록추출() '함수명 Dim SheetNames() SheetCount = ActiveWorkbook.Sheets.Count ReDim SheetNames(1 To SheetCount) 'Sheets("목록").Select ' "목록" 이라는 sheet에 sheet목록 만들기 Range("A2").Select 'A2 cell부터 시트명입력 For i = 1 To SheetCount SheetNames(i) = ActiveWorkbook.Sheets(i).Name ActiveCell = ActiveWorkbook.Sheets(i).Name ActiveCell.Offset(1, 0).Select Next i End Sub 2020. 4. 16. 이전 1 2 다음 반응형