

Zaslal/a 6.2.2019 10:13
Ahoj,
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
 \n
\nOblí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.