CopyFromRecordset方法

hunk0085

求助！！！！！
要求从A列的某行开始赋值
现在是按如下方法写的，一直报错
i = Range("A" & Sheet15.Rows.Count).End(xlUp).Row + 1
        Sheet15.Range(Sheet15.Cells(i, 1)).CopyFromRecordset Rst

我是来讨说法的

Sheet15.Cells(i, 1).CopyFromRecordset Rst

bajifeng

i = Range("A" & Sheet15.Rows.Count).End(xlUp).Row + 1
        Sheet15.Range(Sheet15.Cells(i, 1)).CopyFromRecordset Rst
两句合为一句，如下：

Sheet15.[a65536].end(3).offset(1).copyfromrecordset rst

hunk0085

我是来讨说法的 发表于 2016-1-20 13:15
Sheet15.Cells(i, 1).CopyFromRecordset Rst

非常感谢你的回答！感谢感谢感谢。不过这个方法不知道为啥，第一行数据出不来，下面的数据都正常。我现在采用的是3楼的方法，亲测可行。你的这个方法现在没时间验证，等空下来验证下啥问题导致的。

hunk0085

bajifeng 发表于 2016-1-20 13:55
i = Range("A" & Sheet15.Rows.Count).End(xlUp).Row + 1
        Sheet15.Range(Sheet15.Cells(i, 1)).Co ...

亲测此方法可行，非常感谢！

hunk0085

bajifeng 发表于 2016-1-20 13:55
i = Range("A" & Sheet15.Rows.Count).End(xlUp).Row + 1
        Sheet15.Range(Sheet15.Cells(i, 1)).Co ...

请问一下这里面的[a65536]是什么意思，我执行过之后，除数据之外一直会有到a65536行的空行

bajifeng

hunk0085 发表于 2016-1-20 14:43
请问一下这里面的[a65536]是什么意思，我执行过之后，除数据之外一直会有到a65536行的空行

[a65536]是你工作表的最后一行 【03版】

hunk0085

bajifeng 发表于 2016-1-20 15:42
[a65536]是你工作表的最后一行 【03版】

好的，明白了。再请教个问题，如果我要从有数据下面第一个空行开始，往下的空行全部删除有什么方法可以实现。要delete，不能clear，因为下面的空行影响sql查询，很影响效率

bajifeng

A列为例

Range([a2].end(4).offset(1),[a65536]).delete shift:=xlup

hunk0085

bajifeng 发表于 2016-1-20 16:11
A列为例

Range([a2].end(4).offset(1),[a65536]).delete shift:=xlup

我需要删除指定sheet的页面，不是我的当前操作页面。因我我删除的是其中一个数据中转页面。