ファルダ内ループについて教えてください。
グラフファイル@8ファイル”最大値”シートを、「計測内容」と言うファイルの”変位最大値”
へ書込みをしようとしています。
そのうちの一つについては、書込み成功しました。
Sub Book_Data_Copy2()
Dim wb_A As Workbook, wb_B As Workbook
Dim ws_A_HeniIchiran As Worksheet, ws_B_Saidai As Worksheet
'使用するブック、シートを変数に設定する。
Set wb_A = ActiveWorkbook '計測内容ファイル
Set wb_B = Workbooks.Open("C:\○良1908-11グラフ.xlsm") '最終的には、フォルダループしたい
Set ws_A_HeniIchiran = wb_A.Worksheets("変位一覧表")
Set ws_B_Saidai = wb_B.Worksheets("最大値")
'グラフからコピー
ws_B_Saidai.Activate '最大値をActiveにする
Range("I4:K5").Select '最大値の最初の項目が入っているセルを選択。ここは、全ファイル共通
Selection.Copy
'計測内容ファイルにペースト
wb_A.Activate '計測内容ファイルに移って
ws_A_HeniIchiran.Activate '変位一覧表シートをActivate
Range("C7").Select '変位量Xが入っているセルを選択。
ここは、ファイルが順番通り開く前提で+2づつ増やす。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wb_B.Activate '元のブックに戻る
Range("J3").Select
ActiveWorkbook.Save
wb_A.Activate '元のブックに戻る
Range("J3").Select
ActiveWorkbook.Save
'グラフからコピー
ws_B_Saidai.Activate '最大値をActiveにする
Range("L4:M5").Select '変位量Z-XとZ-Yが入っているセルまとめて選択。ここは、全ファイル共通
Application.CutCopyMode = False
Selection.Copy
'計測内容ファイルにペースト
wb_A.Activate '計測内容ファイルに移って
ws_A_HeniIchiran.Activate '変位一覧表シートをActivate
Range("F7:G8").Select '変位量Z-XとZ-Yが入っているセルまとめて選択。ここは、ファイルが順番通り開く前提で+2づつ増やす。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wb_B.Activate '元のブックに戻る
Range("J3").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
wb_A.Activate '元のブックに戻る
Range("H3").Select
ActiveWorkbook.Save
End Sub |
---|
ただ、このままだとあまりいいプログラムとは思えないのでアドバイスもお願いします。
そして、フォルダ内を、ループする方法もご教示願います
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/11/17 10:46
2015/11/17 11:29
2015/11/17 12:28
2015/11/17 23:39
2015/11/18 00:47
2015/11/18 02:24
2015/11/18 03:05
2015/11/18 05:29
2015/11/18 06:01