Question

我有一组要自动输入pdf的值。首先打开pdf文件，然后使用sendkey在pdf文件中的设置文本框之间切换。我正在尝试使用我定义的设置变量（D1，D2，D3等）循环此sendkeys函数。

我已经/尝试过的方法无法正常工作，而且我似乎无法弄清楚如何定义要查看的列表（显示为XXXXX）。

代码如下所示：

Sub CreatePDFForms()
Dim PDFTemplateFile, NewPDFName, SavePDFFldr, Desc As String
Dim CustRow, LastRow As Long

With Sheet1
LastRow = .Range("A999").End(xlUp).Row    
PDFTemplateFile = .Range("F2").Value       
SavePDFFldr = .Range("F4").Value           
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.000004

For CustRow = 13 To 13 ' LastRow
D1 = .Range("L" & CustRow).Value        
D2 = .Range("B" & CustRow).Value          
D3 = .Range("AC" & CustRow).Value
D4 = .Range("C" & CustRow).Value
D5 = .Range("Y" & CustRow).Value
D6 = .Range("AB" & CustRow).Value
D7 = .Range("Z" & CustRow).Value
D8 = .Range("U" & CustRow).Value
'D9 = .Range("AA" & CustRow).Value
'D10 = .Range("AA" & CustRow).Value

Description = D4                      

DataEntry = XXXXX(D1, D2, D3, D4, D5, D6, D7, D8)

For DataEntry = 1 To 8

Application.SendKeys "{Tab}", True
Application.SendKeys DataEntry, True
Application.Wait Now + 0.00001

Next DataEntry

Answer 1

DataEntry = Array(D1, D2, D3, D4, D5, D6, D7, D8)

For Each e in DataEntry 

    Application.SendKeys "{Tab}", True
    Application.SendKeys e, True
    Application.Wait Now + 0.00001

Next e

遍历具有定义值的一组变量

1 个答案: