OfficeTutor 365

액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    cycy (cyko) 추천:  4 파일:     Appoinmetestt(2).xls (53KB) 조회:  3897 제목:   특정 셀값을 텍스트 파일 제목으로 하고 그 텍스트 파일에 다른 셀값 내용을 저장 방법
안녕하세요. 제가 액세스를 잘 몰라서요.. 첨부된 파일은 엑셀 파일입니다만, 사실은 위의 데이터가 액세스를 엑셀로 변환한 자료입니다. 그 데이터를 엑셀로 옮기니 D열의 데이터가 많은 경우 내용의 일부가 잘립니다. 혹시 액세스에서도 매크로 가능하다면 알려주시면 더욱 감사하겠습니다. 엑셀 묻고 답하기에 물었는데 답변이 없습니다. 엑셀에 데이터가 아래와 같은 순서로 되어 있습니다. A열 : 제목 B열 : 시작일 C열 : 종료일 D열 : 실제 내용 위 데이터를 B열 + A열의 순서로 텍스트파일의 제목으로 만들고, 그 텍스트 파일 안에는  B열 + C열 + A열(줄바꿈) D열  이렇게 출력하고 싶습니다. 아래와 같이 코딩을 했습니다만 실행이 되질 않습니다. 고수님들의 도움 부탁 드립니다. 저희 회사는 근무시간에 오튜 접속이 안됩니다. arow = Range("A65536").End(xlUp).Row For a = 1 To arow Open ThisWorkbook.Path & Application.PathSeparator & Cells(a, 2) & Cells(a, 1) & ".txt" For Output As #1             VarData = Cells(a, 2).Value & Cells(a, 3).Value & Cells(a, 1).Value & Chr(10) & Cells(a, 4).Value                 Write #1, VarData; Close #1 Next a 　 [불량 게시물 신고]
slgi Sub aa() arow = Range("A65536").End(xlUp).Row For a = 1 To arow 'Open ThisWorkbook.Path & Application.PathSeparator & Cells(a, 2) & Cells(a, 1) & ".txt" For Output As #a Open "d:" & Application.PathSeparator & "abc" & a & ".txt" For Output As #1             VarData = Cells(a, 2).Value & Cells(a, 3).Value & Cells(a, 1).Value & vbCrLf & Cells(a, 4).Value             Write #1, VarData;                           Close #1 Next a End Sub 안녕하세요 아마 파일경로를 나타내는 cell에 whitespace 같은게 들어가서 문제를 일으키는것 같네요 01-13 (15:47) ⓧ삭제 ■신고 cycy slgi님 답변감사합니다. 그런데 텍스트파일명을 Cells(a, 2) & Cells(a, 1) & ".txt"형식으로는 불가하단 말씀이신가요? 제가 이해를 잘 못하겠습니다.. 다시한번 도움 부탁드립니다. 01-13 (22:43) ⓧ삭제 ■신고 slgi 문제의 원인은 파일명으로 사용되어서는 안되는 문자가 들어갔습니다. ":" 문자이지요 이문자를 다른 문자로 바꾸어 사용하시면 정상적으로 파일이 만들어집니다. 아래 Replace를 참조하세요  Sub aa() Dim filename As String arow = Range("A65536").End(xlUp).Row For a = 1 To arow filename = Application.PathSeparator & Cells(a, 2) & Cells(a, 1) & ".txt" filename = ThisWorkbook.Path & Replace(filename, ":", "_") 'MsgBox filename Open filename For Output As #1             VarData = Cells(a, 2).Value & Cells(a, 3).Value & Cells(a, 1).Value & vbCrLf & Cells(a, 4).Value             Write #1, VarData; Close #1 Next a End Sub 01-16 (10:23) ⓧ삭제 ■신고 cycy slgi님 감사합니다.. 임진년 대박나시길.. 01-22 (14:54) ⓧ삭제 ■신고
작성일 : 2012-01-11(18:17) 최종수정일 : 2012-01-11(18:17)