UC知道怎样利用VB在Excel中插入一行？
来源：百度知道 编辑：UC知道 时间：2024/05/07 10:13:16
请高手教一教！
我用Excel录制宏后得出的代码：
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("2:2").Select
Selection.Copy
Rows("3:3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
但是复制到VB中是有问题的！请问该怎么解决？
我的目的是想先插入一行，然后在插入的空行中复制一行。
我用Excel录制宏后得出的代码：
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("2:2").Select
Selection.Copy
Rows("3:3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
但是复制到VB中是有问题的！请问该怎么解决？
我的目的是想先插入一行，然后在插入的空行中复制一行。
虽然只有10分，但是我也不介意分享我知道的。
1,工程中引用 Microsoft Excel xx.x Object Library .
2,创建EXCEL的实例
Dim xls As Excel.Application
Dim sheet1 As Worksheet
Set xls = CreateObject("Excel.Application")'也可以获取打开的Set xls = GetObject(, "Excel.Application")
xls.Visible = True
剩下的不懈出来了，如果你有点VB和VBA的基础就能自己写出来，现在在VB中输入XLS.就跟跟在VBA中输入Application.相同了.
可以在Excel里录制插入一行的代码，然后把代码研究一下，COPY到VB里就可以用了
是否有在工程中引用 Microsoft Excel xx.x Object Library ?
Public xlApp As New Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet