VB.NETから、参照の追加のcomでexcelを指定して、シートを制御するプログラムを作成しています。
Visual Basic 2010 のプログラムで自動作成されたExcelデータシートはタイトルなどの部分で上から5行。データエリアは5000行強。列数は200ほどになります。
excelは2010を使用していますので、.xlsxファイルで保存しています。
範囲が大きいので、いちいちソートエリアを指定するのも大変なので、VBでシートを作成するときに、データ部分に名前を付けたいと思い、次のようなコードをテストで作成してみました。
lang
1 oXls1 = New Microsoft.Office.Interop.Excel.Application 2 oXls1.Visible = True 3 4 wkb01 = oXls1.Workbooks.Open(Filename:="データ.xlsx", ReadOnly:=False) 5 6 oXls1.Calculation = Microsoft.Office.Interop.Excel.XlCalculation.xlCalculationManual 7 wks01 = wkb01.Worksheets("一覧データ(全データ)") 8 'Dim aname As String = wks01.Name & "!全データ選択" 9 Dim aname As String = "全データ選択01" 10 11 Dim rn0(2) As Integer 12 Dim cn0(2) As Integer 13 14 rn0(0) = 5 15 rn0(1) = 5000 16 cn0(0) = 1 17 cn0(1) = 200 18 19 Dim objName As Object 20 Dim deleteCtr As Long 21 deleteCtr = 0 22 For Each objName In wks01.Names 23 If objName.Visible Then 24 wks01.Names(objName.Name).Delete() 25 deleteCtr = deleteCtr + 1 26 End If 27 Next 28 Range1_1 = wks01.Range(wks01.Cells(rn0(0), cn0(0)), wks01.Cells(rn0(1), cn0(1))) 29 Range1_1.Select() 30 wks01.Names.Add(Name:=aname, RefersTo:=Range1_1.CurrentRegion) 31 32 'Range1_1 = wks01.Range(wks01.Cells(rn0(0), cn0(0)), wks01.Cells(rn0(1), cn0(1))) 33 'Range1_1.CurrentRegion.Name = aname 34 35 Range1_1 = wks01.Cells(5, 10) 36 Range1_1.Select() 37 oXls1.ActiveWindow.FreezePanes = True
これにより、データ.xlsx ブックの 一覧データ(全データ)シートの5行1列目から、5000行200列のレンジに全データ選択01という名前が付く……はずなのですが、実際にこのプログラムを稼働させた結果、追加された全データ選択01を選択すると、タイトルなどの部分の上から5行と5000行を越える部分にも勝手に範囲が拡張されて名前が付けられていました。
For Each objName In wks01.Names
の部分は、もしかして隠れた名前設定がされているのでは? と予めシートの名前を全削除するブロックを組み込んでみたものですが、それでもタイトル部分に勝手に拡張されます。
更に確認のため、
Range1_1.Select()
も組み込みましたが、この行にブレークポイントを張って、停止時にExcelを確認したところ、確かに5行1列~5000行200列が選択されていました。
しかし、その次の名前を設定した途端、その名前を選択すると、タイトル部分に勝手に拡張された範囲が指定されてしまいます。
Excel2010には、指定されたデータ範囲の上下にデータが入っていると、親切にも勝手にエリアを拡張する機能があるのでしょうか?
また、ついでといってはなんですが
'Dim aname As String = wks01.Name & "!全データ選択"
は、シート名!名前 で名前を追加すると、対象のシートからのみ参照可能な名前が付けられるはずなのですが、!が邪魔をしているようで、名前に不適切な文字が入っているとエラーになって止まってしまうため、コメントアウトしてあります。
このブックには、全データの他にも絞り込んだデータシートを置きたいので、どのシートも全データ選択でデータが選択できると大変助かるのですが…
よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/07/01 03:26