Excel VBA質問箱 IV

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

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


15045 / 76734 ←次へ | 前へ→

【67174】Re:シートを名前をつけて別のブックへブック名を指定し保存
質問  りんご  - 10/11/14(日) 9:48 -

引用なし
パスワード
   ▼よろずや さん:
>▼りんご さん:
>>シート上のあるセル(A1)の文字をシート名(mm)とし、ブックの名前を指定してそこへシート(mm)を保存させる なんていうモジュールは作れるのでしょうか。
>
>もちろん可能です。
>で、そのブックは既に存在するのか、新規ブックの名前を付けたいのか?

既存になる場合もあるし、新規ブックの場合もあるという形です。
既存の場合は、そのブック名がいつも同じではないので、ブック名をしてする必要が出てきます。その中へ、シート名をつけなおして保存させたいのです。

ここまで書いてみました。

Sub bookmaking()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim strFilter As String
Dim strTitle As String

Set wb1 = Workbooks("【NEW】YYYY/MM/DD.xls") 

'wb1のブック名は「【NEW】YYYY/MM/DD」の形で日付がその時々で異なります。この日付も基本となるブック(wb2)内のあるシート(入金メモ)内の決まったセル(M1)にある日付からとる形にしたいと思っています。

Set wb2 = Workbooks("★★.xls")
If Range("A1").Value <> "" Then 

'このセルA1には、誰用の入金メモかの名前が入るようになっています。このA1の名前でシート名はつけ直すように以下で指定しています。

  rtn = MsgBox("Do you want to make a new book?", vbYesNo)
  If rtn = vbYes Then
    Workbook.Open Filename:=ThisWorkbook.Path & "\" & wb1 & ".xls"
    wb2.Sheets("入金メモ").Activate
    ActiveSheet.Copy Destination:=wb1.Sheets(1)
    ActiveSheet.Name = wb2.Sheets("入金メモ").Range("A1")
    wb1.SaveAs Filename:=ThisWorkbook.Path & "\" & "【NEW】" & wb1.Sheets(1).Range("M1").Value & ".xls"
  Else
    strTitle = "Select the Book."
    strFilter = "Excel File(*.xls),*.xls," & "全て(*.*),*.*"
    Workbook.Open Filename:=Application.GetOpenFilename(strFilter, 1, strTitle, blnmultiset)
    Exit Sub
  End If
Else
  MsgBox "No Fund name." & Chr(13) & Chr(13) & "Check the Fund Name, please."
End If

End Sub

よろしくお願いします。
0 hits

【67162】シートを名前をつけて別のブックへブック名を指定し保存 りんご 10/11/12(金) 16:58 質問
【67168】Re:シートを名前をつけて別のブックへブッ... よろずや 10/11/13(土) 6:54 回答
【67174】Re:シートを名前をつけて別のブックへブッ... りんご 10/11/14(日) 9:48 質問
【67192】Re:シートを名前をつけて別のブックへブッ... よろずや 10/11/14(日) 20:43 回答
【67197】Re:シートを名前をつけて別のブックへブッ... Jaka 10/11/15(月) 11:16 発言
【67206】Re:シートを名前をつけて別のブックへブッ... りんご 10/11/15(月) 20:12 質問
【67220】Re:シートを名前をつけて別のブックへブッ... Jaka 10/11/16(火) 9:38 回答
【67229】Re:シートを名前をつけて別のブックへブッ... りんご 10/11/16(火) 18:43 発言

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