2015-01-20 5 views
0

다음 Excel VBA 코드가 있습니다.변수를 사용하여 VBA에서 Excel 시트 선택

다른 Excel 문서에서 일부 데이터를 이미 복사했습니다. 매주 Excel 시트가 포함 된 두 번째 문서에이 날짜를 붙여 넣어야합니다.

Excel 시트는 "주 01", "주 02", "...", "주 52"라고합니다.

이제 복사 된 데이터를 붙여 넣을 올바른 번호의 시트를 선택해야합니다.

Sub Macro1() 

Dim number As String 
Dim year As String 

number = Application.InputBox(Prompt:="insert week number (01-52))", Type:=2) 
year = Application.InputBox(Prompt:="insert year (YYYY)", Type:=2) 

Workbooks.Open Filename:= _ 
"F:\documents\" & year & "\example " & number & ".xlsm" 

Sheets("Week" number).Select 

Range("M4").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

End Sub 

다음 코드가 올바르지 않습니다. 변수 "number"를 사용하여 올바른 엑셀 시트를 어떻게 선택할 수 있습니까?

아래 코드에 대한
Sheets("Week" number).Select 

답변

2

, 당신은 사이에 "&"를 넣어 그리워, 아니면 그냥 미스를 입력 했습니까?

Sheets("Week" number).Select 

Sheets("Week " & number).Select 'there is a space after week?? 

하고 ""사이의 공간에주의하시기 바랍니다해야합니다. 코드를 대량으로 만들 수 있습니다. 아래처럼 "\ example"다음에 공백이 있습니다.

"F:\documents\" & year & "\example " & number & ".xlsm" 
+0

"&"기호를 추가하는 것을 잊어 버릴 수 있습니까? 감사합니다. 문제가 해결되었습니다. – Stan

+0

전혀 문제가 없습니다. 나는 항상 그것을하고 있었다;) – Dubison

관련 문제