Excel VBA質問箱 IV

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

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


15031 / 76738 ←次へ | 前へ→

【67192】Re:シートを名前をつけて別のブックへブック名を指定し保存
回答  よろずや  - 10/11/14(日) 20:43 -

引用なし
パスワード
   試していませんし、後始末もエラー処理も省略しています(-_-;)

Dim strFilter As String
Dim strTitle As String
Dim varFileName As Variant

Set wb2 = Workbooks.Open(Filename:="★★.xls")
If wb2.Sheets("入金メモ").Range("A1").Value <> "" Then
  rtn = MsgBox("Do you want to make a new book?", vbYesNo)
  If rtn = vbYes Then
    wb2.Sheets("入金メモ").Copy
    Set wb1 = ActiveWorkbook
    wb1.Sheets(1).Name = wb2.Sheets("入金メモ").Range("A1").Value
    wb1.SaveAs Filename:=ThisWorkbook.Path & "\" & "【NEW】" & Format(wb2.Sheets("入金メモ").Range("M1").Value, "YYYY/MM/DD") & ".xls"
  Else
    strTitle = "Select the Book."
    strFilter = "Excel File(*.xls),*.xls," & "全て(*.*),*.*"
    varFileName = Application.GetOpenFilename(strFilter, 1, strTitle, False)
    If varFileName = False Then
    Else
      Set wb1 = Workbooks.Open(Filename:=varFileName)
      wb2.Sheets("入金メモ").Copy Before:=wb1.Sheets(1)
      wb1.Sheets(1).Name = wb2.Sheets("入金メモ").Range("A1").Value
      wb1.Save
    End If
  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 発言

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