Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25046 / 76736

←次へ　｜　前へ→


	【57035】Re:リンクの更新

菜実 - 08/7/18(金) 10:02 -


	引用なし

	パスワード

おはようございます。
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

0 hits

▼

【56990】リンクの更新 菜実 08/7/16(水) 16:26