Excel

특정셀의 문자를 파일이름으로 저장하는 메크로...

by 콩이아빠 posted Aug 05, 2009
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄

다음은 바탕화면에 "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"


Articles

1