2012-05-18 3 views
3

VBA를 사용하여 활성 통합 문서 내의 모든 워크 시트의 이름 (또는 최대 3 개)을 문자열로 반환하려면 어떻게해야합니까? 컨텍스트의 경우 통합 문서 이름이 저장 될 때이 문자열을 사용하여 이름을 지정합니다. 입력 대화 상자 등을 사용하여 파일의 저장 이름을 만드는 방법을 알아 냈으므로 VBA가 "[Worksheet 1 name]"및 [Worksheet 2 name] "과 같은 것을 반환하는 경우입니다.VBA를 사용하여 문자열의 통합 문서에있는 모든 워크 시트를 나열하려면 어떻게합니까?

감사합니다.

+0

모든 워크 시트를 루핑하고'.Name' 속성에서 이름을 가져옴으로써? –

답변

11
Option Explicit 

Sub namesheets() 

Dim wks as Worksheet, strName as String 

For each wks in Worksheets 
    strName = strName & wks.Name 
Next 

End Sub 

"통합 문서의 워크 시트를 통한 Excel vba 루프"또는 그 효과가있는 항목을 매우 쉽게 찾을 수 있습니다.

또한이 질문은이 웹 사이트의 일부 양식에서 묻습니다. 링크를 참조하십시오 ... Loop through subset of worksheets

+0

감사합니다. 나는 VBA에 대한 나의 가난한 지식 덕분에 두 가지의 질문을하고있다. 나는 인정해야한다. 처음에는이 문자열을 어떻게 사용합니까? 현재 문자열을 사용하여 파일을 저장하는 코드가 있습니다. SaveFile = VendorCode & "-"& VendorName & "-"& ContentDate -이 문자열을 활용하기 위해 내가 삽입 할 내용은 무엇입니까? 마지막으로 워크 시트 이름 사이에 쉼표를 삽입하는 방법이 있습니까? 정말 고맙습니다! – seegoon

+0

나는 당신이 가지고있는 것에 잠깐 잠수 해달라고 부탁한다. 문자열을 작성하려고 시도하고 있으며 변수 및 텍스트 ("-")로 구성된 문자열이 있습니다. 내가 작성한 것과 당신이 이미 가지고있는 것을 기초로 계속하면 문자열을 만들 수 있습니다. (Hint = a = Scott b = Holtzman -> strName = a & "strName = Scott Holtzman. 너가 너가 요구 한 것을 얻은다고 느끼면 너의 대답을 받아 들인 것으로 표시하는 것을 잊지 마라. –

+0

나는 그것을 얻었다 :) 너의 도움을 위해 고맙다. – seegoon

관련 문제