한 책의 범위를 다른 책의 지정된 위치에 복사합니다.
이번에 만든 것은
「같은 폴더내에 있는 「○○리스트.xlsx」의 임의의 시트 내용을 각각 다른 파일에 전기한다」
입니다.
VBA의 코드는 같은 폴더 내에 『검증용 매크로.xlsm』이라는 파일을 준비해 거기에 기술해 갑니다.
(이것을 향후 공부하면서 개수해 나갈 예정입니다.)
상품 마스터
고객 마스터
(왼쪽 데이터를 오른쪽으로 전기하고 저장하고 싶습니다)
코드
Sub tenki()
'○○一覧を開く
Workbooks.Open ThisWorkbook.Path & "\○○一覧.xlsx"
'商品マスタに転記
Worksheets("商品マスタ").Activate
Cells(1, 1).Activate
Worksheets("商品マスタ").UsedRange.Copy
Workbooks.Open ThisWorkbook.Path & "\商品マスタYYMMDD.xlsx"
Worksheets("データ").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
'顧客マスタに転記
Worksheets("顧客マスタ").Activate
Cells(1, 1).Activate
Worksheets("顧客マスタ").UsedRange.Copy
Workbooks.Open ThisWorkbook.Path & "\顧客マスタYYMMDD.xlsx"
Worksheets("データ").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
'○○一覧を閉じる
ActiveWindow.Close
End Sub
흠・・・더 간단하게 할 수 있을 것입니다만, 지금의 나에서는 이것이 굉장합니다!
매크로의 기록에서는 북명·시트명이 등록되지 않기 때문에, 거기에 적절한 것을 넣어, 필요없는 부분을 삭제해 편집했습니다.
· 참고로 한 책
VBA 전문가 공식 텍스트 Excel VBA 기본
h tps : // v. 오 dyse y-ko m. 이. jp / s dy / / xt. HTML
1개월 후에는 이 코드가 부끄러워질 정도로 성장하고 싶습니다.
(오늘은 Qiita 첫 포스트였습니다)
Reference
이 문제에 관하여(한 책의 범위를 다른 책의 지정된 위치에 복사합니다.), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/m_kudou/items/2f972241921ceac716fa텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)