|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016, Windows10
* 아래줄에 질문을 작성하세요 >>
안녕하세요
아래 사항은 프로그램 중 일부를 발췌하였습니다.
Windows7 운영체계에서 엑셀 2007버젼과 엑셀 2010버젼에서는
무리없이 수행되던 프로그램이
Windows10 운영체계에서 엑셀 2016버젼에서 무리없이 수행되기도 하고
Run Time Error 가 발생하기도 하여 사용하는데 많은 애로사항이 있습니다
어떤 명령어를 사용하여야 무리없이 수행될까요?
조언을 부탁드립니다.
혹시 날짜인식에 문제가 있는 것이 아니라 엑셀 확장명에 문제가 있는지요?
Sub Test1()
Dim Date1 As String
Dim AA1 As Date
Date1 = Sheets("입력").Cells(1, 9).Value 'Cell에서 날짜를읽음
'화일 활성화
Windows("재정_" & Date1 & ".xls").Activate '재정 화일 활성화
AA1 = Range("A1").Value 'Cell에서 날짜를 읽음
'화일 활성화
Windows("재정_" & AA1 & ".xls").Activate
End Sub
==============[참죤날님 글에 대한 답변입니다]==============
'화일 활성화
Windows("재정_" & AA1 & ".xls").Activate
==> 아래와 같이 수정하세요...
Windows("재정_" & Format(AA1, "yyyy-mm-dd") & ".xls").Activate |
|