импорт выделенного диапазона

[liker125]

добрый день!у меня есть таблица в Еxcel ee нужно импортировать, но только тот диапазон который был выделен.можете подсказать как это сделать. у меня есть код который работает на всю таблицу

Sub PutDataToDB()
Dim cn As ADODB.Connection
Dim i, j As Integer
Dim vales As String
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "DATABASE=dbTechno;DRIVER=SQL Server;SERVER=srvDB;';UID=" & Cells(4, 18).Value & " ;PWD=" & Cells(4, 19).Value & ""
    cn.Open
    
           
    For j = 4 To 7
        vales = ""
            vales = vales & "'" & Cells(j, 4).Value & "',"
         For i = 5 To 15
            vales = vales & "" & Cells(j, i).Value & ","
         Next i
            vales = vales & " " & Cells(j, 16).Value
    
        
       'strSQL = "DELETE FROM dbo.tbTechOtvodArh WHERE (lcoObject= Cells(j, 5).Value ) AND (lcoTypeData = Cells(j, 6).Value)AND (lcoPeriod = Cells(j, 7).Value) and (dDate BETWEEN '" & Me.dDateBeg & "' AND '" & Me.dDateEnd & "') "
        strSQL = "INSERT INTO dbo.tbTechOtvodArh (dDate, lcoObject, lcoTypeData, lcoPeriod, fP1, fP2, fT1, fT2, fG1, fG2, fQ1, fQ2, sUser, dDateChange) values (" & vales & ", now)"
        
        cn.Execute strSQL
    Next j
    
    cn.Close
    Set cn = Nothing
 
End Sub

заранее спасибо

[EducatedFool]

Я ж вам предлагал функцию - но, видимо, вы не хотите упростить свой код.

А ведь можно было бы ограничиться одной строкой:

vales = Range2TXT(Selection, ", ", vbLf)     ' считываем текст в переменную