我正在尝试将 VBA 脚本包含到我正在制作的电子表格中,该脚本将 7 个 PDF 导入到一系列单元格中。我使用以下代码进行导入,除了将导入的内容放到我想要的位置之外,它运行良好。我能够让脚本选择一列。这意味着我使用Range("B" & Counter).Select
它Counter = Counter + 1
会将 PDF 插入 B1,然后是 B2 等。
我遇到的问题是我需要将它们插入到 C101。它似乎将 C101 引用作为字符串并从单元格 C1011 开始,然后从 C1012 开始。
Sub AddOlEObject()
Dim mainWorkBook As Workbook
Set mainWorkBook = ActiveWorkbook
Dim Counter As Integer
Folderpath = "C:\Users\benba\OneDrive - BWSC\Skrivebord\Reports\CEMs"
Set fso = CreateObject("Scripting.FileSystemObject")
NoOfFiles = fso.GetFolder(Folderpath).Files.Count
Set listfiles = fso.GetFolder(Folderpath).Files
For Each fls In listfiles
Counter = Counter + 1
Range("B" & Counter).Select
strCompFilePath = Folderpath & "\" & Trim(fls.Name)
If strCompFilePath <> "" Then
ActiveSheet.OLEObjects.Add(Filename:=strCompFilePath, Link:=False, DisplayAsIcon:=False, IconIndex:=1, IconLabel:=strCompFilePath).Select
End If