Question

我有一个用于数据输入的Excel文档，该文档将由多人使用。我有一个用户窗体，该文件将一个文件附件作为对象插入到电子表格的某个列中，该列与它所属的数据行有关。我遇到的唯一问题是，我尝试从另一台计算机打开excel文档，并且在尝试打开附件时，它表示无法找到对象的源/路径。有什么办法可以从其他计算机等访问此文件附件？

这是我在用户表单的Submit_Click按钮中具有的代码，该代码用于插入并格式化文件附件：

    If IsEmpty(Range("Z" & ActiveCell.Row).Value) = True Then


        Dim vFile As Variant, Sh As Object
        vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")

        If vFile = False Then Exit Sub
        Range("Z" & ActiveCell.Row).Select

        Dim OleObj As OLEObject
        Set OleObj = ActiveSheet.OLEObjects.Add(Filename:=vFile, Link:=False, DisplayAsIcon:=True, IconFileName:= _
            "C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
            IconIndex:=0, IconLabel:=Range("A" & ActiveCell.Row).Value)
        OleObj.ShapeRange.LockAspectRatio = msoFalse
        OleObj.Height = Range("Z" & ActiveCell.Row).Height - 1
        OleObj.Width = Range("Z" & ActiveCell.Row).Width - 1
        OleObj.ShapeRange.Fill.ForeColor.RGB = RGB(127, 127, 127)
        OleObj.ShapeRange.Fill.Visible = msoTrue
        OleObj.ShapeRange.Fill.Solid


    Else
    End If
End If

如何插入可以在另一台计算机上打开的文件附件？

0 个答案: