关于excel中利用vba将数据保存到SQL的问题

答案:2 悬赏:60 手机版

解决时间 2021-03-04 14:09

提问者网友：末路
2021-03-03 17:49

因字段较多，不想按照字段名称进行导入，可否利用循环的方式将excel中的某些字段（根据列号数）的所有记录保存到SQL上（假设excel与SQL的字段顺序是相同的），请高手指点一下

最佳答案

五星知识达人网友：往事隔山水
2021-03-03 18:14

INSERT INTO TT(iYear,iMonth,Dept,Amount,Account,FA) SELECt iYear,iMonth,Dept,Amount,Account,FA" & _
" FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','DataSource=""" & strTempSourcePath & "\Source\"& strTempSourceName & _
""";User ID=ADMIN;Password=;Extended properties=Excel5.0')...[" & strSheetName(iMonth) & "$]

全部回答

1楼网友：底特律间谍
2021-03-03 19:34

那就先输出字段名后，再输出数据。 for i=0 to rs.fields.count-1 activesheet.cells(1,i+1).value=rs.fields(i).name'将字段放在第一行 next range("b1").copyfromrecordset rs'数据就从第2行开始

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！