怎样抓某些行列里的数据到SQL

savage333

如下图，在excel中做一个提交按钮，要将excel表中的标绿色的ABEHJ列的里的数据从第11行开始抓起，以及单元格B2的数值写入到SQL表单中。日期B2的单元格内容作为一个判断条件，例如按照下面图片里的B2单元格里CW33，如果SQL中已经存在了CW33的数据，那只做update而不做重复写入，如果没有CW33的话就执行写入操作。求大神VBA代码

savage333

求帮啊，感谢感谢

魂断蓝桥

你的数据库是access的？ 如果是我可以试一试。

但需要你上传你的access文件

存在了CW33的数据，那只做update而不做重复写入，如果没有CW33的话就执行写入操作

这句可不可以理解成，不管有没有CW33的数据，先全部删除CW33的数据，然后统一INSERT ？

savage333

魂断蓝桥 发表于 2018-8-28 09:03
你的数据库是access的？ 如果是我可以试一试。

但需要你上传你的access文件

只是一个excel文件，不是access。只是想在excel里做一个提交按钮
可以这么理解的，可以先删除再插入。

魂断蓝桥

savage333 发表于 2018-8-28 10:11
只是一个excel文件，不是access。只是想在excel里做一个提交按钮
可以这么理解的，可以先删除再插入。

excel用ado 做不到删除，还需要你上传你的xls文件

savage333

魂断蓝桥 发表于 2018-8-28 10:25
excel用ado 做不到删除，还需要你上传你的xls文件

已经上传了，帮忙看看

魂断蓝桥

savage333 发表于 2018-8-28 11:42
已经上传了，帮忙看看

你上传的是空文件

savage333

之前上传错误，重新上传了excel表

魂断蓝桥

savage333 发表于 2018-8-28 13:47
之前上传错误，重新上传了excel表

weekly.rar (19.74 KB, 下载次数: 10)

2018-8-28 15:19 上传

点击文件名下载附件

Option Explicit

Sub A()
Dim cnn As Object
Dim Sql As String, ARR, i%
ARR = Sheet1.[A4].CurrentRegion
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
cnn.BeginTrans
For i = 2 To UBound(ARR)
    Sql = "select count(*) from [Sheet2$a1:f] where Week='" & Sheet1.[b2] & "' and Name='" & ARR(i, 1) & "'"
        If cnn.Execute(Sql)(0) = 0 Then
            Sql = "INSERT INTO [Sheet2$] (Week,Name,Market,[Out],[IN],Stock) " _
            & "VALUES('" & Sheet1.[b2] & "','" _
            & "" & ARR(i, 1) & "'," _
            & "'" & ARR(i, 2) & "'," _
            & "'" & ARR(i, 5) & "'," _
            & "'" & ARR(i, 8) & "'," _
            & "'" & ARR(i, 10) & "')"
            cnn.Execute Sql
        Else
            Sql = "UPDATE [Sheet2$]  " _
            & "SET Week='" & Sheet1.[b2] & "'," _
            & "Name='" & ARR(i, 1) & "'," _
            & "Market='" & ARR(i, 2) & "'," _
            & "[Out]='" & ARR(i, 5) & "'," _
            & "[IN]='" & ARR(i, 8) & "'," _
            & "Stock='" & ARR(i, 10) & "'" _
            & " where Week='" & Sheet1.[b2] & "' AND Name='" & ARR(i, 1) & "'"
            cnn.Execute Sql
        End If
Next
cnn.CommitTrans
Sheet2.Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, TrailingMinusNumbers:=True
cnn.Close: Set cnn = Nothing
End Sub

savage333

魂断蓝桥 发表于 2018-8-28 15:20
Option Explicit

Sub A()

万分感谢，如果我只需要从第6行到第12行的数据，该怎么写？