用Access激活指定工作表

时　间:2021-05-07 19:40:14
作　者:杨雪   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
    '打开当前文件夹下的“示例工作簿.xlsx”
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例工作簿.xlsx")
    '获取打开工作簿中的“员工档案”
    Set xlWsh = xlWbk.Worksheets("员工档案")
    '激活工作表
    xlWsh.Activate
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing
创建:
    If Err = 429 Then
        Set xlApp = CreateObject("Excel.Application")
        Resume Next
    End If
End Sub

附   件:

点击下载此附件

图   示: