タイトル : Re^4: すいません。またタスクエラーです(^^;) 投稿日 : 2004/09/06(Mon) 16:25 投稿者 : クーガ
[OSのVer]:Windows [VBのVer]:VB.NET ループを回すと駄目なのでしょうか? 項目名を設定するだけなら消えてくれるのですが ''エクセルインスタンス格納 Dim xlApp As Excel.Application = Nothing ''エクセルブック格納 Dim xlBook As Excel.Workbook = Nothing ''エクセルシート格納 Dim xlSheet As Excel.Worksheet = Nothing Dim xlCulomn As Object Dim xlCell As Object xlApp = CreateObject("Excel.Application") '空白の新しいブックを追加 xlBook = xlApp.Workbooks.Add '新しいシートを追加 xlSheet = xlBook.Worksheets(1) xlSheet.Name = "売上指示" Dim rw As Datarow Dim a As Integer Dim i As Integer = BindingContext(DataGrid_1.DataSource, DataGrid.DataMember).Count xlSheet.Range("A1").Value = "タイトル名" For a = 0 To i rw = DataSet.DataTable.Rows(int_roop1) xlSheet.Range("A" & a + 2).Value = rw.Item("項目名") Next ループを回すと消えないのでしょうか? |