我试图将pdf文件(包含16页)转换为excel文件,以便运行我已在excel中使用的程序.我有一个代码将pdf转换为excel,但我希望宏将pdf文件的每个单独页面放在我的excel文件中的不同工作表中(目前它复制了pdf的所有页面和粘贴页面1)到工作表).
如果这有帮助的话,所有页面都有相同的标题.我的当前代码包含在下面,提前感谢.
Private Sub CommandButton1_Click()
'Declare Variable(s)
Dim appAA As Acrobat.CAcroApp, docPDF As Acrobat.CAcroPDDoc
Dim strFileName As String, intNOP As Integer, arrI As Variant
Dim intC As Integer, intR As Integer, intBeg As Integer, intEnd As Integer
'Initialize Variables
Set appAA = CreateObject("AcroExch.App"): Set docPDF = CreateObject("AcroExch.PDDoc")
'Set PDF FileName
strFileName = "C:\Documents and Settings\Michael Palkovitz\My Documents\Test\EC Operations Budget February FY13.pdf"
'Read PDF File
docPDF.Open (strFileName)
'Extract Number of Pages From PDF File
intNOP = docPDF.GetNumPages
'Select First Data Cell …这应该很简单,但我很难...我想复制单元格A3到E3,并将它们粘贴到不同工作表上的下一个空行.我之前在较长的代码串中使用过此代码..但是我不得不调整它,这次它不能正常工作.当我运行下面的代码时,我得到"应用程序定义的或对象定义的错误".所有帮助表示赞赏.
Private Sub CommandButton1_Click()
Dim lastrow As Long
lastrow = Range("A65536").End(xlUp).row
Range("A3:E3").Copy Destination:=Sheets("Summary Info").Range("A:A" & lastrow)
End Sub
我正在尝试编写一个复制一系列单元格的宏(AA4:AA15)(例如AA4,AA5,AA6 ...... AA15)并将这些值粘贴到一个新范围(C3:N3)(例如C3,D3,E3) ... N3).使用公式找到值.我尝试使用下面看到的代码,但它只粘贴了我的复制范围中的第一个值,而不是所有的值.任何帮助表示赞赏.
Range("C3:N3").Value = Range("AA4:AA15").Value