다음은 바탕화면에 "test"라는 파일명으로 저장하라는 명령인데....
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\SAMSUNG\바탕 화면\test.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
이것을 "test"라는 고정된 파일명이 아니라 특정셀(예:sheet1 의 A1셀)의 문자로 파일명을
저장 할려면 어떻게 해야 하는지요???
---------------------------------------------------------------------------------------------------------------------
<방법1>
파일명을 변수로 받아 가져오시면 될 것 같은데요?
아래 코드를 참고해 보세요.
Dim mypath As String
Dim mydata As String
Dim mysavename As String
mypath = Application.ThisWorkbook.Path
mydata = Sheets("data").Range("a1").Value
mysavename = mypath & mydata & ".xls"
ActiveWorkbook.SaveAs Filename:=mysavename
<방법2>
Option Explicit
Sub SaveAs_test()
Dim strK$
strK = Cells(1, 1).Value
If strK = "" Then
MsgBox "해당셀이 비어잇습니다", vbCritical + vbOKOnly
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:=strK & " "
End Sub"