로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
예를들어서
홍길동 서울시 010-111-2222
전우치 대구시 010-333-4444
라고 있을때
엑셀에서 이 파일을 불러들여서
| 홍길동 | 서울시 | 010-111-2222 |
| 전우치 | 대구시 | 010-333-4444 |
이런식으로 할 수 있나요??
2009.11.24 20:46:42 *.130.73.75
메뉴에서 파일 > 열기 하시고 파일형식은 "모든파일(*.*)"로 변경하신 다음 텍스트파일을 열면,
텍스트마법사가 뿅~하고 나타납니다.
원본데이터형식을 "구분 기호로 분리됨"으로 하시고, 다음 버튼 누르시고..
구분 기호에서 "공백(S)"체크하시고 마침 누르시면 원하시는 결과가 나올겁니다.
매크로로 기록하면 아래처럼 나오네요.
Sub openTextFile() Workbooks.OpenText Filename:="D:\DeskTop\test.txt", Origin:=949, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _ , 1)), TrailingMinusNumbers:=TrueEnd Sub
새 창으로
선택한 기호
차트 차트 질문 드립니다. [3]
여러가지 품목을 2가지 이상 부분합 하는 방법이 있나요? [2]
SUMIF에 범위를 주고 싶습니다. [1]
VBA VBA 서적 추천좀 해주세요 [1]
엑셀일반 엑셀로 확률도 구할수있나요? [1]
엑셀일반 궁금한게 있습니다...급합니다..ㅠㅠ
셀서식(표시형식) 다른 시트에서 조건을 만족하면 해당시트 셀에서 색칠하거나 글씨 표시하기 [2]
VBA 외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법 [7]
셀서식(표시형식) [분류문의] 데이터 유효성검사를 이용해 분류를 만든 다음에 특정셀 값 입력 [1]
VBA 2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다! [3]
엑셀일반 부분합 질문이요 [1]
함수가 들어간 셀의 합 [1]
VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]
배열수식 데이타 정열관련 질문 드립니다. _ offset과 배열 수식을 이용하여 최근 값을 순차적으로 갖고 오는 방법.. [3]
추가기능(AddIns) 리본메뉴 만들기(버턴 여러개 넣기) [6]
엑신께..문의합니다. [2]
엑셀일반 엑셀로 임대료 계산 질문입니다. [2]
차트 시작일과 종료일만으로 자동 일정 그래프 작성하기 [1]
엑셀 문의드립니다. [2]
엑셀일반 새해맞이 기념 연속채우기 관련 질문입니다. [2]
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:130point (14%), 레벨:1/30"){kind=icon}
이천
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142726point, 레벨:30/30"){kind=icon}
아별
메뉴에서 파일 > 열기 하시고 파일형식은 "모든파일(*.*)"로 변경하신 다음 텍스트파일을 열면,
텍스트마법사가 뿅~하고 나타납니다.
원본데이터형식을 "구분 기호로 분리됨"으로 하시고, 다음 버튼 누르시고..
구분 기호에서 "공백(S)"체크하시고 마침 누르시면 원하시는 결과가 나올겁니다.
매크로로 기록하면 아래처럼 나오네요.
Sub openTextFile()
Workbooks.OpenText Filename:="D:\DeskTop\test.txt", Origin:=949, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1)), TrailingMinusNumbers:=True
End Sub