---------
mydata = Sheets("data").Range("a1").Value
---------
이 코드는 현재 작업하고 있는 파일의 "data"시트의 한셀(a1)을 활용하는 것인데,
열러있는 다른문서의 특정시트의 특정셀을 활용할려면, 어떻게 수정 해야 하나요?
다시 한번 부탁드립니다.
--------------------------------------------------------------------------------------------------------------
mydata = ActiveWorkbook.Sheets("data").Range("a1").Value
즉, 위 구문에서 ActiveWorkbook 이란 현재 "열려 있는 문서" 를
의미합니다.
--------------------------------------------------------------------------------------------------------------
셀값으루 파일이름을 저장하실때...
공란이 발생하믄 에러가 납니다...(이를 방지하기위해서)
해서 조건분기를 한번 한것이구요...
Option Explicit
Sub SaveAs_test()
Dim strK$ ''''''' 문자형 변수선언
strK = Cstr(Sheets("data").Cells(1, 1).Value) ''' Data시트의 A1셀의 값을 변수에 담구
If strK = "" Then '''''' A1셀이 비어있다면
MsgBox "해당셀이 비어잇습니다", vbCritical + vbOKOnly '''''' 경고메세지 띄우구
Exit Sub ''''' 프로시저 탈출(업든일루 하구)
End If
ActiveWorkbook.SaveAs Filename:=strK & " " '''''''' 담은 변수명으로 파일저장
End Sub"
