Visual Basic から Microsoft Excel を自動化する方法

[アーティクル]
06/20/2023
適用対象:

Microsoft Excel

概要

この記事では、Visual Basic の Automation を使用して Excel を作成および操作する方法について説明します。

詳細情報

Automation サーバーを制御するには、遅延バインディングと早期バインディングの 2 つの方法があります。遅延バインディングでは、実行時までメソッドはバインドされず、Automation サーバーは Object として宣言されます。早期バインディングを使用すると、アプリケーションはデザイン時に、通信するオブジェクトの正確な型を認識し、そのオブジェクトを特定の型として宣言できます。このサンプルでは、早期バインディングを使用します。ほとんどの場合、パフォーマンスが向上し、型の安全性が向上するため、より優れていると見なされます。

Automation サーバーに早期にバインドするには、そのサーバーのタイプライブラリへの参照を設定する必要があります。 Visual Basic では、プロジェクト |の下にある [参照] ダイアログボックスを使用して行います。[参照] メニュー。このサンプルでは、コードを実行する前に、Excel のタイプライブラリへの参照を追加する必要があります。参照を追加する方法については、次の手順を参照してください。

Automation サンプルのビルド

Visual Basic を起動し、新しい Standard EXE プロジェクトを作成します。 Form1 は既定で作成されます。
[プロジェクト ] をクリックし、[ 参照] をクリックします。 [ 参照]ダイアログボックスが表示されます。 Microsoft Excel オブジェクトライブラリが見つかるまで一覧を下にスクロールし、項目を選択して Excel への参照を追加します。 Excel のバージョンに適したオブジェクトライブラリが一覧に表示されない場合は、お使いのバージョンの Excel が正しくインストールされていることを確認してください。

注
- Microsoft Office Excel 2007 を自動化している場合、タイプライブラリは [参照] ボックスの一覧に Microsoft Excel 12.0 オブジェクトライブラリとして表示されます。
- Microsoft Office Excel 2003 を自動化している場合、タイプライブラリは [参照] ボックスの一覧に Microsoft Excel 11.0 オブジェクトライブラリとして表示されます。
- Microsoft Excel 2002 を自動化している場合、タイプライブラリは [参照] ボックスの一覧に Microsoft Excel 10.0 オブジェクトライブラリとして表示されます。
- Microsoft Excel 2000 を自動化している場合、タイプライブラリは [参照] ボックスの一覧に Microsoft Excel 9.0 オブジェクトライブラリとして表示されます。
- Microsoft Excel 97 を自動化している場合、タイプライブラリは [参照] ボックスの一覧に Microsoft Excel 8.0 オブジェクトライブラリとして表示されます。
[ OK] を クリックして [ 参照 ] ダイアログボックスを閉じます。
Form1 に CommandButton を追加します。

Form1 のコードウィンドウで、次のコードを挿入します。

Option Explicit

Private Sub Command1_Click()
   Dim oXL As Excel.Application
   Dim oWB As Excel.Workbook
   Dim oSheet As Excel.Worksheet
   Dim oRng As Excel.Range

'On Error GoTo Err_Handler

' Start Excel and get Application object.
   Set oXL = CreateObject("Excel.Application")
   oXL.Visible = True

' Get a new workbook.
   Set oWB = oXL.Workbooks.Add
   Set oSheet = oWB.ActiveSheet

' Add table headers going cell by cell.
   oSheet.Cells(1, 1).Value = "First Name"
   oSheet.Cells(1, 2).Value = "Last Name"
   oSheet.Cells(1, 3).Value = "Full Name"
   oSheet.Cells(1, 4).Value = "Salary"

' Format A1:D1 as bold, vertical alignment = center.
   With oSheet.Range("A1", "D1")
      .Font.Bold = True
      .VerticalAlignment = xlVAlignCenter
   End With

' Create an array to set multiple values at once.
   Dim saNames(5, 2) As String
   saNames(0, 0) = "John"
   saNames(0, 1) = "Smith"
   saNames(1, 0) = "Tom"
   saNames(1, 1) = "Brown"
   saNames(2, 0) = "Sue"
   saNames(2, 1) = "Thomas"
   saNames(3, 0) = "Jane"

saNames(3, 1) = "Jones"
   saNames(4, 0) = "Adam"
   saNames(4, 1) = "Johnson"

' Fill A2:B6 with an array of values (First and Last Names).
   oSheet.Range("A2", "B6").Value = saNames

' Fill C2:C6 with a relative formula (=A2 & " " & B2).
   Set oRng = oSheet.Range("C2", "C6")
   oRng.Formula = "=A2 & "" "" & B2"

' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
   Set oRng = oSheet.Range("D2", "D6")
   oRng.Formula = "=RAND()*100000"
   oRng.NumberFormat = "$0.00"

' AutoFit columns A:D.
   Set oRng = oSheet.Range("A1", "D1")
   oRng.EntireColumn.AutoFit

' Manipulate a variable number of columns for Quarterly Sales Data.
   Call DisplayQuarterlySales(oSheet)

' Make sure Excel is visible and give the user control
 ' of Microsoft Excel's lifetime.
   oXL.Visible = True
   oXL.UserControl = True

' Make sure you release object references.
   Set oRng = Nothing
   Set oSheet = Nothing
   Set oWB = Nothing
   Set oXL = Nothing

Exit Sub
Err_Handler:
   MsgBox Err.Description, vbCritical, "Error: " & Err.Number
End Sub

Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet)
   Dim oResizeRange As Excel.Range
   Dim oChart As Excel.Chart
   Dim iNumQtrs As Integer
   Dim sMsg As String
   Dim iRet As Integer

' Determine how many quarters to display data for.
   For iNumQtrs = 4 To 2 Step -1
      sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"
      iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _
         Or vbMsgBoxSetForeground, "Quarterly Sales")
      If iRet = vbYes Then Exit For
   Next iNumQtrs

sMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)."
   MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales"

' Starting at E1, fill headers for the number of columns selected.
   Set oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)

oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""

' Change the Orientation and WrapText properties for the headers.
   oResizeRange.Orientation = 38
   oResizeRange.WrapText = True

' Fill the interior color of the headers.
   oResizeRange.Interior.ColorIndex = 36

' Fill the columns with a formula and apply a number format.
   Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
   oResizeRange.Formula = "=RAND()*100"
   oResizeRange.NumberFormat = "$0.00"

' Apply borders to the Sales data and headers.
   Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
   oResizeRange.Borders.Weight = xlThin

' Add a Totals formula for the sales data and apply a border.
   Set oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
   oResizeRange.Formula = "=SUM(E2:E6)"
   With oResizeRange.Borders(xlEdgeBottom)
      .LineStyle = xlDouble
      .Weight = xlThick
   End With

' Add a Chart for the selected data
   Set oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
   Set oChart = oWS.Parent.Charts.Add
   With oChart
      .ChartWizard oResizeRange, xl3DColumn, , xlColumns
      .SeriesCollection(1).XValues = oWS.Range("A2", "A6")
         For iRet = 1 To iNumQtrs
            .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
         Next iRet
      .Location xlLocationAsObject, oWS.Name
   End With

' Move the chart so as not to cover your data.
   With oWS.Shapes("Chart 1")
      .Top = oWS.Rows(10).Top
      .Left = oWS.Columns(2).Left

End With

' Free any references.
   Set oChart = Nothing
   Set oResizeRange = Nothing

End Sub

F5 キーを押してプロジェクトを実行します。

Visual Basic から Microsoft Excel を自動化する方法

概要

詳細情報

Automation サンプルのビルド

その他のリソース