NEW ARTICLE
kotlin 「if」文を使用する
  1. HOME
  2. vba
  3. VBA EXCELファイルを作成する

VBA EXCELファイルを作成する

  • 作成日 2022.03.06
  • vba
VBA EXCELファイルを作成する

VBAで、EXCELファイルを作成するコードを記述してます。

目次

環境

  • OS windows10 64bit

EXCELファイルを作成

EXCELファイルを作成するには、「Workbooks.Add」を使用します。

適当なボタンを用意して、「test.xlsx」とうEXCELファイルを作成する
以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Dim strName As String
    Dim strPath As String
    Dim wbBook As Workbook
    
    ' EXCELファイル名を設定
    strName = "test.xlsx"
    
    ' 絶対パスを設定
    strPath = ThisWorkbook.Path & "\" & newBookName
    
    ' 指定したパスにファイルが作成済でないかを確認。
    If Dir(strPath) = "" Then
    
        ' test.xlsx作成
        Set wbBook = Workbooks.Add
        
        ' 保存
        wbBook.SaveAs strPath
    
    Else
        ' メッセージ
        MsgBox "既に" & strName & "というファイルは存在します。"
    
    End If
    
    
End Sub

実行してみます。

EXCELファイルが作成されていることが確認できます。