Tag: getopenfilename

如何将更多的文件添加到Excel文件

我想添加更多的文件到我的Excel文件。 这个macros在multiselect为false的情况下工作，但是如果我用multiselect = true来尝试，我会在行中得到一个错误信息： 如果attachment = false，则退出sub。 错误消息是types不匹配。 Sub insertObject() Dim attachment As Variant 'open more files, but not from specific folder attachment = Application.GetOpenFilename(FileFilter:="All Files (*.*), *.*", MultiSelect:=True) 'if attachment is missing then end macro If attachment = False Then Exit Sub 'my try with OLEobjects ActiveSheet.OLEObjects.Add(Filename:=attachment, Link:=False, DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", IconIndex:=1, IconLabel:=attachment).Select End Sub

如何获取文件名而不是打开文件的整个文件path？

换句话说，在调用Application.GetOpenFileName()方法之后，是否需要执行一些string处理？

在“Application.GetOpenFilename”中单击退出或取消时出现错误消息

我正在将工作簿中的特定工作表导入到当前正在使用的工作簿中。 导入重新导入之前，通过删除当前工作表连续罚款。 有一件事情需要修正。 当我取消或退出GetOpenFilename应用程序时，它带有： False.xlsx未find（…） 所以我补充说： filespec = Application.GetOpenFilename() If filespec = False Then Exit Sub 在Sub import_click() ，但是我不想让我问这个文件两次。 但是，如果我不包括filespec = Application.GetOpenFilename()它不起作用。 代码如下： Sub import_click() filespec = Application.GetOpenFilename() If filespec = False Then Exit Sub Call deletedatasheet Call import MsgBox "Data imported", vbInformation End Sub Private Sub import() Dim wsMaster As Worksheet Dim rd As […]