有近20来个 TextBox,分两行,一行十个,点击按钮,把十个 TextBox中的值,复制到 Excel表格中,
在Excel表格中,点击一个格子,以此格子为起始点,把十个TextBox中的值依次粘贴进去,
求做法!
把这个做成数组,用一个循环,来对Excel赋值
xlApp = New Microsoft.Office.Interop.Excel.Application
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "work"
For i = 0 To 5
For j = 0 To 7
xlSheet.Cells._Default(i + 1, j + 1).Value = i & "" & j
Next j
Next i