|
基本のブックで入力デ−タ−を作成し個人別に他のブックに保存したいと思ってマクロを作成しましたが上手くいきません。
まづ新しいデ−タ−保存のための個人別新規ブックの作成
sub bookmake()
Dim a as string
Application.SheetsInNetworkbook=1
Workbooks.Add
a=Workbooks("各出席数").Worksheets("基本").Range("J8").Value
b=Workbooks("各出席数").Worksheets("基本").Range("F8").Value
ActiveWorkbook.SavesAs Filename=a
Workbooks(a).Worksheets("sheet1").Name=b
call Sheetmake
ActiveWorkbook.Close
End sub
その後、
各個人のデ−タ−をこの新規作成したブックのシ−トに入力
Sub tenki()
Dim c as String
Workbooks("各出席数").Worksheets("基本").Activate
c=Range("J8").value
Workbooks.Open c
d=Workbooks("各出席数").Worksheets("基本").Range("C8").Value
Workbooks(c).Activate
Workbooks(c).Worksheets(d).Range("c3")=Workbooks("各出席数").Worksheets("基本").Range("C8").Value
Workbooks(c).Worksheets(d).Range("c5")=Workbooks("各出席数").Worksheets("基本").Range("C9").Value
Workbooks.Close
End Sub
と作成してみましたが、新規ブックは作成できたのですが、デ−タ−の移動保存ができません。新規ブックを作成し、元のブックからデ−タ−保存する方法が良くわかりません。よろしくご指導願います。
|
|