Excel中有上万条数据，现在需要把每一条数据录入到一个网页的数据库中，复制粘贴太多了，烦恼

这个很简单，就是脚本数据录入自动化的。你可以用下“无敌点击狗”这样软件，不需复杂的编程，上边有自动录入数据和点击按键的图形化菜单选项。而且无敌点击狗是灵活多样的脚本动作模拟，支持各种自动录入的功能，避免手工录入的麻烦。

通过vba+access数据库可以实现。

单据以excel表格形式输入，完成后启动程序写入access数据库。

下面给出一个建筑行业费用管理的实例，供参考。

这是一个输入费用的界面，利用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 ADODBRecordset

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空改小区-建筑的费用明细

Sql = "delete  from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONnExecute 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 & " )"

cONnExecute Sql

hh = hh + 1

Loop

End Sub

Sub FYMXDc() '导出费用明细

Dim jgarr(1 To 5, 1 To 2) As String '存放各级名称:1-id 2-名称

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 ADODBRecordset

Const kshh = 7

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空EXCEL

Range("A7：AQ1000")ClearContents

Sql = "SELECT   from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

If rstRecordCount > 0 Then

ARR = rstGetRows

Else

Exit Sub

End If

rstClose

Set rst = Nothing

hh = UBound(ARR, 2)

lh = UBound(ARR, 1)

For i = 0 To hh

Cells(kshh + i, 2) = ARR(0, i) 'ID

Cells(kshh + i, 3) = ARR(3, i) '费用ID

myid = ARR(3, i)

For j = 4 To 36

Cells(kshh + i, j + 7) = ARR(j, i) '分包性质后

Next j

'rstClose

'Set rst = Nothing

Sql = "select 名称,fid,SID,LEV,特征描述 from kmmxb where id = " & myid

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

myfid = ARR2(1, 0)

mysid = ARR2(2, 0)

mylev = ARR2(3, 0)

mytzms = ARR2(4, 0)

MYSIDARR = Split(mysid, "-")

For k = 1 To mylev

jgarr(k, 1) = MYSIDARR(k - 1)

Next k

rstClose

For k = 1 To mylev

Sql = "select 名称 from kmmxb where id = " & jgarr(k, 1)

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

jgarr(k, 2) = ARR2(0, 0)

rstClose

Next k

HH2 = kshh + i

'Cells(hh2, 3) = myid

Cells(HH2, 1) = myfid

For k = 1 To mylev

Cells(HH2, 4 + k - 1) = jgarr(k, 2)

Next k

Cells(HH2, 9) = mytzms

Next i

Call gs

End Sub

<td height="23" colspan="-5" class="td2"><input name="zw" type="text" style="height:20px;font-size:15px;" id="zw" value="<%=rs("zw")%>+1"> 编号需+1</td>,看不太懂你要表达什么

以上就是关于Excel中有上万条数据，现在需要把每一条数据录入到一个网页的数据库中，复制粘贴太多了，烦恼全部的内容，包括:Excel中有上万条数据，现在需要把每一条数据录入到一个网页的数据库中，复制粘贴太多了，烦恼、Excel 求助：单据录入和数据自动存储、ASP录入单据，编号读取数据库用户最后一条，然后+1等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！