ぷろぐらむノート

VB.NET Excelの名前付きセルに入力する

Updated on 2016年10月10日2016年3月23日 by miyunsarna

Excelの名前を付けたセルの位置を取得して、値を設定する方法を記載します。

名前付きセル位置の取得および値の設定をする

Dim xlApp As Excel.Application = New Excel.Application()
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open("C:\work\myBook.xls")
Dim xlSheet As Excel.Worksheet = xlBook.Worksheets("Sheet1")

'名前付きセルを取得する
Dim xlRange As Excel.Range = xlSheet.Range("名前")
xlRange.Value = "ぷろぐらむノート"

xlSheet.Activate()
xlApp.Visible = True

System.Threading.Thread.Sleep(3000)
xlApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

 

Posted in Excel | Leave a reply

VB.NET Excelの名前付きセルの位置を取得する

Updated on 2016年10月10日2016年3月23日 by miyunsarna

Excelの名前付きセルの位置および、列数・行数を取得する方法を記載します。

名前付きセルの位置および行数・列数を取得する

Dim xlApp As Excel.Application = New Excel.Application()
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open("C:\work\myBook.xls")
Dim xlSheet As Excel.Worksheet = xlBook.Worksheets("Sheet1")

Dim xlRange As Excel.Range = xlSheet.Range("ALL")

'列の位置
Dim x As Integer = xlRange.Column
'行の位置
Dim y As Integer = xlRange.Row

'列の数
Dim cols As Integer = xlRange.Columns.Count
'行の数
Dim rows As Integer = xlRange.Rows.Count

xlSheet.Activate()
xlApp.Visible = True

System.Threading.Thread.Sleep(3000)
xlApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

 

Posted in Excel | Leave a reply