Home > EA Functions > File-I/O > EA_OpenExcelBook

EA_OpenExcelBook

機能説明
指定したExcelブックを開きます。また、指定したファイルが存在しない場合、新規にExcelブックを開きます。

定義
Public Function EA_OpenExcelBook (
ByVal ea_path As String
) As Workbook

引数
ea_path
Excelブックの絶対パスを設定します。
(""：空を指定した場合、ワークブックを新規作成します。)

戻り値
成功：ワークブックオブジェクトが返却されます。
失敗：Nothing。

使用例
                                    
Sub Main()
    Dim ea_path As String
    Dim ea_fcnt As Integer
    Dim ea_wkbk As Workbook
    
    ea_fcnt = funcOpenFileDlgSingle2(ea_path)
    If ea_fcnt = 0 Then Exit Sub
    Set ea_wkbk = EA_OpenExcelBook(ea_path)
    MsgBox "結果:" & ea_wbk.Name
    Set ea_wkbk = Nothing
End Sub

クラウドソーシング「ランサーズ」