从组合框中的选定值打开 pdf 文档 - 用户表单

Question

我正在为我的情况寻找解决方案。

我正在为我的部门制作宏，但我卡住了。

我有 6 种不同的职业道路，我想将 pdf 文档链接到组合框中的值。这就是它的样子。我有一个组合框，如下图所示：

组合框的数据在隐藏的其他工作表中：

我想要做的是，如果组合框中的值是例如“实践中的自信”，那么在单击命令按钮“读取”后，我想打开位于B1 列中的 pdf 文件。

有什么办法吗？

Answer 1

是的，您可以打开该文件...以下是一个如何执行此操作的示例（加上一个用于测试代码的子程序）。只需按如下所述更改代码即可。

修改现有按钮 单击以添加 'OpenFile 行，如图所示。 传递完整路径和文件名。 我假设您的组合框将路径作为组合框中的列？如果 不是，您应该将其添加为隐藏列

 Private Sub cmdRead_Click()
        ' whatever code you have or need
        OpenFile Me.cboXXXX.Column(1)     ' Change to the name of your combobox AND column # of Full Path
        ' whatever other code you want
    End Sub


'---- Create a new module and paste all of the following code in it

Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenFile(sFileName As String)
On Error GoTo Err_OpenFile

    OpenFile = ShellExecute(Application.hWndAccessApp, "Open", sFileName, "", "C:\", 1)

Exit_OpenFile:
    Exit Function

Err_OpenFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_OpenFile

End Function

Public Function TestOpeningFile()
On Error GoTo Err_TestOpeningFile

    OpenFile "C:\Windows\Win.ini"

Exit_TestOpeningFile:
    Exit Function

Err_TestOpeningFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_TestOpeningFile

End Function

Answer 2

 Sub Training()

Call Workbook_Open

End Sub

Private Sub Workbook_Open() 'open the msgbox with the message and username.
MsgBox "            " & ("Welcome") & vbCrLf & vbCrLf & "        " & Application.UserName

Userform1.Show

End Sub



In Userform I got:


    Private Sub Analytical_Button_Click()

Analytical_userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Analytical").Range("A1"), ThisWorkbook.Worksheets("Analytical").Range("A200"))
    If cell.Value <> "" Then Analytical_userform.ComboBox1.AddItem cell.Value
Next cell

Analytical_userform.Show


End Sub


Private Sub Client_Button_Click()

Client_userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Client").Range("A1"), ThisWorkbook.Worksheets("Client").Range("A200"))
    If cell.Value <> "" Then Client_userform.ComboBox1.AddItem cell.Value
Next cell

Client_userform.Show


End Sub

Private Sub Expert_Button_Click()

Expert_userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Expert").Range("A1"), ThisWorkbook.Worksheets("Expert").Range("A200"))
    If cell.Value <> "" Then Expert_userform.ComboBox1.AddItem cell.Value
Next cell

Expert_userform.Show

End Sub


Private Sub Managerial_Button_Click()

Managerial_userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Managerial").Range("A1"), ThisWorkbook.Worksheets("Managerial").Range("A200"))
    If cell.Value <> "" Then Managerial_userform.ComboBox1.AddItem cell.Value
Next cell

Managerial_userform.Show

End Sub

Private Sub Project_Button_Click()

Project_Userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Project").Range("A1"), ThisWorkbook.Worksheets("Project").Range("A200"))
    If cell.Value <> "" Then Project_Userform.ComboBox1.AddItem cell.Value
Next cell

Project_Userform.Show

End Sub

Private Sub Trainer_Button_Click()

Trainer_userform.ComboBox1.Clear

For Each cell In Range(ThisWorkbook.Worksheets("Trainer").Range("A1"), ThisWorkbook.Worksheets("Trainer").Range("A200"))
    If cell.Value <> "" Then Trainer_userform.ComboBox1.AddItem cell.Value
Next cell

Trainer_userform.Show

End Sub

Private Sub UserForm_Click()

End Sub

请检查快照：

screenshot screenshot1

我想通过点击“阅读”按钮打开培训