Skip to content

조회 수 377 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

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

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

?

List of Articles
번호 카테고리 제목 글쓴이 날짜 조회 수
16 Excel 확장자가 자동으로 대문자로 바뀌는 현상... 67 콩이아빠 2009.08.05 1297
15 Excel 파일을 불러왔다 닫는 메크로 실행에서..... 1 콩이아빠 2009.08.05 224
» Excel 특정셀의 문자를 파일이름으로 저장하는 메크로... 콩이아빠 2009.08.05 377
13 Excel 특정셀의 문자를 파일이름으로 만드는 메크로 콩이아빠 2009.08.05 189
12 Excel 탭의 이름들을 한 sheet에 취합하여 정열 시킬려면 어떻게 해야 하나요? 1 콩이아빠 2009.08.05 257
11 Excel 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면... 27 콩이아빠 2009.08.05 283
10 Excel 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면... 콩이아빠 2009.08.06 243
9 Excel 자동으로 메크로 실행하기.... 1 콩이아빠 2009.08.11 169
8 Excel 시트이름을 바꾸면 메크로 코드에서도 바뀌게 할려면? 콩이아빠 2009.08.05 221
7 Excel 시트선택 메크로에서 시트이름 코드 29 file 콩이아빠 2009.08.05 362
6 Excel 숨겨져있는 쉬트는 제외하고 탭이름 가져오기 51 콩이아빠 2009.08.05 535
5 Excel 범위내 조건을 만족하는 가장 큰 값 뽑아내기 1 127 file 콩이아빠 2009.08.12 732
4 Excel 다수의 동일 문자의 옆셀에 위치한 내용을 함수를 써서 취합하려는데.. 1 10 콩이아빠 2009.08.05 986
3 Excel 각시트의 원하는 셀값 가져오기 1 77 콩이아빠 2009.08.05 1276
2 Excel VB로 Excel(엑셀) 핸들링 - 셀 조작 3 165 콩이아빠 2009.11.09 1612
1 Excel myvlookup2함수 file 콩이아빠 2009.08.05 366
Board Pagination Prev 1 Next
/ 1

Korea NO.1 VISION 2020 / Designed by HJS_Sketch

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소