关于ADO用法的一个问题和sql in excel的问题

wz79945696

问题一：
如果数据源底表格式如下图（附件中的sheet=实际底表格式）

在ADO的应用中能判定有效范围么比如上图中的range（$A$2:$G$60000）即绿色部分
问题二：
SQL in excel
只希望其从上图中的返回从第六行开始至最后非空值 怎么写

工作簿1.rar (24.69 KB, 下载次数: 3)

2018-7-5 15:04 上传

点击文件名下载附件

附上
Sub 宏1() '2010
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    SQL = "Select 负责人,酒店名称,厨房 from [Sheet2$] where 负责人 is not null "
    ThisWorkbook.Worksheets("Sheet1").Cells(2, 3).CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

看见星光

工作簿1.rar (26.48 KB, 下载次数: 5)

2018-7-5 15:15 上传

点击文件名下载附件

wz79945696

看见星光 发表于 2018-7-5 15:15

Sub 宏1() '2010
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    SQL = "Select 负责人,酒店名称,厨房 from [Sheet2$] where 负责人>'0'  "
    ThisWorkbook.Worksheets("Sheet1").Cells(2, 3).CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub
在不使用f3,f4,f5的情况下 这样写是可以的 但是结果就会把【1月】那行给输出出来
如何修改才能在不使用f3,f4,f5的情况下 避免输出1月 呢

看见星光

wz79945696 发表于 2018-7-5 15:39
Sub 宏1() '2010
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")

用记录集的游标或者把记录集转换为数组后进行遍历。

看见星光

记录集转数组处理：
工作簿1.rar (27.72 KB, 下载次数: 7)

2018-7-5 15:57 上传

点击文件名下载附件

wz79945696

看见星光 发表于 2018-7-5 15:57
记录集转数组处理：

Sub 宏3() '2010
    Dim cnn As Object, rst As Object, SQL$, SQL1$
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    SQL = "Select * from [Sheet2$b6:h]"
    Set rst = cnn.Execute(SQL)
    SQL1 = "Select * from rst"
    ThisWorkbook.Worksheets("Sheet1").Cells(2, 3).CopyFromRecordset rst.Execute(SQL1)
    rst.Close
    cnn.Close
    Set cnn = Nothing
End Sub

尝试了一下，思路是按老师说的：现将整个工作簿存在cnn中，然后在cnn中执行SQL，并存在rst中，然后再次在再rst中执行SQL1
报的错应该是 Execute（）不是rst的可用属性或方法

wz79945696

看见星光 发表于 2018-7-5 15:57
记录集转数组处理：

貌似已近回复我了 才看到 我先看看