Excel VBA質問箱 IV

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

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


9209 / 13644 ツリー ←次へ | 前へ→

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

【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
と作成してみましたが、新規ブックは作成できたのですが、デ−タ−の移動保存ができません。新規ブックを作成し、元のブックからデ−タ−保存する方法が良くわかりません。よろしくご指導願います。

【28658】Re:他のブックへのデ−タ−保存について
質問  MOON  - 05/9/12(月) 8:39 -

引用なし
パスワード
   ▼福岡人 さん:
こんにちは。

>と作成してみましたが、新規ブックは作成できたのですが、デ−タ−の移動保存が
>できません。新規ブックを作成し、元のブックからデ−タ−保存する方法が良くわ
>かりません。よろしくご指導願います。

Sub tenki() の方でデータの移動、保存を行うようですね。
条件さえ合えば、Workbooks.Close の部分まで走りそうに
見えるのですが・・・。
このコードを実行すると、最後に変更保存の確認のダイアログが出ますか?
エラーで止まるなら、そのときのエラーメッセージは?

もう少し情報をいただかないとなんとも言えません。

【28739】Re:他のブックへのデ−タ−保存について
お礼  福岡人 E-MAIL  - 05/9/13(火) 21:05 -

引用なし
パスワード
   いつも仕事の関係でお礼が遅れてすみません。ご意見の通り何回か作成し直しているうちにできるようになりました。初めてのワ−クブックの作成、デ−タ−入力でした。原因は初心者なのでよくわかりませんが、本当にありがとうございました。

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