用于 PDF 导入的 Excel VBA 计数器

用于 PDF 导入的 Excel VBA 计数器

我正在尝试将 VBA 脚本包含到我正在制作的电子表格中,该脚本将 7 个 PDF 导入到一系列单元格中。我使用以下代码进行导入,除了将导入的内容放到我想要的位置之外,它运行良好。我能够让脚本选择一列。这意味着我使用Range("B" & Counter).SelectCounter = 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

相关内容