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 61897
53 VBA 혹시 어떤 문서에서 특정 단어를 추출하는 것이 가능할까요? [2] [레벨:1]하얀모래 2014-02-25 4227
52 VBA 같은데이타 병합 file [2] [레벨:4]고수가되고파 2013-01-21 4232
51 VBA REPORT 형식을 변형하고 싶은데 한번 봐주세요 file [7] [레벨:1]예진 2013-04-09 4257
50 VBA .Find find 문을 공부하던도중 문제하가잇어서 질문올립니다. file [2] [레벨:4]신강현 2013-03-22 4258
49 VBA .Find 랜덤 컨틀로바질문입니다.. [3] [레벨:4]신강현 2013-01-21 4301
48 VBA 필터된 데이터 가져오기 시 문제점 [5] [레벨:3]엑셀대단해 2012-07-23 4352
47 VBA 엑셀 질문드립니다. file [2] [레벨:1]박상민 2014-02-14 4413
46 VBA 파일&폴더 리본메뉴 폴더 열기 [3] [레벨:5]맑은이슬 2013-04-13 4456
45 VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 file [1] [레벨:4]부루끄 2011-07-26 4495
44 VBA 파일&폴더 VBA 수정하여 사용하다가 막혀서 문의드립니다. file [2] [레벨:1]예진 2012-11-23 4515
43 VBA 파일&폴더 엑셀파일명으로 검색하여 링크걸기 file [1] [레벨:2]광택입니다 2012-09-29 4522
42 VBA 진행바 응용(다른 메뉴 실행중) _ 작업 진행바 Progress bar file [3] [레벨:5]맑은이슬 2013-02-02 4557
41 VBA 아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리) file [3] [레벨:2]북곰 2013-04-06 4630
40 VBA VBA 서적 추천좀 해주세요 [1] [레벨:1]김학래 2013-04-01 4650
39 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 4651
38 VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. file [3] [레벨:1]마리너 2012-07-05 4694
37 VBA 아별님 안녕하세요 file [레벨:2]북곰 2014-07-09 4718
36 VBA vba 방향키 질문입니다 [4] [레벨:4]기능인 2013-07-11 4747
35 VBA 오늘도 질문!^^있습니다. [레벨:2]정용규 2015-01-19 4769
34 VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5] [레벨:4]부루끄 2011-07-15 4932