tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルExcelへのダウンロード
記事No8722
投稿日: 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)
と書いていますがここにどう付け足して書いたら良いでしょうか。
分かりづらい説明でごめんなさい。
宜しくお願い致します

[ツリー表示へ]
タイトルRe: Excelへのダウンロード
記事No8723
投稿日: 2009/02/12(Thu) 14:46
投稿者ゆきち
書き忘れましたが、WindowsXP、VB2008です。
宜しくお願い致します。

[ツリー表示へ]