| 
    
     |  | ▼INA さん: >まずは手作業で出来る部分を全て「マクロの自動記録」しては?
 >掲載しているコードは、部分的ですよね?
 
 INAさん
 上記のアドバイスありがとうございます。掲載しましたコードは、
 データファイルを読み込んで、コピー、値複写、ファイルを閉じる、
 といった作業のすべてです。
 
 個人的にはその作業を繰り返すという作業については後で考えよ
 うと思っているのですが、、、ただもう一度、やってみたら少し
 違いますね、下記のようになりました。もう少し苦闘してみます。
 
 Sub Macro2()
 Range("L3").Select
 Selection.Copy
 Application.WindowState = xlMinimized
 Windows("Book1").Activate
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
 False, Transpose:=False
 Windows("hokkaido_200208.xls").Activate
 ActiveWindow.Close
 End Sub
 
 |  |