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
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40187
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 53734
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33139
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 26717
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 14255
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13153
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 12873
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12555
814 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 10880
813 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 10838
812 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 10688
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10348
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10329
809 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10168
808 엑셀 주식형 차트 2009-08-17 9904
807 엑셀에서 특정데이터 불러오기 [1] [레벨:1]쒸뱅이 2009-07-17 9858
806 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 9779
805 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 9729
804 두 자료를 비교하여 같은 값을 다른 시트에... file [1] [레벨:1]프로도 2010-05-11 9652
803 시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1] [레벨:1]잔차 2010-02-10 9616