2014-07-26 4 views
0

나는 기존의 엑셀 파일과 형식을 기반으로 새 통합 문서를 만들려고하고 나는 아래의 코드를 사용하고 밖으로에 실패 Workbooks.Add (템플릿)VBA - 범위

sub newWorkBook()  
Dim newWorkBook as New WorkBook 
Set newWorkBook = WorkBooks.Add("Template.xls") 
/*It is erroring on the above line*/ 
       newWorkBook.Application.DisplayAlerts = False 
       With newWorkBook 
        .SaveAs "C:\new.xls" 
       End With 
       domainWorkBook.Save 
       domainWorkBook.Application.DisplayAlerts = True 
       domainWorkBook.Close 
       Set newWorkBook = Nothing 
End Sub 

그것을 줄에 오류 Set newWorkBook = WorkBooks.Add("Template.xls") subscript가 범위를 벗어났습니다.

또한 새로운 Excel1이라는 이름의 Template1.xls가 열리고 오류가 발생합니다 ... 어떤 제안이 있습니까?

+2

새 통합 문서를 만들려는 파일이 열려 있거나이 파일이 기본 파일 경로에있는 경우를 제외하고는이 정보는 추측 된 것입니다. 통합 문서 이름을 전체 경로 이름으로 한정하려면 – IAmDranged

답변

0

템플릿을 열지 않으려면 왜SaveAs 새 이름을 만드시겠습니까?

+0

오 .. 방금 Workbooks.open이 범위를 벗어난 오류로 인해 아래 첨자로 오류를 일으킨다는 것을 깨달았습니다. 파일이 거기에 있다고 확신합니다 – javanoob

+0

전체 파일 지정이 올바른지 확인하십시오 파일을 열려면 ** 권한 **이 있어야합니다. –