求大家帮忙看看下面代码错在哪了，很急，谢谢！

伊~水

Sub CommandButton1_Click()

Dim wb As Workbook, fn As String, i As Integer, snt As Range

fn = ThisWorkbook.Path & "\1.xlsx"

Set wb = GetObject(fn)

i = wb.Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count - 1

snt = wb.Worksheets("sheet1").Range("A1").Resize(i, 0)

snt.Copy ThisWorkbook.Worksheets("sheet1").Range("A1")

End Sub

运行之后提示应用程序定义或对象定义错误。应该是后两行的问题，但不知道该怎么改。
希望大家帮忙看看。。

李甲

RESIZE不可以弄0的                     

hehex

snt = wb.Worksheets("sheet1").Range("A1").Resize(i, 0)
这句话是你打开的文件Sheet1 表的A1 单元格为起始引用，i 行，引用多少列，最少也是1.
如果是1 那么就是Range("A1:A"& i ), 就是A 列到最后一行有数据的单元格区域，看你要引用多少列
后面就是几。

伊~水

hehex 发表于 2013-2-26 14:32
snt = wb.Worksheets("sheet1").Range("A1").Resize(i, 0)
这句话是你打开的文件Sheet1 表的A1 单元格为起 ...

snt = wb.Worksheets("sheet1").Range("A1&A", i)
是这样的么，仍然有问题啊~

hehex

伊~水 发表于 2013-2-26 14:39
snt = wb.Worksheets("sheet1").Range("A1&A", i)
是这样的么，仍然有问题啊~

如果你要把snt 设为打开表的A1:Ai 单元格区域，明显snt 是个range 对象
语句当然是 Set snt = wb.Worksheets("sheet1").Range("A1:A"& i)对象赋值不能省略Set 语句。
或者使用Resize
Set snt = wb.Worksheets("sheet1").Range("A1").Resize(i,1)

伊~水

hehex 发表于 2013-2-26 17:02
如果你要把snt 设为打开表的A1:Ai 单元格区域，明显snt 是个range 对象
语句当然是 Set snt = wb.Worksh ...

懂了！谢谢！