如何从通配符目录中插入对象？

Worksheets("Sheet3").OLEObjects.Add filename:="C:\Users\myname\Desktop\" & fdcode & "*INVESTMENT INCOME DETAIL.pdf", Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150, Height:=10 

fdcode是基金代码的variables（去图）

不让我插入一些原因

基本上我有一堆不同的报告基金代码。 例如：

 FundA Investment Income Detail FundA Tax Summary FundB Investment Income Detail FundB Tax Summary 

唯一的问题是在FUND和REPORT NAME之间可能会有一些随机字符。

我需要能够放置一些无视之间的通配符。

Answer 1

首先，find你想要使用的文件名：

 Dim fName As String fName = Dir("C:\Users\myname\Desktop\" & fdcode & "*INVESTMENT INCOME DETAIL.pdf") 

这将把fName设置为它在该目录中find的第一个文件，该文件与您给出的规范相匹配。

然后在其他代码中使用该文件名（不包括目录名称，所以您需要继续指定）

 Worksheets("Sheet3").OLEObjects.Add filename:="C:\Users\myname\Desktop\" & fName, Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150, Height:=10