Note: The other languages of the website are Google-translated. Back to English

셀 값으로 Excel 파일을 저장하는 방법은 무엇입니까?

통합 문서를 사용할 때 셀 내용을 기반으로 Excel 파일을 저장하려고 생각한 적이 있습니까? 예를 들어 A1 셀에 "판매 가격"이 있고 통합 문서를 판매 가격이라는 이름으로 저장하려고합니다. 물론 다른 이름으로 저장 대화 상자에 이름을 입력 한 다음 저장할 수 있습니다. 그러나 이것은 작업량에서 비효율적 인 방법입니다. 오늘은이를 해결하는 빠른 방법에 대해 이야기하겠습니다.

VBA 코드를 사용하여 특정 셀 값으로 Excel 파일 저장

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품 VBA 코드를 사용하여 특정 셀 값으로 Excel 파일 저장

다음 VBA 코드는 지정된 셀 값으로 통합 문서를 저장하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 특정 셀 값으로 Excel 파일 저장

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. 그런 다음 F5 키를 눌러 코드를 실행하고 통합 문서의 이름이 A1 셀의 셀 내용으로 지정되었습니다. 스크린 샷보기 :

문서-셀-값-1로 저장

배송 시 요청 사항:

1. 위 코드에서 A1을 다른 셀 참조로 수정하기 만하면 모든 셀 값을 파일 이름으로 지정할 수 있습니다.

2. 활성 통합 문서는 다음 폴더에 저장됩니다. C : \ Users \ dt \ Desktop \ 내 정보 \ (위치를 붙여 넣을 때 마지막 슬래시가 남아 있어야 함) 위치, 필요에 따라 경로를 변경할 수 있습니다.


관련 기사 :

Excel에서 날짜와 시간으로 파일을 저장하는 방법은 무엇입니까?

Excel의 제목 표시 줄 또는 도구 모음에 파일 경로를 표시하는 방법은 무엇입니까?


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (33)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모듈은 .XlsX에 저장하지 않습니다. 7행과 관련이 있다고 생각합니다;; ".xls", FileFormat:=xlNormal; 또한 연결된 3개의 다른 셀에서 값을 가져오도록 수정하려면 어떻게 해야 합니까? 예: 이름, 성, 날짜; 코드의 6번째 줄에?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Dim 파일 이름을 문자열로
Dim filename1 문자열로
Dim filename2 문자열로

경로 = "C:\Users\dt\Desktop\내 정보\"
파일 이름 = 범위("A1")
파일 이름1 = 범위("A2")
파일 이름2 = 범위("A3")
ActiveWorkbook.SaveAs 파일 이름:=경로 및 파일 이름 & "-" & 파일 이름1 & "-" & 파일 이름2 ".xls", FileFormat:=xlNormal
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
크리스. 별도의 셀에 연결한 다음 해당 셀을 파일 이름 값으로 참조할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Mine은 경로와 파일 이름으로만 저장합니다. 셀에서 참조한 파일 이름만 저장하기를 원합니다. 제발 날 좀 도와 줄 수 있니?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 꽤 멋지지만... 수정 방법을 잘 모르는 버그가 있는 것 같습니다. 매크로 사용 템플릿에서 이것을 사용하고 있습니다. 템플릿을 열고 변경/업데이트하고 F5 키를 눌러 매크로를 실행하고... "참조"를 입력할 것으로 예상하는 "이동" 대화 상자가 나타납니다. 그러나 ALT를 누르면 F11 키를 누른 다음 F5 키를 누르면 새 .xls 파일이 예상대로 저장됩니다. 이 "저장" 절차를 실행하려면 항상 Visual Basic 모듈을 열어야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
사용자가 필드 중 하나에 입력한 날짜별로 이름이 지정된 파일을 저장해야 하도록 덮어쓰고 싶지 않은 템플릿이 있습니다. 사용자가 도구를 연 다음 매크로를 선택/실행하는 것을 원하지 않습니다. 파일 이름을 입력할 수도 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
=NOW()를 매크로에서 추출하기 전에 셀의 파일 이름에 매개변수로 추가할 수 있습니다(또한 직원이 도구를 열 필요가 없도록 페이지 모서리에 표준 버튼을 배치합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여러분은 생명의 은인입니다. 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
.csv 파일로 저장해야 합니다. .csv 파일로 저장하려면 이것을 어떻게 변경합니까? Private Sub filename_cellvalue() '20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" 파일 이름 = Range("AC2") ActiveWorkbook.SaveAs 파일 이름:=경로 및 파일 이름 & ".xls ", FileFormat:=xlNormal End Sub 도와주셔서 미리 감사드립니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내가 여기서 뭔가 잘못한 것 같아...

Sheets("shitname") 줄에 오류가 발생합니다.Select

아마도 내가 K10 셀과 같이 "shitname"이라는 이름을 지었을 때 뭔가 잘못했을 것입니다.

시트를 K10 셀과 정확히 같은 다른 시트로 변경하고 싶습니다.


' 기셀 매크로
'
' 키보드 단축키: Ctrl+Shift+C
'
선택. 복사
Sheets("debagat").Select
행("8:8").선택
ActiveSheet.Paste
문자열로 희미한 경로
경로 = "C:\cgxml\"
Dim 파일 이름을 문자열로
파일 이름 = 범위("A8")
희미한 이름을 문자열로
똥이름 = 범위("K10")
Sheets("shitname").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs 파일 이름:=경로 및 파일 이름 및 ".xml", FileFormat:=xltxt, CreateBackup:=False
시트("TOTAL").선택
ActiveCell.Offset(1, 0).EntireRow.Select
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 잘 작동합니다... 감사합니다. 하지만 PDF로 저장해야 합니다... 어떤 생각이 있으신가요?

감사

크리스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위와 동일하지만 ActiveWorkbook.SaveAs를 "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _로 대체합니다.
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=참
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
귀하의 의견에 감사드립니다. 많은 도움이 되었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
활성 워크시트를 저장하고 싶지만 시트 1 셀 값을 사용하는 경우 무엇을 추가해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
도와주세요... 나는 모든 것을 할 수 있었습니다. 하지만 지정된 서버 대신 내 문서에 문서를 저장합니다...



Private Sub CommandButton1_Click ()
문자열로 희미한 경로
Dim FileName1을 문자열로
Dim FileName2을 문자열로
Dim FileName3을 문자열로
Dim FileName4을 문자열로
Dim FileName5을 문자열로
경로 = "J:\Protection Services\Documents\Booysendal security"
파일 이름1 = 범위("A2")
파일 이름2 = 범위("B2")
파일이름3 = 범위("C2")
파일 이름4 = 범위("D2")
FileName5 = 범위("E2")
ActiveWorkbook.SaveAs 파일 이름:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
보안 뒤와 따옴표 앞에 백슬래시를 추가하십시오... ...security\"
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
파일 이름을 정의하고 싶지만 저장할 때마다 파일 경로를 선택할 수 있는 옵션이 있는 경우 어떻게 하시겠습니까?

또한 파일 이름에 여러 셀을 지정할 수 있습니다. 셀도 병합됩니다.

매번 다른 파일 경로에 저장

파일 이름에 여러 셀 사용
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋아, 시트 내 버튼을 사용하여 잘 작동합니다. 이제 초기 저장 후 정상적으로 저장하기를 원합니다. 이것이 가능합니까? 같은 저장 버튼을 사용 중이신가요?
감사 브루스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀 값을 파일 이름으로 사용하여 여러 시트를 저장하는 매크로를 만드는 방법
감사합니다,
라지브
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 모두!

매크로를 사용하여 동일한 셀, 다른 셀의 반복적인 입력을 어떻게 저장할 수 있습니까?

sheet1에 A1, B1, C1에 데이터를 하루에 n번 입력합니다. sheet2에서 이 모든 레코드를 A2, B2, C2, A3, B3, C3 등으로 저장해야 합니다. Tnx!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 친구,
문제가 있는데 도와줄 사람이 있으면 기쁠 것입니다.
"F" 드라이브와 "ABS" 폴더에 파일이 있습니다. 파일 이름은 "Listdata"입니다.
내 데스크탑의 Excel 파일에서 "ABS" 시트(4,4) 및 셀(1)에서 데이터를 검색하기 위해 셀(2,2)을 원합니다.
아래 코드
하위 Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
최종 하위
하지만 제대로 작동하지 않습니다
고마워 친구
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 코드를 사용하려고 하지만 실행하려고 하면 런타임 1004 오류가 발생하고 행 7이 잘못된 것으로 강조 표시됩니다. ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
이 문제를 어떻게 해결할 수 있습니까? 오피스 365 사용중입니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀룰라 드 레퍼렌시아 estiver em uma outra planilha já aberta를 보고 계십니까? 코모 파소?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕. 나는 그것이 작동할 수 있다는 것에 매우 흥분하지만 나에게는 "BASIC 런타임 오류. Sob-procedure 또는 function procedure not defined"라고 말하고 있습니다. 및 6번째 줄을 나타내는 화살표. 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이미 작동 중인 특정 위치에 특정 이름의 PDF로 저장하기 위한 제어 버튼이 있지만 파일 이름이 활성 시트의 이름에 다른 시트의 특정 셀 값을 더한 것이기 때문에 코드를 수정하고 싶습니다. 어떻게 해야 하나요? 이것은 내가 PDF로 저장하기 위한 것입니다:


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat 유형:=xlTypePDF, _
파일 이름:="\\U:\Documents\My_IT_Stuff\근태\PP11", _
OpenAfterPublish : = 거짓
Application.ScreenUpdating = True
최종 하위

감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
누구든지 솔루션을 도와주세요. 셀이 비어 있지 않으면 출력을 올바르게 얻을 수 있습니다.

비공개 서브 Saveas()

문자열로 희미한 경로

Dim filename1 문자열로



경로 = "C:\사용자\Compwork\"



filename1 = 경로 및 범위("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas 파일 이름1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat 유형:=x1typePDF, 파일 이름:=filename1

Application.DisplayAlerts = 참

액티브워크북.닫기



최종 하위



그러나 내 문제는 예를 들어 셀 값이 NULL인 경우 공백을 남기지 않고 파일 이름을 저장하고 싶습니다. G6 값이 비어 있으면 "G4-H7 VTError" 출력을 원합니다.
이에 접근할 수 있는 방법이 있습니까?


감사.
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호