＜このサンプルの概要＞
エクセルを起動しいろんな操作をするサンプルソース(VB6)です。

エクセルは便利ですね。
表形式の画面を表示するとすぐに、エクセルやCSVに出力したいという要望が発生します。

具体的には以下の事を試しています。
　１．エクセル起動
　２．エクセル非表示
　３．ブック追加
　４．シート選択
　５．カラム幅設定
　６．カラムの書式設定
　７．セルの選択
　８．セルのフォント設定
　９．セルの背景色設定
１０．セルの文字色設定
１１．エクセル表示
１２．エクセルを閉じる

エクセル関係のその他ののサンプルはこちらです。
エクセルを使用した帳票印刷のサンプル(VB.NET)
エクセルを使用した帳票印刷のサンプル(C#.NET)
エクセルを操作する小技のサンプル(VB.NET)
エクセルを操作する小技のサンプル(C#.NET)
エクセルを起動しいろいろ操作するサンプル(VBS)
エクセルへデータをコピーし表示するサンプル(VB6)

Option Explicit

Private oXlsApp As Object       ' Excel.Application
Private oSheet As Object        ' Excel.Worksheet
Private oRange As Object        ' Excel.Range

Private Sub Command1_Click()

    ' エクセル起動
    Set oXlsApp = CreateObject("Excel.Application")
    If oXlsApp Is Nothing Then
        MsgBox "Microsoft Excel起動失敗　"
        Exit Sub
    End If

    ' エクセル非表示
    oXlsApp.Application.Visible = False
    oXlsApp.Application.DisplayAlerts = False
    
    ' ブック追加
    oXlsApp.Application.Workbooks.Add
    
    ' シート選択
    Set oSheet = oXlsApp.Worksheets(1)
    
    ' カラム幅設定
    oSheet.Columns("C").ColumnWidth = 20
    
    ' カラムの書式設定の表示形式を文字列にする
    oSheet.Columns("C").NumberFormatLocal = "@"
    
    ' セル選択
    Set oRange = oSheet.Range("C10")
    
    ' セルのフォント設定
    oRange.Font.Size = 9
    oRange.Font.Name = "ＭＳ ゴシック"
    
    ' セルにデータ書込み
    oRange.Value = "C10のデータ"
    
    ' セルの背景色設定
    oRange.Interior.Color = &H44FFFF
    
    ' セルの文字色設定
    oRange.Font.Color = &HFF0000
    
    ' エクセル表示
    oXlsApp.Application.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' エクセルを閉じる
    If oXlsApp Is Nothing = False Then oXlsApp.Quit
    Set oRange = Nothing
    Set oSheet = Nothing
    Set oXlsApp = Nothing
End Sub