如何在VBA excel中添加上传附件按钮

问题描述

我已经在excel VBA上开发了一个小型票务系统 保存按钮将从文本框和单选按钮中获取所有数据，并将其添加到行号7（在这种情况下） 但是当我按上载时，我无法将链接添加到附件标签

如何使用（上传文件）按钮添加指向附件标签的链接 还要保存存储在上传文件按钮中的链接值，以便以后在清除按钮和保存按钮中使用它吗？

我很困惑使用私有子变量和私有暗变量。 我是VBA的新手，请帮忙

User Form of the System

保存按钮代码

上传按钮代码

Public Sub btnAttachment_Click()

“要上传的文件链接格式为png，jpeg，PDF或所有文件”

将wim作为工作表 昏暗的链接列表作为范围 昏暗lastRowLink只要 昏暗的LinkAttached只要长

设置wks = ActiveSheet

设置LinksList = Range（“ N1”）

'声明最后一行以插入链接 lastRowLink = WorksheetFunction.CountA（Sheets（“ Tickets”）。Range（“ A：A”）） Sheets（“ Tickets”）。Cells（lastRow + 1，11）.Value = LinkAttached

ChDrive "C:\"
ChDir "C:\"
Filt = "PNG Files(*.png),*.png," & _
        "Jpeg Files(*.jpeg),*.jpg," & _
        "PDF Files (*.pdf),*.pdf," & _
        "All Files (*.*),*.*"
FilterIndex = 1
Title = "Select a File to Hyperlink"
Filename = Application.GetOpenFilename _
    (FileFilter:=Filt,_
     FilterIndex:=FilterIndex,_
     Title:=Title)

If Filename <> False Then
   wks.Hyperlinks.Add Anchor:=LinksList,_
   Address:=Filename,_
    TextToDisplay:=Filename
Else
    MsgBox "No file was selected.",vbCritical,"Loading Error"
    Exit Sub
End If

结束子

附件PDF文件链接也包含代码和照片

Buttons Code link

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）