|
|
엑쎌 마크로... -_-....
터미널 
조회 :
2160 ,
2009/09/23 04:27 |
|
|
|
화학과 학생이다 보니, 프로그래밍 능력이 없어서,
노가다좀 했습니다. -_-;;
인터넷에서 파일 읽는 소스 긁고,
파일 읽으면 나머지는 완전 노가다.. -_-;;;
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 문같은거 사용법 알면 좀 쉽게 하겠건만 -_-;;;
교수님 지령때문에 울며 겨자먹기로 엑셀 메크로 짰습니다. -_-;;;
화학과 학생에게 웨 저런걸 시키는지 -_-....
|
|
|
|
