Zaslal/a
6.2.2019 10:13Ahoj,
pro účel otevření využívám tento kod, ale vždy se to transformuje do excelu. Je možné to pdf otevřít v adobe acrobat XI pro ?
Sub openLastModified()
Dim folderPath As String, tableName As String, latestTblName As String
Dim latestModified As Date, modifiedDate As Date
folderPath = "cesta ..."
tableName = Dir(folderPath & "*.pdf")
Do While tableName <> vbNullString
modifiedDate = FileDateTime(folderPath & tableName)
If latestModified < modifiedDate Then
latestModified = modifiedDate
latestTblName = tableName
End If
tableName = Dir()
Loop
Workbooks.Open folderPath & latestTblName
End Sub
Děkuji za případné rady
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.