ä¸é¢è¿æ®µç¨åºæ¯è¿æ¥æ°æ®åºï¼å¹¶å°excelè¡¨æ ¼å
容åå
¥æ°æ®åºã代ç å¦ä¸ï¼
Sub FYMXDL()
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String 'åå
æ§è´¨
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'æ¸
空æ¹å°åº-建ççè´¹ç¨æç»
Sql = "delete from fymxb where å°åºID=" & XQID & " AND 建çID = " & JZID
cONn.Execute Sql
Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
Sql = "INSERT INTO fymxb(å°åºID,建çID,è´¹ç¨ID,åå
æ§è´¨,å·¥ä½é,åä»·å计_ä¸æ ,人工费_ä¸æ , 主æè´¹_ä¸æ , è¾
æè´¹_ä¸æ , æºæ¢°è´¹_ä¸æ , 管çè´¹_ä¸æ , å©æ¶¦_ä¸æ ,è§è´¹_ä¸æ ,ç¨é_ä¸æ ,åä»·_ä¸æ ,åä»·å计_æ åææ¬,人工费_æ åææ¬,主æè´¹_æ åææ¬,è¾
æè´¹_æ åææ¬,æºæ¢°è´¹_æ åææ¬,管çè´¹_æ åææ¬,å©æ¶¦_æ åææ¬,è§è´¹_æ åææ¬,ç¨é_æ åææ¬,åä»·_æ åææ¬,åä»·å计_å®é
ææ¬,人工费_å®é
ææ¬,主æè´¹_å®é
ææ¬,è¾
æè´¹_å®é
ææ¬,æºæ¢°è´¹_å®é
ææ¬,管çè´¹_å®é
ææ¬,å©æ¶¦_å®é
ææ¬,è§è´¹_å®é
ææ¬,ç¨é_å®é
ææ¬,åä»·_å®é
ææ¬) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"
For i = 1 To 31
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"
cONn.Execute Sql
hh = hh + 1
Loop
End Sub
温馨提示:答案为网友推荐,仅供参考