VB.NET WinForm中生成Excel为何range用变量不行？

[于之]

VB.NET WinForm中生成Excel为何range用变量不行？

本来：
exsheet.Range("A2:J2").Copy(Destination:=exsheet.Range("A3:J3"))
这句是正常起作用的

但是因为我的行会变化的。，所以，我改为：
exsheet.Range("A" & Str(i + 1) & ":J" & Str(i + 1)).Copy(Destination:=exsheet.Range("A" & Str(i + 2) & ":J" & Str(i + 2)))

但是总是不对， 请指点，谢谢！

[wangnaisheng]

VB.net中 excel 的range方法 参考一下

[于之]

我看了，还是没有解决，我要的是采用变量， Range中调用变量。为什么我那样写没有用呢？

[Tiger_Zhao]

没报错吗？
加断点、查看当前的 "A" & Str(i + 1) & ":J" & Str(i + 1) 值是多少？

[于之]

谢谢各位，试过了都不行， 改成了如下这样才可以： exsheet.Rows(line + 1).Copy() '--拷贝上一行格式 exsheet.Rows(line + 2).PasteSpecial() '--粘贴在下一行

[于之]

引用 3 楼 save4me 的回复:

exsheet.Range("A" & (i + 1).ToString() & ":J" & (i + 1).ToString()).Copy(Destination:=exsheet.Range("A" & (i + 2).ToString() & ":J" & (i + 2).ToString()))

试过了，也还是没有起作用。不知乍回事。

[save4me]

谢谢分享问题的解决方法

引用 6 楼 limx001 的回复:

谢谢各位，试过了都不行， 改成了如下这样才可以： exsheet.Rows(line + 1).Copy() '--拷贝上一行格式 exsheet.Rows(line + 2).PasteSpecial() '--粘贴在下一行

[save4me]

exsheet.Range("A" & (i + 1).ToString() & ":J" & (i + 1).ToString()).Copy(Destination:=exsheet.Range("A" & (i + 2).ToString() & ":J" & (i + 2).ToString()))