Excel VBA質問箱 IV

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

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


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

【26229】コマンドボタンクリックで保存 琴葉 05/6/28(火) 16:45 質問[未読]
【26232】Re:コマンドボタンクリックで保存 ichinose 05/6/28(火) 18:09 発言[未読]
【26234】Re:コマンドボタンクリックで保存 琴葉 05/6/29(水) 9:43 お礼[未読]
【26244】Re:コマンドボタンクリックで保存 琴葉 05/6/29(水) 13:50 質問[未読]
【26245】Re:コマンドボタンクリックで保存 琴葉 05/6/29(水) 13:56 お礼[未読]
【26246】Re:コマンドボタンクリックで保存 琴葉 05/6/29(水) 14:04 お礼[未読]

【26229】コマンドボタンクリックで保存
質問  琴葉  - 05/6/28(火) 16:45 -

引用なし
パスワード
   現在開かれているWorkbook(1) sheet(1)

  A   B   C   D
1 山田 1月1日
2
3
4
の時に、コマンドボタンクリックで新規ワークブックにて保存(とりあえずマイドキュメント)
その際にブック名 山田  シート名 1月1日 で保存したいです。


さらにWorkbook(2) sheet(1)
  A   B   C   D
1 山田 3月3日
2
3
4
ブック名 山田  シート名 3月3日 としたいのですが、すでに山田ブックがある場合、3月3日のしーとだけ追加することは出来ますでしょうか?
よろしくお願いいたします。

『書き込みの仕方、表現など適切でないところはここでお詫びいたします』

【26232】Re:コマンドボタンクリックで保存
発言  ichinose  - 05/6/28(火) 18:09 -

引用なし
パスワード
   ▼琴葉 さん:
こんばんは。

>現在開かれているWorkbook(1) sheet(1)
>
>  A   B   C   D
>1 山田 1月1日
>2
>3
>4
>の時に、コマンドボタンクリックで新規ワークブックにて保存(とりあえずマイドキュメント)
>その際にブック名 山田  シート名 1月1日 で保存したいです。
>
>
>さらにWorkbook(2) sheet(1)
>  A   B   C   D
>1 山田 3月3日
>2
>3
>4
>ブック名 山田  シート名 3月3日 としたいのですが、すでに山田ブックがある場合、3月3日のしーとだけ追加することは出来ますでしょうか?
>よろしくお願いいたします。
このコピーしたいシートをアクティブにした状態で以下のコードを
実行して下さい。
'=============================================================
Sub copy_and_save()
  Dim bknm As String
  Dim shtnm As String
  Dim bk As Workbook
  With ActiveSheet
   bknm = .Range("a1").Value
   shtnm = Format(.Range("b1").Value, "m""月""d""日""")
   On Error Resume Next
   Set bk = Workbooks.Open("D:\My Documents\" & bknm & ".xls")
   If Err.Number <> 0 Then
     .Copy
     With ActiveWorkbook.ActiveSheet
      .Name = shtnm
      .Parent.SaveAs "D:\My Documents\" & bknm & ".xls"
      .Parent.Close
      End With
   Else
     Err.Clear
     .Copy after:=bk.Worksheets(bk.Worksheets.Count)
     With bk
      .Worksheets(.Worksheets.Count).Name = shtnm
      If Err.Number <> 0 Then
        MsgBox Err.Description
        .Close False
      Else
        .Close True
        End If
      End With
     End If
   End With
End Sub

フォルダ名は、"D:\My Documents\"になっていますから、適当に
変更して下さい。
エラーチェックは、大雑把にしかしていませんよ!!

【26234】Re:コマンドボタンクリックで保存
お礼  琴葉  - 05/6/29(水) 9:43 -

引用なし
パスワード
   ▼ichinose さん:
>▼琴葉 さん:
>こんばんは。
>
>>現在開かれているWorkbook(1) sheet(1)
>>
>>  A   B   C   D
>>1 山田 1月1日
>>2
>>3
>>4
>>の時に、コマンドボタンクリックで新規ワークブックにて保存(とりあえずマイドキュメント)
>>その際にブック名 山田  シート名 1月1日 で保存したいです。
>>
>>
>>さらにWorkbook(2) sheet(1)
>>  A   B   C   D
>>1 山田 3月3日
>>2
>>3
>>4
>>ブック名 山田  シート名 3月3日 としたいのですが、すでに山田ブックがある場合、3月3日のしーとだけ追加することは出来ますでしょうか?
>>よろしくお願いいたします。
>このコピーしたいシートをアクティブにした状態で以下のコードを
>実行して下さい。
>'=============================================================
>Sub copy_and_save()
>  Dim bknm As String
>  Dim shtnm As String
>  Dim bk As Workbook
>  With ActiveSheet
>   bknm = .Range("a1").Value
>   shtnm = Format(.Range("b1").Value, "m""月""d""日""")
>   On Error Resume Next
>   Set bk = Workbooks.Open("D:\My Documents\" & bknm & ".xls")
>   If Err.Number <> 0 Then
>     .Copy
>     With ActiveWorkbook.ActiveSheet
>      .Name = shtnm
>      .Parent.SaveAs "D:\My Documents\" & bknm & ".xls"
>      .Parent.Close
>      End With
>   Else
>     Err.Clear
>     .Copy after:=bk.Worksheets(bk.Worksheets.Count)
>     With bk
>      .Worksheets(.Worksheets.Count).Name = shtnm
>      If Err.Number <> 0 Then
>        MsgBox Err.Description
>        .Close False
>      Else
>        .Close True
>        End If
>      End With
>     End If
>   End With
>End Sub
>
>フォルダ名は、"D:\My Documents\"になっていますから、適当に
>変更して下さい。
>エラーチェックは、大雑把にしかしていませんよ!!

ichinoseさん、ありがとうございます。
ほかの仕事が入ってしまったため、後ほど作業してみます。

【26244】Re:コマンドボタンクリックで保存
質問  琴葉  - 05/6/29(水) 13:50 -

引用なし
パスワード
   ▼ichinose さん:

今確認しましたら、新規(初めて)ですとうまく保存できました。
山田ブックがすでにあるときに、日付がちがうシートの追加が出来ず、上書き保存になってしまいます。

どうしてなんでしょうか?    よろしくお願いいたします。

【26245】Re:コマンドボタンクリックで保存
お礼  琴葉  - 05/6/29(水) 13:56 -

引用なし
パスワード
   ▼琴葉 さん:
>▼ichinose さん:
>
>今確認しましたら、新規(初めて)ですとうまく保存できました。
>山田ブックがすでにあるときに、日付がちがうシートの追加が出来ず、上書き保存になってしまいます。
>
>どうしてなんでしょうか?    よろしくお願いいたします。

すみません、うまく動作いたしました。
保存場所の記述を記入ミスしていました、申し訳ありません。

ichinoseありがとうございました、又質問させてください。

【26246】Re:コマンドボタンクリックで保存
お礼  琴葉  - 05/6/29(水) 14:04 -

引用なし
パスワード
   >>▼ichinose さん:
>>
>>今確認しましたら、新規(初めて)ですとうまく保存できました。
>>山田ブックがすでにあるときに、日付がちがうシートの追加が出来ず、上書き保存になってしまいます。
>>
>>どうしてなんでしょうか?    よろしくお願いいたします。
>
>すみません、うまく動作いたしました。
>保存場所の記述を記入ミスしていました、申し訳ありません。
>
>ichinoseありがとうございました、又質問させてください。

度々申し訳ありません。

HNが呼び捨てになってしまいました、ichinoseさん申し訳ありません、お詫び申し上げます。

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