タイトル : Excelへのダウンロード 投稿日 : 2009/02/12(Thu) 14:01 投稿者 : ゆきち
はじめまして。 グリッドの内容をExcelに出力したいと思っています。 Excelに出力だけなら出来たのですが、 グリッドの途中に何行かExcelには出力したくない行があります。 そのような場合どのように書けば良いのでしょうか。 例えば今、いくつかのグリッドと1から31まで数字の入ったグリッドがあります。 下記のMAXDAYという部分にはその月の最終日付が入ります。 2月でしたら28という数字が入り、29、30、31の行は表示しないようにしてあります。 For j As Integer = 0 To grd_uh.ColumnCount - 1 If CInt(.MAXDAY) + 6 >= j Then grd_uh.Columns(j).Visible = True Else grd_uh.Columns(j).Visible = False End If Next これをExcelに出力するのにどう書いていいかわかりません。 今、 For i As Integer = 0 To grd_uh.ColumnCount - 4 xlRange1 = CType(xlCells(4, i + 1), Excel.Range) xlRange1.Value = grd_uh.Columns(i).HeaderText MRComObject(xlRange1) Next Dim grid(grd_uh.RowCount - 1, grd_uh.ColumnCount - 1) As Object For index As Integer = 0 To grd_uh.RowCount - 1 For index1 As Integer = 0 To grd_uh.ColumnCount - 4 If index1 = 0 Or index1 = 2 Or index1 = 4 Then grid(index, index1) = CStr(grd_uh(index1, index).Value) Else grid(index, index1) = grd_uh(index1, index).Value End If Next Next xlRange1 = xlSheet.Range("A5:AR" & CStr(grd_uh.RowCount + 4)) xlRange1.Value = grid MRComObject(xlRange1) と書いていますがここにどう付け足して書いたら良いでしょうか。 分かりづらい説明でごめんなさい。 宜しくお願い致します |