主题：vba

Dim b As New XLS.Book(ProjectPath & "Attachments\spc计量型控制.xlsx")
Dim t As Table = Tables("spc")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Style As XLS.Style = b.NewStyle() '定义新样式
s.Cols(5).Style=Style
For r As Integer = 0 To t.Rows.Count - 1 '填入数据
For c As Integer = 0 To t.Cols.Count -1
s(r+55, c+1).Value = t.rows(r)(c)
Next
Next
b.Save(ProjectPath & "Attachments\spc计量型控制.xlsx")
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\spc计量型控制.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim result As DialogResult
result= messagebox.Show("请保证当前窗口的全部信息已经填写完毕或者显示完毕再进行生成SPC操作.","提示",MessageBoxButtons.OKCancel)
If result=DialogResult.OK Then
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\spc计量型控制.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.ScreenUpdating=False
Dim rg As msexcel.range
rg=Ws.range("C57:AA60")
rg=Tables("表A")
app.screenupdating=True
End If