Excel VBA質問箱 IV

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

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


25042 / 76732 ←次へ | 前へ→

【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 質問
【57002】Re:リンクの更新 ハチ 08/7/17(木) 9:16 発言
【57003】Re:リンクの更新 菜実 08/7/17(木) 9:39 発言
【57005】Re:リンクの更新 ハチ 08/7/17(木) 11:16 発言
【57007】Re:リンクの更新 菜実 08/7/17(木) 11:31 お礼
【57009】Re:リンクの更新 ハチ 08/7/17(木) 13:01 発言
【57013】Re:リンクの更新 菜実 08/7/17(木) 13:58 お礼
【57035】Re:リンクの更新 菜実 08/7/18(金) 10:02 質問
【57036】Re:リンクの更新 ハチ 08/7/18(金) 11:17 発言
【57043】【訂正】Re:リンクの更新 ハチ 08/7/18(金) 17:08 発言
【57074】Re:【訂正】Re:リンクの更新 菜実 08/7/22(火) 9:39 お礼

25042 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free