Skip to content

조회 수 534 추천 수 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"

?

  1. VB로 Excel(엑셀) 핸들링 - 셀 조작 3

  2. 범위내 조건을 만족하는 가장 큰 값 뽑아내기

  3. 자동으로 메크로 실행하기....

  4. 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면...

  5. 확장자가 자동으로 대문자로 바뀌는 현상...

  6. 파일을 불러왔다 닫는 메크로 실행에서.....

  7. 저장 메크로 실행에서...무조건 '예'로 강제 자동 실행시킬려면...

  8. 특정셀의 문자를 파일이름으로 만드는 메크로

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

  10. 시트선택 메크로에서 시트이름 코드

  11. 시트이름을 바꾸면 메크로 코드에서도 바뀌게 할려면?

  12. 숨겨져있는 쉬트는 제외하고 탭이름 가져오기

  13. 탭의 이름들을 한 sheet에 취합하여 정열 시킬려면 어떻게 해야 하나요?

  14. 각시트의 원하는 셀값 가져오기

  15. 다수의 동일 문자의 옆셀에 위치한 내용을 함수를 써서 취합하려는데..

  16. myvlookup2함수

Board Pagination Prev 1 Next
/ 1

Korea NO.1 VISION 2020 / Designed by HJS_Sketch

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소