使用SpreadsheetLight保存含图片的Excel时触发UnauthorizedAccessException

问题场景 #

使用SpreadsheetLight 3.5.0创建包含图片的Excel文件，调用SaveAs方法时触发System.UnauthorizedAccessException，提示无法访问原图片的网络路径。已确认能通过PictureBox显示图片、资源管理器打开图片，Windows基础访问权限无问题，且该问题仅在部分环境出现，映射驱动器和UNC路径均可能触发。

可尝试的解决方法 #

• 将图片读入内存后再插入
  SpreadsheetLight在保存Excel时可能会再次尝试读取原图片文件，若网络共享存在临时权限波动或文件被隐性锁定，就会触发权限错误。可以先将图片加载到内存流，再基于内存流创建SLPicture：

If OpenDialog.ShowDialog() = DialogResult.OK Then
    ' 将图片读入内存流
    Using ms As New MemoryStream()
        Using img As Image = Image.FromFile(OpenDialog.FileName)
            img.Save(ms, img.RawFormat)
            ms.Position = 0
        End Using

        Using pDoc = New SLDocument()
            ' 基于内存流创建SLPicture
            Dim pSLPic = New SLPicture(ms, Path.GetExtension(OpenDialog.FileName))
            pSLPic.SetPosition(1, 1)
            pDoc.InsertPicture(pSLPic)
            pDoc.SaveAs("test.xlsx")
        End Using
    End Using
End If

这种方式避免了保存时再次访问网络路径的图片文件，从根源规避网络共享的权限或锁定问题。

• 显式指定图片文件的共享访问模式
  默认创建SLPicture时可能独占锁定了原图片文件，导致后续保存时无法再次读取。可以显式以共享读模式打开文件：

If OpenDialog.ShowDialog() = DialogResult.OK Then
    Using pDoc = New SLDocument()
        Using fs As New FileStream(OpenDialog.FileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Dim pSLPic = New SLPicture(fs, Path.GetExtension(OpenDialog.FileName))
            pSLPic.SetPosition(1, 1)
            pDoc.InsertPicture(pSLPic)
        End Using
        pDoc.SaveAs("test.xlsx")
    End Using
End If

通过FileShare.ReadWrite参数避免文件被独占锁定，确保后续读取操作能正常执行。

• 升级SpreadsheetLight版本
  3.5.0是较旧的版本，可能存在网络路径图片处理的已知bug。尝试升级到最新稳定版，新版本大概率修复了这类文件访问权限相关的问题。

• 检查网络共享的权限细节
  虽然能直接打开图片，但SpreadsheetLight保存时可能使用了不同的权限上下文（如后台线程身份）。确认当前用户对目标网络路径拥有持续的读权限，而非临时授权；同时检查共享文件夹的高级权限，确保开启“读取和执行”“列出文件夹内容”权限。

• 临时复制图片到本地目录
  先将网络路径的图片复制到本地临时文件夹，使用本地路径创建SLPicture，保存完成后清理临时文件：

If OpenDialog.ShowDialog() = DialogResult.OK Then
    Dim tempPath = Path.Combine(Path.GetTempPath(), Path.GetFileName(OpenDialog.FileName))
    File.Copy(OpenDialog.FileName, tempPath, True)

    Try
        Using pDoc = New SLDocument()
            Dim pSLPic = New SLPicture(tempPath)
            pSLPic.SetPosition(1, 1)
            pDoc.InsertPicture(pSLPic)
            pDoc.SaveAs("test.xlsx")
        End Using
    Finally
        ' 清理临时文件
        If File.Exists(tempPath) Then
            File.Delete(tempPath)
        End If
    End Try
End If

通过本地文件规避网络共享的权限不稳定问题。

内容的提问来源于stack exchange，提问作者Kaniu