救助表头的问题
Excel工作簿中多个表,表名暂命名为A、B、C等等表头名称来自一文本框
现问题：
不论是向A、B、C等哪个表写入数据时，表头均出现在A表中。
如何在写入数据时表头名称也同时写入到指定的表中。
在写入之前就有判断表名是否与文本框相符了
If Text2.Text > "" Then
MSHFlexGrid1.Redraw = False
Set xlApp = CreateObject("Excel.Application")
'Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\DATA\DATA.xls")
xlApp.Visible = True '设置EXCEL对象可见
For i = 1 To xlBook.Sheets.Count
Named = xlBook.Worksheets(i).Name
Next i
Named = Trim(Text2.Text)
Set xlsheet = xlBook.Worksheets(Named) '设置活动工作表
With MSHFlexGrid1
For s = 0 To MSHFlexGrid1.Rows - 1 '行循环
For j = 0 To MSHFlexGrid1.Cols - 1 '列循环
'MSHFlexGrid1.Row = i
' MSHFlexGrid1.Col = j
xlBook.Worksheets(Named).Cells(s + 3, j + 1).Value = Trim(MSHFlexGrid1.TextMatrix(s, j)) '从第三行写入数据保存到EXCEL
xlsheet.Cells(3, 1).Value = "序号"
xlsheet.Cells(s + 3, 1).Value = s
Next j
Next s
End With
With xlApp
.Cells.Select '选择整个工作表
.Columns.AutoFit '自动调整列宽以适应文字
.Range(xlApp.Cells(1, 1), xlApp.Cells(1, j)).Merge ' 合并第一行
.Cells(1, 1).Value = "报表样式"
.Cells(1, 1).Font.Size = 20
.Rows(1).Font.Bold = True '第三行粗体
.Selection.HorizontalAlignment = xlCenter '水平居中
.Range(xlApp.Cells(2, 1), xlApp.Cells(2, j)).Merge
.Cells(2, 1).Font.Size = 12
.Cells(2, 1).Value = "制表单位: " + Trim(Text2.Text) + " " + Space(10) + " 制表日期：" + Trim(Text1.Text) + ""
End With
MSHFlexGrid1.Redraw = True
Next i
Next i
End If
是不是要在With xlApp之前再加个判断 Named = Trim(Text2.Text)