tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

ループを回すと消えないのでしょうか?

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。