Excel VBA質問箱 IV

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

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


14504 / 76738 ←次へ | 前へ→

【67728】Re:パスワードが設定された複数ブック内のデータを一括してコピー貼り付けする
発言  momo  - 11/1/5(水) 13:45 -

引用なし
パスワード
   ▼ケメ子 さん:
こんにちは

>一番効率のよい方法などをご教示いただけると幸いです。

効率の良さはわかりませんが、一般的なサンプルを載せてみます
単純に開いてコピペして保存する。を繰り返すコードです。

 Sub test()
 Const myPath As String = "D:\test\"
 Dim i As Long
 Dim shName As Variant
 Dim wbA As Workbook, wbB As Workbook
 Application.ScreenUpdating = False
 For i = 1 To 20
  Set wbA = Workbooks.Open(myPath & "元" & i & ".xls")
  Set wbB = Workbooks.Open(myPath & "先" & i & ".xls", Password:="abc")
  For Each shName In Array("A", "B", "C", "D")
   wbA.Worksheets(shName).Range("A1:A50").Copy _
    wbB.Worksheets(shName).Range("G5")
  Next shName
  wbA.Close False
  wbB.Close True
 Next i
 Application.ScreenUpdating = True
 End Sub

1 hits

【67726】パスワードが設定された複数ブック内のデータを一括してコピー貼り付けする ケメ子 11/1/4(火) 22:04 質問
【67728】Re:パスワードが設定された複数ブック内の... momo 11/1/5(水) 13:45 発言
【67729】Re:パスワードが設定された複数ブック内の... UO3 11/1/5(水) 18:26 回答
【67733】Re:パスワードが設定された複数ブック内の... ケメ子 11/1/5(水) 22:17 質問
【67734】Re:パスワードが設定された複数ブック内の... UO3 11/1/5(水) 22:23 発言
【67735】Re:パスワードが設定された複数ブック内の... ケメ子 11/1/5(水) 23:21 回答
【67738】Re:パスワードが設定された複数ブック内の... UO3 11/1/6(木) 10:43 回答
【67759】Re:パスワードが設定された複数ブック内の... ケメ子 11/1/6(木) 19:57 質問
【67760】原因がわかりました ケメ子 11/1/6(木) 21:28 質問
【67765】Re:原因がわかりました UO3 11/1/7(金) 6:47 回答
【67768】Re:原因がわかりました UO3 11/1/7(金) 9:17 回答
【67780】Re:原因がわかりました ケメ子 11/1/7(金) 21:39 発言
【67781】Re:原因がわかりました UO3 11/1/7(金) 22:33 回答
【67783】Re:原因がわかりました ケメ子 11/1/7(金) 23:31 お礼

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