读取combobox数据出错

zhaodx

打开以前2007版office 编写的文件。发现读取ComboBox里面的赋值总是错误，debug后，错误停留在下面代码的语句   .Range("yyyy") = 0

现在用的office 2010, 请问专家怎么修改代码才不会出现debug提示. 请看下面的代码

Private Sub CommandButton4_Click() 'Horizontal
Dim Sql$, Conn
With Sheets("DatedWells")
'******** define the year when the wells drilled********
If Me.ComboBox2.Value = "Unlimited" Then
   .Range("yyyy") = 0
Else
   .Range("yyyy") = Me.ComboBox2.Value
End If
'****************************************************
Range("A4:L2000").ClearContents
    Set Conn = CreateObject("adodb.connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
If .Range("yyyy") <> 0 Then
    Sql = "Select Rig_Nr,Well_Name,Mv_Date,Spud_Date,TD_Date,Rlsd_Date,Current_Depth,AFE_Nr,Block,Acc_Cost,Classification,Type from [rawdata$]where Type='Horizontal'And year(" & .Range("Search_Dates") & ")=" & .Range("yyyy") & " order by Rlsd_Date"
Else
   Sql = "Select Rig_Nr,Well_Name,Mv_Date,Spud_Date,TD_Date,Rlsd_Date,Current_Depth,AFE_Nr,Block,Acc_Cost,Classification,Type from [rawdata$]where Type='Horizontal' order by Rlsd_Date"
End If
    Range("a4").CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End With
End Sub

liulang0808

楼主使用的是原来工作薄及相应的工作表吗？还是做了表格修改的？
看看对应区域是否有名称之类的， .Range("yyyy")
不然就上传附件吧

zhaodx

liulang0808 发表于 2018-9-30 20:40
楼主使用的是原来工作薄及相应的工作表吗？还是做了表格修改的？
看看对应区域是否有名称之类的， .Range( ...

Range("yyyy")中的yyyy是定义的名称，把从ComboBox读取的数据写在这个单元格里，但是写不进去。
Drilling Data Statistic_2011 - 副本.rar (232.04 KB, 下载次数: 1)

2018-10-1 01:30 上传

点击文件名下载附件

zhaodx

liulang0808 发表于 2018-9-30 20:40
楼主使用的是原来工作薄及相应的工作表吗？还是做了表格修改的？
看看对应区域是否有名称之类的， .Range( ...

谢谢！请查看附件