I've issue right now to find highest values in PDF file that was extracted to excel cells. The Values usually is certain format which is in currency.
Example ; Value : 2,003.00 / 2.122,00 / 812.00 / 812,00
is it possible to find this highest values in specific format and also rename the pdf file according to the value?
i only have code for extracting data in pdf to excel.
Sub pdftestlatest()
Dim InitialFolder As String, FullName As Variant, ShtPdfData As Worksheet
Dim wdApp As Object, wdPdfDoc As Object, wdRange As Object
InitialFolder = Environ("userprofile") & "\Downloads\"
ChDrive Left(InitialFolder, 1)
ChDir InitialFolder
FullName = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf", 1)
If Not VarType(FullName) = vbBoolean Then
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdPdfDoc = wdApp.Documents.Open(filename:=FullName, ConfirmConversions:=False, ReadOnly:=False, Format:=0, NoEncodingDialog:=True)
Set wdRange = wdPdfDoc.Range(1)
wdRange.WholeStory
wdRange.Copy
Set ShtPdfData = ThisWorkbook.Worksheets("Sheet1")
Application.Goto ShtPdfData.Range("A1")
ShtPdfData.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
wdPdfDoc.Close False
wdApp.DisplayAlerts = False
wdApp.Quit
Else
'cancel was pressed
End If
End sub