Soru Formatı bozmadan PDF'ten Excel'e çevirme.

[atakanata1]

Merhaba,


Elimde 170 sayfalık, ürün ve fiyat bilgilerini içeren bir pdf dosyası var, aynı zamanda fotoğrafta içermekte. Bu fiyat bilgilerini değiştirmem gerekiyor, fiyatları değiştirebilmek için PDF dosyasını internette smallpdf, ilovepdf gibi sitelerden excel'e çevirmeye çalıştım ancak yazıların formatı çok bozuldu, fiyatlar okunmaz hale geldi ve fotoğraflar karmakarışık oldu. PDF dosyasının formatını bozmadan nasıl excel'e çevirebilirim?

Teşekkürler.

 

[tukayf]

Dış veri al ile excele almaya çalışın.

 

[excelokyanus500]

Merhaba,

Bu orijinali vbscript olan bir programın kabaca vba ya uyarlanmış hali aşağıdadır.
Orijinal program ise dosya yolu clipboard da ise otomatik işlem yapmaktadır.
Bu kısaltılmış halidir. Kendinize göre uyarlamanız gerekebilir. Deneyin.

Sub Makro1()
Dim iURL
Dim objShell
Dim oShell, objWMIService, objProcess, colProcess, strComputer, processName, instances

strComputer = "."
instances = 0
processName = "chrome.exe"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objProcess In colProcess
If objProcess.Name = processName Then instances = instances + 1       
Next

Set oShell = CreateObject("WScript.Shell")

Do While instances > 0
oShell.Run "taskkill /im chrome.exe", 0, True     
instances = instances - 1
Loop


iURL = "https://www.adobe.com/acrobat/online/pdf-to-excel.html?promoid=XFWLHJGV&mv=other"

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
Application.Wait (Now + TimeValue("0:00:03"))
Set WshShell = CreateObject("WScript.Shell")

For k = 1 To 15
 WshShell.SendKeys "{TAB}"

Next

Application.Wait (Now + TimeValue("0:00:03"))
WshShell.SendKeys "{ENTER}"

End Sub