myexcel代码.docVIP

myexcel代码 Private Sub CommandButton1_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String ConnectionString = Provider=SQLOLEDB.1;Password=kingstar;Persist Security Info=True;User ID=sa;Initial Catalog=SSMISDIYDB;Data Source=172.15.199.9 conn.Open ConnectionString ycsj = Sheets(日报表1).Range(D2).Value dqsj = Sheets(日报表1).Range(G2).Value MsgBox (ycsj) Sheets(日报表).Select y = 7 y1 = y sql = exec zhuruhuizong dqsj , ycsj rs.Open sql, conn r = 3 Excel表的行序号 c = 5 Excel表的列序号 f = rs.Fields.Count - 1 While Not rs.EOF R = 1 For i = 0 To f MsgBox (rs.Fields(i).Value) If Not IsNull(rs.Fields(i).Value) Then Sheets(日报表).Cells(y, R).Value = rs.Fields(i).Value End If If R = 1 Then R = R + 5 Else If R = 35 Then R = R + 3 Else R = R + 1 End If End If Next y = y + 1 rs.MoveNext 将数据库的数据返回到EXCEL表中 Wend rs.Close y = y + 1 y2 = y sql = exec chengxinghuizong dqsj , ycsj rs.Open sql, conn r = 3 Excel表的行序号 c = 5 Excel表的列序号 f = rs.Fields.Count - 1 While Not rs.EOF R = 1 For i = 0 To f MsgBox (rs.Fields(i).Value) If Not IsNull(rs.Fields(i).Value) Then Sheets(日报表).Cells(y, R).Value = rs.Fields(i).Value End If If R = 1 Then R = R + 5 Else If R = 35 Then R = R + 3 Else R = R + 1 End If End If Next y = y + 1 rs.MoveNext 将数据库的数据返回到EXCEL表中 Wend rs.Close cxzlwz = y - 1 计算综合成品率--成型重量位置 y = y + 1 wz1 = B y1 wz2 = B y2 wz3 = B y wz4 = AS y wzname = A y Sheets(日报表).Range(wzname).Value = 成型率 GS = =IF(R[ y1 - y ]C0,R[ y2 - y ]C/R[ y1 - y ]C*100,0) gswz = wz3 : wz4 Sheets(日报表).Range(wz3).Select ActiveCell.FormulaR1C1 = GS Selection.AutoFill Destination:=Sheets(日