|
おはようございます。
Dataというシートをあらかじめ用意して
そこに別のブックの必要な場所のデータを転記することにしました。
コードを書いてみたものの何か自分が勘違いしていないか不安で、
変なところがないか見ていただけませんか?
また、悩んでいるのですが、ファイルを開いたときにこのマクロを実行させたいと
考えています。
その場合はどうしたらいいかアドバイスください。
Sub 更新()
Dim i As Worksheet
Dim j As Worksheet
Dim k As Worksheet
Application.ScreenUpdating = False
Sheets("Data").Cells.ClearContents
Set i = Workbooks.Open(ThisWorkbook.Path & "AAA.xls").Worksheets("設定")
Set j = Workbooks("BBB.xls").Worksheets("Data")
With j
.Range("C1").Value = i.Range("b1")
.Range("C2").Value = i.Range("b3")
.Range("d2").Value = i.Range("c3")
.Range("C3").Value = i.Range("b5")
.Range("C4").Value = i.Range("a24")
.Range("d4").Value = i.Range("b24")
.Range("C5").Value = i.Range("c9")
.Range("d5").Value = i.Range("d9")
.Range("e5").Value = i.Range("e9")
.Range("f5").Value = i.Range("f9")
.Range("g5").Value = i.Range("g9")
.Range("h5").Value = i.Range("h9")
.Range("C6").Value = i.Range("c24")
.Range("d6").Value = i.Range("d24")
.Range("e6").Value = i.Range("e24")
.Range("f6").Value = i.Range("f24")
.Range("g6").Value = i.Range("g24")
.Range("h6").Value = i.Range("h24")
.Range("i6").Value = i.Range("i24")
.Range("j6").Value = i.Range("j24")
End With
Workbooks("AAA.xls").Close False
Set j = Nothing
Set k = Workbooks.Open("\\PPP\QQQ\RRR\SSS\TTT\UUU\コード一覧.xls").Worksheets("List")
Set j = Workbooks("BBB.xls").Worksheets("Data")
With j
j.Range(j.Cells(1, 1), j.Cells(65536, 2)).Value = _
k.Range(k.Cells(1, 1), k.Cells(65536, 2)).Value
End With
Workbooks("コード一覧.xls").Close False
Set j = Nothing
End Sub
|
|