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