你直接用excel的VBA好不好,简单方便,老少皆宜。
如果你非要用java的话你得先找到java处理excel的包导到java工程里。
其余跟正常java存数据一样了。
我给你个VBA连接数据库的代码 你看着改改。
'****ConnectDB*****
Private Function connect(dbusr As String) As Boolean
connect = False
On Error GoTo ERROR_SECTION
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'******** User Password link ********
Dim dbLink As String
dbLink = dbusr + "/" + dbusr
Set OraDatabase = OraSession.OpenDatabase("orclprod", dbLink, 8&)
'******** User Password link ********
connect = True
Exit Function
ERROR_SECTION:
Call MsgBox(Str(Err.Number) + "-" + Err.Description, vbOKOnly + vbCritical, "Connect Err")
Err.Clear
End Function
'****disConnectDB*****
Private Function disconnect() As Boolean
disconnect = False
On Error GoTo ERROR_SECTION
Set OraDatabase = Nothing
Set OraSession = Nothing
disconnect = True
Exit Function
ERROR_SECTION:
Call MsgBox(Str(Err.Number) + "-" + Err.Description, vbOKOnly + vbCritical, "DisConnect Err")
Err.Clear
End Function
Private Sub CommandButton1_Click()
Dim userDB As String
Dim nameDB As String
Dim nameAccount As String
Dim sumAcc As String
Dim columnRow As Integer
Dim endFal As Boolean
userDB = "aa"
nameDB = "bb"
sumAcc = 4
endFal = True
While endFal
nameAccount = Sheets("AccountCode").Cells(sumAcc, 4)
sumAcc = sumAcc + 1
If nameAccount = "" Then
endFal = False
End If
Wend
If connect(userDB) = False Then
Sheets("AccountCode").Cells(1, 5) = "Connect Error"
Else
For columnRow = 4 To sumAcc - 2
nameAccount = Sheets("AccountCode").Cells(columnRow, 4)
Call getAccountBK(nameDB, nameAccount, columnRow)
Next columnRow
End If
If disconnect = False Then Exit Sub
End Sub
温馨提示:内容为网友见解,仅供参考