My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Feb 9th, 2010 | Syntax: VB.NET | Size: 0.39 KB | Hits: 37 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. For Each dc In worksheet1.Columns
  2.                     colIndex = colIndex + 1
  3.                     wSheet.Cells(1, colIndex) = dc.ColumnName
  4.                 Next
  5.  
  6.                 For y =0 to worksheet1.Rows.count -1
  7.                     For x 0 to In worksheet1.Columns-1
  8.                         wSheet.Cells(rowIndex + 1, colIndex) = dr(x)
  9.  
  10.                     Next
  11.                 Next
create new paste | create new version of this paste RAW Paste Data