VB.NET質問スレ (Part17)

VB.NET質問スレ (Part17) at TECH

73:デフォルトの名無しさん
06/08/18 10:55:39
>>72
VB2005+Excel2003でとりあえず動くコンソールアプリのサンプル(多分VB2003でも動くはず）
COMの解放とかやってないけどその辺は気にしないように

Imports Microsoft.Office.Interop
Module Module1
　　Sub Main()
　　　　Dim app As Excel.Application = New Excel.Application()
　　　　Dim wbk As Excel.Workbook = app.Workbooks.Add()
　　　　Dim wst As Excel.Worksheet = DirectCast(wbk.Worksheets(1), Excel.Worksheet)
　　　　Dim r1 As Excel.Range = wst.Range("A1")
　　　　r1.Value = "100m3"
　　　　r1.Characters(CStr(r1.Value).Length).Font.Superscript = True
　　　　Dim r2 As Excel.Range = wst.Range("B1")
　　　　r2.Value = "10min-1"
　　　　r2.Characters(CStr(r2.Value).Length - 1).Font.Superscript = True
　　　　app.Visible = True
　　End Sub
End Module

次ページ

続きを表示

1を表示