新しいブックを作成する : Excel(エクセル)

自分自身とは別のExcelファイル(ブック)を作成する方法です。新しいブックを作成するにはAddメソッドを使います。Application.DisplayAlerts = False は同名のファイルが存在する場合のメッセージを表示させない為です。もし、これを使用しないと「この場所に、'------.XLS'という名前のファイルが既にあります。置き換えますか?」とメッセージボックスが表示されます。プロシージャの終了時には Application.DisplayAlerts = True で元に戻しておく方が安全です。Close を使用しないと、作成したファイルがそのまま表示され、そのExcelファイルが前面でフォーカスが当たる状態になります。

Excel Tipsメニューに戻る

スポンサーリンク





コマンドボタン クリックイベントから新しいブックを作成する

Private Sub CommandButton1_Click()
    NewBookMake "C:\TEST.XLS"
End Sub

スポンサーリンク



新しいブックを作成する標準モジュールコード

Public Sub NewBookMake(filename As String)
    Dim tFile As Workbook
    
    Set tFile = Workbooks.Add
    
    '上書きメッセージを表示させない
    Application.DisplayAlerts = False
    tFile.Saved = True
    tFile.SaveAs filename:=filename
    tFile.Close
    Application.DisplayAlerts = True

End Sub

Excel Tipsメニューに戻る




■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved