1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

안녕하세요 날씨가 정말 덥네요.

그래도 오늘은 비가 많이 와서 좀 낫군요. 이제 더위도 한풀 꺽일때가 되었습니다.

잘 지내시죠?


오늘은 VBA 에서 엑셀 파일을 생성하는 방법을 문의 드립니다.

새로운 엑셀 파일을 지정한 폴더에 생성하고 그 파일안에 먼저 열려있는 파일의 데이터를 뿌려주고 싶은데 가능한지요?

좀더 설명을 드리면 A 파일에 모든 데이터가 있고 필요에 따라 (명령버튼의 클릭 같이) 엑셀 파일을 정해진 파일이름으로 생성한 뒤 (파일 B) A 파일의 데이터를 파일 B에 Write 하고 저장하고 싶은 겁니다.


다른 책에서는 이미 존재하는 파일을 찾고 여는 방법은 있는데 신규 파일의 생성은 보지 못한 것 같습니다.

궁금합니다.


그럼 수고하세요.

광복절날 쉬지도 못하고 회사에서 일을 하는...

엑셀대단해 드림.


댓글 '4'

profile

[레벨:30]아별

2012.08.16 16:46:29
*.104.126.21

엑셀대단해님~ 안녕하세요?

 

신규파일의 생성은 의외로 쉽습니다.

Workbooks.Add하셔서 새로운 웍북을 만드시고.. 원하시는 경로에 SaveAs해주시면 새로운 파일이 생깁니다.

 

특정 경로에 파일이 있으면 Open해주고 아니면 새로 만들어주는 코드입니다.

해당 경로에 해당하는 폴더가 없으면 차례 차례 만들어 주는 코드도 포함되어 있사오니..

공부하시기 바랍니다. ^^

 

 

Sub openOrMakeFile()
    '### Created by abyul.com 2012.08.16
    Dim strPath As String, strFile As String
    strPath = "D:\Secret\Hot\Cool\"
    strFile = "아별닷컴쵝오.xlsx"
    If Right(strPath, 1) <> Application.PathSeparator Then strPath = strPath & Application.PathSeparator
    Dim i As Integer, intPosition As Integer: intPosition = 4
    For i = 1 To UBound(Split(strPath, "\")) - 1
        If Dir(Left(strPath, InStr(intPosition, strPath, "\")), vbDirectory) = Empty Then
            MkDir Left(strPath, InStr(intPosition, strPath, "\"))
        End If
        intPosition = InStr(intPosition, strPath, "\") + 1
    Next i
    If Dir(strPath & strFile) = Empty Then
        Workbooks.Add
        ActiveWorkbook.SaveAs strPath & strFile
    Else
        Workbooks.Open strPath & strFile
    End If
End Sub

 

profile

[레벨:30]아별

2019.06.05 21:55:14
*.151.52.211

오랫만에 다시 보는 코드 ㅎㅎ

겸사 겸사.. 특정 경로의 폴더를 순차적으로 만들어주는 코드를 정리해봤습니다.


Sub abMakeFolderPath()

    '### Created by abyul.com 2012.08.16

    Dim strPath As String: strPath = "C:\Secret\Hot\Cool\"

    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

    Dim i As Integer, intPosition As Integer: intPosition = 4

    For i = 1 To UBound(Split(strPath, "\")) - 1

        If Dir(Left(strPath, InStr(intPosition, strPath, "\")), vbDirectory) = Empty Then

            MkDir Left(strPath, InStr(intPosition, strPath, "\"))

        End If

        intPosition = InStr(intPosition, strPath, "\") + 1

    Next i

End Sub


profile

[레벨:30]아별

2019.06.05 21:58:45
*.151.52.211

이 코드를 아래 게시물에서 참조하셨네욤 ㅎㅎ

신기 신기.. ㅎㅎ


https://link2me.tistory.com/695?fbclid=IwAR0_uEl0gEichRqgJ74L7ICbHkF97ATdivIy66KOV77urBdS2Vs7fHxOyBI

[레벨:3]엑셀대단해

2012.08.16 18:53:43
*.173.111.3

그렇군요 Workbook을 Add하고 그냥 Save를 하면 되네요.

전 파일을 먼저 생성하고 그 파일에 데이터를 쓰고 저장하고 등등으로 생각을 했는데...

정말 감사합니다.

역쉬 아별님이십니다.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 12141
480 피벗테이블 피벗테이블 옵션 file [3] [레벨:3]블루짱이 2012-08-29 833
479 VBA .Find Find 함수를 이용한 검색 관련 질문 [1] [레벨:1]YeonG 2012-08-28 1655
478 피벗테이블 함수 관련 질문 드립니다. _ 피벗테이블로 요약하기 기초 file [1] [레벨:3]블루짱이 2012-08-28 799
477 이미지,도형 등 엑셀 이미지 첨부 질문... _ 이미지 첨부시 파일 연결로 엑셀 파일 용량 줄이는 방법 [4] [레벨:2]큰아빠에요 2012-08-28 6868
476 엑셀버그 상대참조 수식 관련해서 질문입니다~ _ 상대참조 복사가 안되는 엑셀 버그 file [3] [레벨:4]요셉 2012-08-27 1318
475 배열수식 엑셀의 신님께 질문드립니다. _ 배열수식으로 데이터 왼쪽 정렬로 표시하기 file [3] [레벨:1]현구 2012-08-24 1021
474 엑셀수식 고수님들 도와주세요 ~ 엑셀에서 글자색에 따른 if함수 수식 가능해요? [1] [레벨:1]관절결림 2012-08-23 2880
473 VBA 엑셀 다른파일 비교하기 2 [2] [레벨:6]파이스 2012-08-23 2588
472 차트 추세선 시작점, 그래프 시작과 맞추는 법 imagefile [2] [레벨:4]쟈니 2012-08-21 3004
471 엑셀일반 엑셀 숨겨진데이터에 맞춰서 내용붙여넣기 방법문의요^^ [3] [레벨:1]가까이하기엔먼엑셀 2012-08-16 1077
» VBA 파일&폴더 파일 만들기 _ 파일 생성, 폴더 생성, 파일 존재하는지 여부 확인 등 [4] [레벨:3]엑셀대단해 2012-08-15 3603
469 엑셀수식 제가 질문을 잘못 드린것 같아요? file [4] [레벨:2]북곰 2012-08-14 937
468 엑셀수식 엑셀 질문 입니다? file [1] [레벨:2]북곰 2012-08-13 711
467 엑셀수식 공백에만 동일한 함수 넣기! [4] [레벨:3]jmsynn 2012-08-13 1035
466 pivot 다중범위통합 ㅠㅠ 할수없이 _ 피벗테이블 다중 통합 범위 [4] [레벨:5]눈물바다 2012-08-08 2460
465 엑셀수식 수식질문이욤.ㅠㅠ [1] [레벨:5]눈물바다 2012-08-08 853
464 엑셀일반 특정 조건에 맞는 행(또는 열) 삭제 방법 궁금해요~ [2] [레벨:3]jmsynn 2012-08-07 2115
463 VBA .Find 주소 검색기 이름중복검색 file [3] [레벨:1]최종원 2012-08-07 1848
462 VBA sub과function차이 [4] [레벨:2]snail0513 2012-08-07 1324
461 엑셀수식 mid len 함수 질문욤^^ [1] [레벨:5]눈물바다 2012-08-06 802