0

我正在使用下面列出的脚本（老实说，我可能从这个站点偷了这个脚本）作为表单上的浏览按钮。任务只是启动 MS 文件对话框，以便可以选择文件（在本例中为图像文件）。选择记录并单击确定后，它将文件名和位置粘贴到字段中。查看表格，文件名和位置已按原样粘贴。问题来自我建立的一份报告。我设置了要显示的图像，其中控制源链接回该文件地址字段。但它不会显示图像。
但是，如果我手动为字符输入相同的地址字符，甚至“复制”、删除、然后将相同的确切条目“粘贴”到字段中，图像就会在报告上正常显示。我已检查以确保在不应该出现的任何地方都没有空格或字符。我在这里不知所措。任何帮助将不胜感激，我很乐意给你我的第一个孩子。好吧，也许不是第一个我喜欢他，但你可以拥有第二个，她是地狱。

Private Sub Command67_Click()

 On Error GoTo SubError
    'Add "Microsoft Office 14.0 Object Library" in references
    Const msoFileDialogFilePicker As Long = 3
'Dim FD As Office.FileDialog
Dim FDialog As Object
Dim varfile As Variant
Set FDialog = Application.FileDialog(msoFileDialogFilePicker)

EmployeePicture = ""

' Set up the File Dialog
Set FDialog = Application.FileDialog(msoFileDialogFilePicker)

With FDialog
    .Title = "Choose the spreadsheet you would like to import"
    .AllowMultiSelect = False
    .InitialFileName = "C:\Users\"  'Folder picker needs trailing slash

    .Filters.Clear
    .Filters.Add "All", "*.*"

    If .Show = True Then
        If .SelectedItems.Count = 0 Then
            'User clicked open but didn't select a file
            GoTo SubExit
        End If

        'An option for MultiSelect = False
        'varFile = .SelectedItems(1)
        'EmployeePicture = varFile

        'Needed when MultiSelect = True
        For Each varfile In .SelectedItems
            EmployeePicture = EmployeePicture & varfile & vbCrLf
        Next
    Else
        'user cancelled dialog without choosing!
        'Do you need to react?
    End If

End With


SubExit:
On Error Resume Next
    Set FDialog = Nothing
    Exit Sub

SubError:
    MsgBox "Error Number: " & Err.Number & " = " & Err.Description, vbCritical + vbOKOnly, _
        "An error occurred"
    GoTo SubExit

End Sub
4

0 回答 0