|
▼Asaki さん:
>ぴかる さんがサンプルコードをUpされていますので、これをお借りして、
>まずは、ある特定のデータを別のブックのシートにコピーすることを考えましょう。
>
>>Range(行).Select
>の部分を、別シートにコピーのコードに置き換えます。
>
>新規ブック作成
>ある行をコピー
>新規ブックを保存して閉じる
>という手作業を、マクロに記録してみてください。
Range(行).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\g0238\My Documents\Book2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Asaki様、これで良いのでしょうか・・
|
|