Excel VBA質問箱 IV

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

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


14499 / 76734 ←次へ | 前へ→

【67729】Re:パスワードが設定された複数ブック内のデータを一括してコピー貼り付けする
回答  UO3  - 11/1/5(水) 18:26 -

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

こんにちは

元ブックを開かないで処理を行う案です。
かんたんなテストしかしていないのでバグあればご容赦。

Sub Sample()
  Dim fPath As String  '元ブックのパス
  Dim tPath As String  '先ブックのパス
  Dim fPre As String  '元ブックの統一名
  Dim tPre As String  '先ブックの統一名
  Dim i As Long
  Dim shn As Variant
  
  Application.ScreenUpdating = False
  
  fPath = "c:\Test1\"  '実際の名前に
  tPath = "c:\Test2\"  '実際の名前に
  fPre = "元"
  tPre = "先"
  
  For i = 1 To 20
    Workbooks.Open tPath & tPre & i & ".xls", Password:="abc"
    For Each shn In Array("A", "B", "C", "D")
      With Worksheets(shn).Range("G5").Resize(50)
        .Formula = "='" & fPath & "[" & fPre & i & ".xls]" & shn & "'!A1"
        .Value = .Value
      End With
    Next
    ActiveWorkbook.Close True
  Next
  
  Application.ScreenUpdating = True
  
  MsgBox "処理が終了しました。"
  
End Sub

4 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 お礼

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