![]() |
|||||
| 既存のエクセルファイルを操作する |
| |||
|
既存のエクセルファイルの特定のワークシートに対して書きこみを行う | |||
| |||
|
特定のワークシートを参照する場合、 Worksheets("シート名") もしくは Worksheets(インデックス番号) と記述することができる。 | |||
| サンプルコード | ||||
Option Explicit Private Sub cmdGO_Click() Dim xl As Object 'Excel.Application Dim wb As Object 'Excel.Workbook Dim ws As Object 'Excel.Worksheet ' エクセルオブジェクトの新しいインスタンスを作成 Set xl = CreateObject("Excel.Application") ' ファイル名を指定してワークブックを開く Set wb = xl.Workbooks.Open("C:\My Documents\Book1.xls") ' エクセルを表示 xl.Visible = True ' シート名を指定してオブジェクトを定義 Set ws = wb.Worksheets("Sheet1") ' シート内のセルに文字を書き込む ws.Cells(1, 1).Value = "hello" End Sub |
||||
ソースのダウンロードはありません。