如何解决如何在VBA excel中添加上传附件按钮
我已经在excel VBA上开发了一个小型票务系统 保存按钮将从文本框和单选按钮中获取所有数据,并将其添加到行号7(在这种情况下) 但是当我按上载时,我无法将链接添加到附件标签
如何使用(上传文件)按钮添加指向附件标签的链接 还要保存存储在上传文件按钮中的链接值,以便以后在清除按钮和保存按钮中使用它吗?
我很困惑使用私有子变量和私有暗变量。 我是VBA的新手,请帮忙
保存按钮代码
上传按钮代码
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文件链接也包含代码和照片
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。