○VBにてエクセルファイルの操作

■VB6------------------------------------------------------
プロジェクトの参照設定でMicrosoft Excel xxx Object Libraryをプロジェクトに参加させる

    Dim app   As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet

    Set app = CreateObject("Excel.Application")
    app.Visible = False    'アプリケーションの非表示
    'Set book = app.Workbooks.Add '新規作成
    Set book = app.Workbooks.Open("c:\test.xls") 'ファイルを開く
    
    Set sheet = book.Worksheets(1) 'シート１を選択

    Debug.Print (sheet.Cells(1, 1).Value) '値を読み出す

    sheet.Cells(1, 1).Value = "1"        'セルに値を入力
    sheet.Cells(2, 1).Value = "2"
    sheet.Cells(3, 1).Formula = "=A1+A2"  '計算式を入力

    book.Save '上書き保存
    'book.SaveAs ("c:\test2.xls") '名前をつけて保存

    app.Quit '終了

    ' オブジェクトを解放します。
    Set sheet = Nothing
    Set book = Nothing
    Set app = Nothing

■VB.net------------------------------------------------------
プロジェクトの参照設定でMicrosoft Excel xxx Object Libraryをプロジェクトに参加させる

        Dim app As Excel.Application
        Dim book As Excel.Workbook
        Dim sheet As Excel.Worksheet

        app = CreateObject("Excel.Application")
        app.Visible = False    'アプリケーションの非表示
        'book = app.Workbooks.Add     '新規作成
        book = app.Workbooks.Open("c:\test.xls")     'ファイルを開く

        sheet = book.Worksheets(1)     'シート１を選択

        Debug.WriteLine(sheet.Cells(1, 1).Value)   '値を読み出す

        sheet.Cells(1, 1).Value = "2"        'セルに値を入力
        sheet.Cells(2, 1).Value = "3"
        sheet.Cells(3, 1).Formula = "=A1+A2"  '計算式を入力

        book.Save() '上書き保存
        'book.SaveAs("c:\test.xls")  '名前をつけて保存

        app.Quit() '終了

        ' オブジェクトを解放します。
        sheet = Nothing
        book = Nothing
        app = Nothing

■エクセルを開きます--------------------------------------------------------
プロジェクトの参照設定でMicrosoft Excel xxx Object Libraryをプロジェクトに参加させる

        Dim app As Excel.Application
        Dim book As Excel.Workbook
        Dim sheet As Excel.Worksheet

        app = CreateObject("Excel.Application")
        app.Visible = True     'アプリケーションの表示

　　　　'Set book = app.Workbooks.Add '新規作成
　　　　Set book = app.Workbooks.Open("c:\test.xls") 'ファイルを開く
    　　Set sheet = book.Worksheets(1) 'シート１を選択

--------------------------------------------------------------------------