|
커뮤니티
|
|
커뮤니티 추천게시물
운영진 선정 | 추천순 | 최근댓글달린순 | 갤러리(포토)
커뮤니티 추천게시물
운영진 선정 | 추천순 | 최근댓글달린순 | 갤러리(포토)
커뮤니티 추천게시물
운영진 선정 | 추천순 | 최근댓글달린순 | 갤러리(포토)
커뮤니티 추천게시물
운영진 선정 | 추천순 | 최근댓글달린순 | 갤러리(포토)
|
|
|
|
|
 |
|
화학과 학생이다 보니, 프로그래밍 능력이 없어서,
노가다좀 했습니다. -_-;;
인터넷에서 파일 읽는 소스 긁고,
파일 읽으면 나머지는 완전 노가다.. -_-;;;
Workbooks.Open Filename:=strFilePath & "\BufR101.csv"
Workbooks.Open Filename:=strFilePath & "\BufR102.csv"
Workbooks.Open Filename:=strFilePath & "\BufR103.csv"
Workbooks.Open Filename:=strFilePath & "\BufR104.csv"
Workbooks.Open Filename:=strFilePath & "\BufR105.csv"
Workbooks.Open Filename:=strFilePath & "\BufR106.csv"
Workbooks.Open Filename:=strFilePath & "\BufR107.csv"
Workbooks.Open Filename:=strFilePath & "\BufR108.csv"
Workbooks.Open Filename:=strFilePath & "\BufR109.csv"
Workbooks.Open Filename:=strFilePath & "\BufR110.csv"
Workbooks.Open Filename:=strFilePath & "\BufR111.csv"
Workbooks.Open Filename:=strFilePath & "\BufR112.csv"
Workbooks.Open Filename:=strFilePath & "\BufR113.csv"
Workbooks.Open Filename:=strFilePath & "\BufR114.csv"
Workbooks.Open Filename:=strFilePath & "\BufR115.csv"
Windows("BufR101.csv").Activate
Range("A23:B197").Copy
Windows("Book2.xlsm").Activate
Sheets("Red_1").Select
Range("A2").Select
ActiveSheet.Paste
Windows("BufR102.csv").Activate
Range("B23:B197").Copy
Windows("Book2.xlsm").Activate
Sheets("Red_1").Select
Range("F2").Select
ActiveSheet.Paste
Windows("BufR103.csv").Activate
Range("B23:B197").Copy
Windows("Book2.xlsm").Activate
Sheets("Red_1").Select
Range("J2").Select
ActiveSheet.Paste
Windows("BufR104.csv").Activate
Range("B23:B197").Copy
Windows("Book2.xlsm").Activate
Sheets("Red_1").Select
Range("N2").Select
ActiveSheet.Paste
(중략)
ActiveWindow.Close
Windows("BufR112.csv").Activate
ActiveWindow.Close
Windows("BufR113.csv").Activate
ActiveWindow.Close
Windows("BufR114.csv").Activate
ActiveWindow.Close
Windows("BufR115.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
그나마 Ctrl + C, Ctrl + V 신공으로 대부분을 해결했네요.. -_-;;
for 문같은거 사용법 알면 좀 쉽게 하겠건만 -_-;;;
교수님 지령때문에 울며 겨자먹기로 엑셀 메크로 짰습니다. -_-;;;
화학과 학생에게 웨 저런걸 시키는지 -_-....
|
|
|
|
| 이 게시물의 댓글 보기 |
|
 |
|
| 추천제안내 |
좋은 게시물에는 추천을 할 수 있습니다.추천이 5 이상이면 메인페이지 헤드라인에 게시물을 걸어 드립니다.
적립된 포인트로 진행중인 이벤트에 참여하시어 경품을 받아가실 수 있습니다.
포인트안내 글작성 : 20점, 추천클릭 : 2점, 추천받은사람 2점, 댓글작성 : 4점 (2008.12.29일부터) |
|
|
|
|
|
|
