プログラムからエクセルワークシートを作成する方法

◆概要

このページは、Visual Basic 6.0でプログラムからエクセルワークシートを作成する方法について記載しています。

◆Sample code


フォームにコマンドボタンを1つ配置します。

Excelへの参照を追加：Visula Basicのメニューから、[プロジェクト]-[参照設定(N)]でMicrosoft Excel 10.0 Object Library(Excel 2002の場合;Excel 2007のときはMicrosoft Excel 12.0 Object Livrary)にチェックマークを入れ、OKボタンをクリックします。 

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet

    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets.Add

    ' セル(2,2) に"こんにちは"と書き込み、
    ' セル (1,3) に"World"と書き込む
    xlWS.Cells(2, 2).Value = "こんにちは"
    xlWS.Cells(1, 3).Value = "World"

    ' ワークシートを"c:\mysheet.xls" という名前で保存
    xlWS.SaveAs "D:\work\mysheet.xls"
    
    'エクセルを終了する
    xlApp.Quit
    
    ' メモリーを解放
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing

End Sub
　　

▼ページトップへ