Excel VBA質問箱 IV

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

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


52904 / 76736 ←次へ | 前へ→

【28657】他のブックへのデ−タ−保存について
質問  福岡人 E-MAIL  - 05/9/12(月) 5:59 -

引用なし
パスワード
   基本のブックで入力デ−タ−を作成し個人別に他のブックに保存したいと思ってマクロを作成しましたが上手くいきません。
 まづ新しいデ−タ−保存のための個人別新規ブックの作成
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
と作成してみましたが、新規ブックは作成できたのですが、デ−タ−の移動保存ができません。新規ブックを作成し、元のブックからデ−タ−保存する方法が良くわかりません。よろしくご指導願います。
0 hits

【28657】他のブックへのデ−タ−保存について 福岡人 05/9/12(月) 5:59 質問
【28658】Re:他のブックへのデ−タ−保存について MOON 05/9/12(月) 8:39 質問
【28739】Re:他のブックへのデ−タ−保存について 福岡人 05/9/13(火) 21:05 お礼

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