ぷろぐらむノート

Excelで、シート中の 列の幅 および 行の高さ を変更する方法を記載します。

列の幅・行の高さを変更する

列 および 幅 の変更は、Range を使い変更します。

Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet

xlApp = New Excel.Application()

xlApp.Application.Workbooks.Add()
xlSheet = CType(xlApp.Worksheets(1), Excel.Worksheet)
xlSheet.Name = "シート"

'全ての列の幅を変更する
xlSheet.Columns.ColumnWidth = 5

'全ての行の高さを変更する
xlSheet.Rows.RowHeight = 10

'C～Fの列の幅を変更する
xlSheet.Range("C:F").ColumnWidth = 10

'2～5の行の高さを変更する
xlSheet.Range("2:5").RowHeight = 15


xlApp.Visible = True

'3秒待機する
System.Threading.Thread.Sleep(3000)

xlApp.Quit()

'COMオブジェクトを解放する
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

 

ＶＢのプログラムで、Excelを起動または、終了させる方法を記載します。

Shell関数を利用して起動する方法

Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
Dim procId As Integer = Shell(execPath, vbNormalFocus)

 

Processクラスを利用して起動する方法

Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
Dim execProc As New Process

With execProc
    .StartInfo.FileName = execPath
    .Start()
End With

 

COMオブジェクトを利用して起動および終了する方法

まず参照追加－COMでMicrosoft Excel xxx Object Libraryを追加します。

プログラムにImports Microsoft.Office.Interopを追加します。

'Excel.Applicationのインスタンスを生成する
Dim xlApp As New Excel.Application()

'Excel を表示する
xlApp.Visible = True

'3秒待機する
System.Threading.Thread.Sleep(3000)

'Excel を終了する
xlApp.Quit()

'COM オブジェクトの参照カウントを解放する
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

 

その他の方法

Dim ExcApp As Object		
ExcApp = CreateObject("Excel.Application")

ExcApp.workbooks.add()
ExcApp.visible = True