主题：vba

以下内容为程序代码:

1 Dim result As DialogResult
2 result= messagebox.Show("请保证当前窗口的全部信息已经填写完毕或者显示完毕再进行生成SPC操作.","提示",MessageBoxButtons.OKCancel)
3 If result=DialogResult.OK Then
4 Dim App As New MSExcel.Application
5 App.Visible = True
6 Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\spc计量型控制.xlsx")
7 Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
8 app.ScreenUpdating=False
9
10 '工厂
11 Dim rg As MSExcel.Range = Ws.Cells(5,4)
12 rg.value=e.Form.Controls("TextBox1").text
13 '部门
14 Dim rg1 As MSExcel.Range = Ws.Cells(5,11)
15 rg1.value=e.Form.Controls("TextBox2").text
16 '零件号
17 Dim rg2 As MSExcel.Range = Ws.Cells(6,5)
18 rg2.value=e.Form.Controls("TextBox3").text
19 '零件描述
20 Dim rg3 As MSExcel.Range = Ws.Cells(6,11)
21 rg3.value=e.Form.Controls("TextBox4").text
22 '图纸编号
23 Dim rg4 As MSExcel.Range = Ws.Cells(7,5)
24 rg4.value=e.Form.Controls("TextBox5").text
25 '工程更改水平
26 Dim rg5 As MSExcel.Range = Ws.Cells(7,11)
27 rg5.value=e.Form.Controls("TextBox6").text
28 '模具编号
29 Dim rg6 As MSExcel.Range = Ws.Cells(8,5)
30 rg6.value=e.Form.Controls("TextBox7").text
31 '模腔数
32 Dim rg7 As MSExcel.Range = Ws.Cells(8,11)
33 rg7.value=e.Form.Controls("TextBox8").text
34 '描述
35 Dim rg8 As MSExcel.Range = Ws.Cells(9,5)
36 rg8.value=e.Form.Controls("TextBox9").text
37 '单位
38 Dim rg9 As MSExcel.Range = Ws.Cells(9,12)
39 rg9.value=e.Form.Controls("TextBox10").text
40 '尺寸规格
41 Dim rg10 As MSExcel.Range = Ws.Cells(10,4)
42 rg10.value=e.Form.Controls("NumericComboBox1").value
43 '上公差
44 Dim rg11 As MSExcel.Range = Ws.Cells(10,6)
45 rg11.value=e.Form.Controls("NumericComboBox2").value
46 '下公差
47 Dim rg12 As MSExcel.Range = Ws.Cells(10,8)
48 rg12.value=e.Form.Controls("NumericComboBox3").value
49 '日期
50 Dim rg13 As MSExcel.Range = Ws.Cells(4,25)
51 rg13.value=Date.Now().tostring()
52 '部门
53 app.screenupdating=True
54 Dim b As New XLS.Book(ProjectPath & "Attachments\" & report & "spc计量型控制.xlsx")
55 Dim t As Table = Tables("spc")
56 Dim s As XLS.Sheet = b.Sheets(0)
57 Dim Style As XLS.Style = b.NewStyle() '定义新样式
58 s.Cols(5).Style=Style
59 For c As Integer = 0 To t.Cols.Count -1 '添加列标题
60 s(0, c).Value = t.Cols(c).Name
61 Next
62 For r As Integer = 0 To t.Rows.Count - 1 '填入数据
63 For c As Integer = 0 To t.Cols.Count -1
64 s(r +1, c).Value = t.rows(r)(c)
65 Next
66 Next
67 b.Save(ProjectPath & "Attachments\spc计量型控制.xlsx")
68 Dim Proc As New Process
69 Proc.File = (ProjectPath & "Attachments\spc计量型控制.xlsx")
70 Proc.Start()
71 End If
72 '表中有数据,把表中的数据导入到模板文件中