在工作表顶部插入空行

时　间:2021-05-16 12:57:48
作　者:杨雪   ID：42182  城市：南京
摘　要:在工作表顶部插入空行。
正　文:

代   码:

'在工作表顶部插入空行
Private Sub cmd_插入空行_Click()
On Error GoTo 创建
    Dim xlApp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
    '获取指定的工作表
    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例工作簿.xlsx")
    Set xlWsh = xlWbk.Worksheets("员工档案")
    xlWsh.Activate
    '在工作表的第一行之前插入空白行
    xlWsh.Range("1:1").Insert xlDown
    Set xlWbk = Nothing
    Set xlApp = Nothing
创建:
    If Err = 429 Then
        Set xlApp = CreateObject("Excel.Application")
        Resume Next
    End If
End Sub

附   件:

点击下载此附件

图   示: