목록시트명 (2)
rand(life)
엑셀파일을 열지 않은 상태로 해당 파일안에 있는 시트이름을 가져오는 코드이다.출처는 여기이다. 제대로 동작하기 위해서, 선행해야할 작업이 있다. VB편집기에서 도구 - 참조를 실행 Microsoft ActiveX Dara Objects 2.x Library Microsoft ADO Ext. 2.x for DDL and Security위 두 항목을 체크하고 확인한다. Sub GetSheetNames() '도구 - 참조에서 아래 두 개 체크 해야함 'Microsoft ActiveX Dara Objects 2.x Library 'Microsoft ADO Ext. 2.x for DDL and Security Dim cn As ADODB.Connection Dim cat As ADOX.Catalog Dim t A..
'지식인에서 엑셀 관련 질문에 답변을 해주다가 VBA공부를 시작했다. 다음은 어느 분이 '연도-월'의 이름을 가진 시트가 많이 있는 파일에서, 연도별로 시트를 저장하고, 올해 1월과 작년 12월, 그리고 연도가 아닌 글자로 시트명이 된 시트들을 따로 모아 저장해달라는 의뢰(?)에 대한 연구 결과이다파일로 다운로드Option Explicit '변수를 선언해야 사용할 수 있다는 옵션Sub MergeWBs() '매크로 이름Dim i As Integer '순환문 작업에 필요한 변수Dim shtnum As Integer '시트의 총갯수를 저장하기위한 변수Dim sh As Worksheet '선택한 시트를 복사할 때 시트 각각에 배당하는 변수Dim shs As Sheets '선택한 시트 전체에 배당하는 변수Dim ..