vb新手 能不能帮忙改下代码 直接用过vba可以这样 vb6.0就不可以了 来个大佬帮忙改下吧
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\test.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(21, 4) = TextA1.Text '给单元格赋值
xlsheet.Cells(22, 4) = TextB1.Text '给单元格赋值
xlsheet.Cells(23, 4) = TextC1.Text '给单元格赋值
xlsheet.Cells(24, 4) = TextD1.Text '给单元格赋值
xlsheet.Cells(25, 4) = TextE1.Text '给单元格赋值
xlsheet.Cells(26, 4) = TextF1.Text '给单元格赋值
xlsheet.Cells(27, 4) = TextG1.Text '给单元格赋值
xlsheet.Cells(21, 5) = TextA2.Text '给单元格赋值
xlsheet.Cells(22, 5) = TextB2.Text '给单元格赋值
xlsheet.Cells(23, 5) = TextC2.Text '给单元格赋值
xlsheet.Cells(24, 5) = TextD2.Text '给单元格赋值
xlsheet.Cells(25, 5) = TextE2.Text '给单元格赋值
xlsheet.Cells(26, 5) = TextF2.Text '给单元格赋值
xlsheet.Cells(27, 5) = TextG2.Text '给单元格赋值
xlsheet.Cells(21, 6) = TextA3.Text '给单元格赋值
xlsheet.Cells(22, 6) = TextB3.Text '给单元格赋值
xlsheet.Cells(23, 6) = TextC3.Text '给单元格赋值
xlsheet.Cells(24, 6) = TextD3.Text '给单元格赋值
xlsheet.Cells(25, 6) = TextE3.Text '给单元格赋值
xlsheet.Cells(26, 6) = TextF3.Text '给单元格赋值
xlsheet.Cells(27, 6) = TextG3.Text '给单元格赋值
xlsheet.Cells(21, 7) = TextA4.Text '给单元格赋值
xlsheet.Cells(22, 7) = TextB4.Text '给单元格赋值
xlsheet.Cells(23, 7) = TextC4.Text '给单元格赋值
xlsheet.Cells(24, 7) = TextD4.Text '给单元格赋值
xlsheet.Cells(25, 7) = TextE4.Text '给单元格赋值
xlsheet.Cells(26, 7) = TextF4.Text '给单元格赋值
xlsheet.Cells(27, 7) = TextG4.Text '给单元格赋值
xlsheet.Cells(21, 8) = TextA5.Text '给单元格赋值
xlsheet.Cells(22, 8) = TextB5.Text '给单元格赋值
xlsheet.Cells(23, 8) = TextC5.Text '给单元格赋值
xlsheet.Cells(24, 8) = TextD5.Text '给单元格赋值
xlsheet.Cells(25, 8) = TextE5.Text '给单元格赋值
xlsheet.Cells(26, 8) = TextF5.Text '给单元格赋值
xlsheet.Cells(27, 8) = TextG5.Text '给单元格赋值
xlsheet.Cells(21, 9) = TextA6.Text '给单元格赋值
xlsheet.Cells(22, 9) = TextB6.Text '给单元格赋值
xlsheet.Cells(23, 9) = TextC6.Text '给单元格赋值
xlsheet.Cells(24, 9) = TextD6.Text '给单元格赋值
xlsheet.Cells(25, 9) = TextE6.Text '给单元格赋值
xlsheet.Cells(26, 9) = TextF6.Text '给单元格赋值
xlsheet.Cells(27, 9) = TextG6.Text '给单元格赋值
xlsheet.Cells(21, 10) = TextA1.Text '给单元格赋值
xlsheet.Cells(22, 10) = TextB7.Text '给单元格赋值
xlsheet.Cells(23, 10) = TextC7.Text '给单元格赋值
xlsheet.Cells(24, 10) = TextD7.Text '给单元格赋值
xlsheet.Cells(25, 10) = TextE7.Text '给单元格赋值
xlsheet.Cells(26, 10) = TextF7.Text '给单元格赋值
xlsheet.Cells(27, 10) = TextG7.Text '给单元格赋值
xlsheet.Cells(21, 11) = TextA8.Text '给单元格赋值
xlsheet.Cells(22, 11) = TextB8.Text '给单元格赋值
xlsheet.Cells(23, 11) = TextC8.Text '给单元格赋值
xlsheet.Cells(24, 11) = TextD8.Text '给单元格赋值
xlsheet.Cells(25, 11) = TextE8.Text '给单元格赋值
xlsheet.Cells(26, 11) = TextF8.Text '给单元格赋值
xlsheet.Cells(27, 11) = TextG8.Text '给单元格赋值
xlsheet.Cells(21, 12) = TextA9.Text '给单元格赋值
xlsheet.Cells(22, 12) = TextB9.Text '给单元格赋值
xlsheet.Cells(23, 12) = TextC9.Text '给单元格赋值
xlsheet.Cells(24, 12) = TextD9.Text '给单元格赋值
xlsheet.Cells(25, 12) = TextE9.Text '给单元格赋值
xlsheet.Cells(26, 12) = TextF9.Text '给单元格赋值
xlsheet.Cells(27, 12) = TextG9.Text '给单元格赋值
xlsheet.Cells(21, 13) = TextA10.Text '给单元格赋值
xlsheet.Cells(22, 13) = TextB10.Text '给单元格赋值
xlsheet.Cells(23, 13) = TextC10.Text '给单元格赋值
xlsheet.Cells(24, 13) = TextD10.Text '给单元格赋值
xlsheet.Cells(25, 13) = TextE10.Text '给单元格赋值
xlsheet.Cells(26, 13) = TextF10.Text '给单元格赋值
xlsheet.Cells(27, 13) = TextG10.Text '给单元格赋值
xlsheet.Cells(21, 12) = TextA11.Text '给单元格赋值
xlsheet.Cells(22, 14) = TextB11.Text '给单元格赋值
xlsheet.Cells(23, 14) = TextC11.Text '给单元格赋值
xlsheet.Cells(24, 14) = TextD11.Text '给单元格赋值
xlsheet.Cells(25, 14) = TextE11.Text '给单元格赋值
xlsheet.Cells(26, 14) = TextF11.Text '给单元格赋值
xlsheet.Cells(27, 14) = TextG11.Text '给单元格赋值
End Sub
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\test.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(21, 4) = TextA1.Text '给单元格赋值
xlsheet.Cells(22, 4) = TextB1.Text '给单元格赋值
xlsheet.Cells(23, 4) = TextC1.Text '给单元格赋值
xlsheet.Cells(24, 4) = TextD1.Text '给单元格赋值
xlsheet.Cells(25, 4) = TextE1.Text '给单元格赋值
xlsheet.Cells(26, 4) = TextF1.Text '给单元格赋值
xlsheet.Cells(27, 4) = TextG1.Text '给单元格赋值
xlsheet.Cells(21, 5) = TextA2.Text '给单元格赋值
xlsheet.Cells(22, 5) = TextB2.Text '给单元格赋值
xlsheet.Cells(23, 5) = TextC2.Text '给单元格赋值
xlsheet.Cells(24, 5) = TextD2.Text '给单元格赋值
xlsheet.Cells(25, 5) = TextE2.Text '给单元格赋值
xlsheet.Cells(26, 5) = TextF2.Text '给单元格赋值
xlsheet.Cells(27, 5) = TextG2.Text '给单元格赋值
xlsheet.Cells(21, 6) = TextA3.Text '给单元格赋值
xlsheet.Cells(22, 6) = TextB3.Text '给单元格赋值
xlsheet.Cells(23, 6) = TextC3.Text '给单元格赋值
xlsheet.Cells(24, 6) = TextD3.Text '给单元格赋值
xlsheet.Cells(25, 6) = TextE3.Text '给单元格赋值
xlsheet.Cells(26, 6) = TextF3.Text '给单元格赋值
xlsheet.Cells(27, 6) = TextG3.Text '给单元格赋值
xlsheet.Cells(21, 7) = TextA4.Text '给单元格赋值
xlsheet.Cells(22, 7) = TextB4.Text '给单元格赋值
xlsheet.Cells(23, 7) = TextC4.Text '给单元格赋值
xlsheet.Cells(24, 7) = TextD4.Text '给单元格赋值
xlsheet.Cells(25, 7) = TextE4.Text '给单元格赋值
xlsheet.Cells(26, 7) = TextF4.Text '给单元格赋值
xlsheet.Cells(27, 7) = TextG4.Text '给单元格赋值
xlsheet.Cells(21, 8) = TextA5.Text '给单元格赋值
xlsheet.Cells(22, 8) = TextB5.Text '给单元格赋值
xlsheet.Cells(23, 8) = TextC5.Text '给单元格赋值
xlsheet.Cells(24, 8) = TextD5.Text '给单元格赋值
xlsheet.Cells(25, 8) = TextE5.Text '给单元格赋值
xlsheet.Cells(26, 8) = TextF5.Text '给单元格赋值
xlsheet.Cells(27, 8) = TextG5.Text '给单元格赋值
xlsheet.Cells(21, 9) = TextA6.Text '给单元格赋值
xlsheet.Cells(22, 9) = TextB6.Text '给单元格赋值
xlsheet.Cells(23, 9) = TextC6.Text '给单元格赋值
xlsheet.Cells(24, 9) = TextD6.Text '给单元格赋值
xlsheet.Cells(25, 9) = TextE6.Text '给单元格赋值
xlsheet.Cells(26, 9) = TextF6.Text '给单元格赋值
xlsheet.Cells(27, 9) = TextG6.Text '给单元格赋值
xlsheet.Cells(21, 10) = TextA1.Text '给单元格赋值
xlsheet.Cells(22, 10) = TextB7.Text '给单元格赋值
xlsheet.Cells(23, 10) = TextC7.Text '给单元格赋值
xlsheet.Cells(24, 10) = TextD7.Text '给单元格赋值
xlsheet.Cells(25, 10) = TextE7.Text '给单元格赋值
xlsheet.Cells(26, 10) = TextF7.Text '给单元格赋值
xlsheet.Cells(27, 10) = TextG7.Text '给单元格赋值
xlsheet.Cells(21, 11) = TextA8.Text '给单元格赋值
xlsheet.Cells(22, 11) = TextB8.Text '给单元格赋值
xlsheet.Cells(23, 11) = TextC8.Text '给单元格赋值
xlsheet.Cells(24, 11) = TextD8.Text '给单元格赋值
xlsheet.Cells(25, 11) = TextE8.Text '给单元格赋值
xlsheet.Cells(26, 11) = TextF8.Text '给单元格赋值
xlsheet.Cells(27, 11) = TextG8.Text '给单元格赋值
xlsheet.Cells(21, 12) = TextA9.Text '给单元格赋值
xlsheet.Cells(22, 12) = TextB9.Text '给单元格赋值
xlsheet.Cells(23, 12) = TextC9.Text '给单元格赋值
xlsheet.Cells(24, 12) = TextD9.Text '给单元格赋值
xlsheet.Cells(25, 12) = TextE9.Text '给单元格赋值
xlsheet.Cells(26, 12) = TextF9.Text '给单元格赋值
xlsheet.Cells(27, 12) = TextG9.Text '给单元格赋值
xlsheet.Cells(21, 13) = TextA10.Text '给单元格赋值
xlsheet.Cells(22, 13) = TextB10.Text '给单元格赋值
xlsheet.Cells(23, 13) = TextC10.Text '给单元格赋值
xlsheet.Cells(24, 13) = TextD10.Text '给单元格赋值
xlsheet.Cells(25, 13) = TextE10.Text '给单元格赋值
xlsheet.Cells(26, 13) = TextF10.Text '给单元格赋值
xlsheet.Cells(27, 13) = TextG10.Text '给单元格赋值
xlsheet.Cells(21, 12) = TextA11.Text '给单元格赋值
xlsheet.Cells(22, 14) = TextB11.Text '给单元格赋值
xlsheet.Cells(23, 14) = TextC11.Text '给单元格赋值
xlsheet.Cells(24, 14) = TextD11.Text '给单元格赋值
xlsheet.Cells(25, 14) = TextE11.Text '给单元格赋值
xlsheet.Cells(26, 14) = TextF11.Text '给单元格赋值
xlsheet.Cells(27, 14) = TextG11.Text '给单元格赋值
End Sub