veri alma

[erdenek]

arkadaşlar elimde 2 tane dosya var.Hizmet adlı dosyada sarı renkli gösterilen alanları Liste adlı dosya nasıl aktarabiliriz?Arkadaşlar hizmet adlı dosyadan elimde 100 den fazla var.birde her dosyadaki sarı alanların yeri değişebilir.Görev yeri bir dosyada a8 hücresinde iken diğer dosyada a45 te olabilir.

http://www.dosya.tc/server25/uTNiuK/L_STE.xlsx.html
http://www.dosya.tc/server25/uTNiuK/hizmet.xls.html

 

[erdenek]

yok mu bir çözüm arkadaşlar

 

[erdenek]

üstadlar bunun bir çözümü yok herhalde

 

[Emir Hüseyin Çoban]

. . .

Diğer veriler bulunabilir ancak A83 deki Yenidoğan İlkokulu verisini bulmak için bir koşul gerekiyor.

. . .

 

[erdenek]

. . .

Diğer veriler bulunabilir ancak A83 deki Yenidoğan İlkokulu verisini bulmak için bir koşul gerekiyor.

. . .

üstad a83 te yer alan yenidoğan ilkokulu şu an görev yapılan okul.onu istediğiniz koşula bağlayabilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Bahsettiğim şöyle bir koşul.
J11 deki veriye İlk Atama nın solunda.
J67 deki veriye 243 S.K.H.K. 64.md.(6 yıllık sicil den bir kademe verilmesi) nin solunda.
diye koşullar ile bulabilirim. Bu veriler tek arama koşulu için uygun.

Ancak A83 için böyle bir koşul yok.

. . .

 

[erdenek]

üstad o kısım kalsın olmazsa birde üstad belgeleri incelerken şöyle bir durumla karşılaştım.bazı milli eğitim müdürlükleri 243 S.K.H.K. 64.md.(6 yıllık sicil den bir kademe verilmesi) kısmını 657 sayılı devlet memurları kanunu 64.madde kademe terfi ve sol tarafında 01.01.2009 veya 01.01.2010 şeklinde yazmış.

 

[erdenek]

üstad aslında ben bu bilegileri pdf dosyalarından almak istiyorum.eğer pdf den alma şansım olursa çok daha güzel olur.

 

[Emir Hüseyin Çoban]

. . .

PDF ten alma şansınız yok. Çok uğraştırıcı ve araştırma gerektiren bir kodlama olur.

. . .

 

[erdenek]

. . .

PDF ten alma şansınız yok. Çok uğraştırıcı ve araştırma gerektiren bir kodlama olur.

. . .

tamam üstad

 

[cengizank]

üstad aslında ben bu bilegileri pdf dosyalarından almak istiyorum.eğer pdf den alma şansım olursa çok daha güzel olur.

pdf okutma için OCR Kodlamalarına bakınız


ayrıca

birde bir öneri denemedim

kod yazarak
pdf dosyasını Office 2013 açtırıp istediğiniz şekilde farklı kaydedip

Excel veya Word olarak kaydedin.

O kayıt ettiğiniz dosyadan çekin

 

[cengizank]

linkleri inceleyiniz
http://en.wikipedia.org/wiki/Microsoft_Office_Document_Imaging


http://msdn.microsoft.com/en-us/library/aa218335(office.11).aspx


http://www.codeproject.com/Articles/10130/OCR-with-Microsoft-Office

 

[erdenek]

pdf okutma için OCR Kodlamalarına bakınız


ayrıca

birde bir öneri denemedim

kod yazarak
pdf dosyasını Office 2013 açtırıp istediğiniz şekilde farklı kaydedip

Excel veya Word olarak kaydedin.

O kayıt ettiğiniz dosyadan çekin

paylaşımınız için teşekkür ederim.üstadım benim pdf leri excel yapmada sıkıntım yok onu yapabiliyorum program aracılağı ile.benim istediğim excele dönüştürmeden yapılabilmesi.

 

[cengizank]

paylaşımınız için teşekkür ederim.üstadım benim pdf leri excel yapmada sıkıntım yok onu yapabiliyorum program aracılağı ile.benim istediğim excele dönüştürmeden yapılabilmesi.

linkleri incelemeni tavsiye ederim.

artı

http://asprise.com/product/ocr/doc/DevelopersGuide.pdf

http://asprise.com/product/ocr/demos.php?lang=vb


http://www.yiigo.com/guides/vbnet/how-to-ocr.shtml


http://www.codeproject.com/Articles/37458/PDF-Viewer-Control-Without-Acrobat-Reader-Installe

http://www.biopdf.com/guide/examples/vb6/files.zip


alıntı

http://www.biopdf.com/guide/examples/vb6/

pdf kaydetme

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const SETTINGS_PROGID = "biopdf.PDFSettings"
Const UTIL_PROGID = "biopdf.PDFUtil"

Private Function PrinterIndex(ByVal printerName As String) As Integer
    Dim i As Integer

    For i = 0 To Printers.Count - 1
        If LCase(Printers(i).DeviceName) Like LCase(printerName) Then
            PrinterIndex = i
            Exit Function
        End If
    Next
    PrinterIndex = -1
End Function

Private Sub cmdPrint_Click()
    Dim prtidx As Integer
    Dim sPrinterName As String
    Dim settings As Object
    Dim util As Object

    Set util = CreateObject(UTIL_PROGID)
    sPrinterName = util.defaultprintername

    Rem -- Configure the PDF print job
    Set settings = CreateObject(SETTINGS_PROGID)
    settings.printerName = sPrinterName
    settings.SetValue "Output", "\myfile.pdf"
    settings.SetValue "ConfirmOverwrite", "no"
    settings.SetValue "ShowSaveAS", "never"
    settings.SetValue "ShowSettings", "never"
    settings.SetValue "ShowPDF", "no"
    settings.SetValue "RememberLastFileName", "no"
    settings.SetValue "RememberLastFolderName", "no"
    settings.WriteSettings True

    Rem -- Find the index of the printer
    prtidx = PrinterIndex(sPrinterName)
    If prtidx < 0 Then Err.Raise 1000, , "No printer was found by the name of '" & sPrinterName & "'."

    Rem -- Set the current printer
    Set Printer = Printers(prtidx)

    Rem -- Print something
    Printer.FontSize = 50
    Printer.Print "Hello VB6..."
    Printer.FontSize = 20
    Printer.ForeColor = vbBlue
    Printer.Print "The time is " & Now
    Printer.EndDoc

    Rem -- Wait for runonce settings file to disappear
    Dim runonce As String
    runonce = settings.GetSettingsFilePath(True)
    While Dir(runonce, vbNormal) <> ""
        Sleep 100
    Wend

    MsgBox "myfile.pdf was saved on your desktop", vbInformation, "PDF Created"
End Sub

alıntıdır

http://quickvba.blogspot.com.tr/2010/12/import-pdf-in-excel.html

Pdf okuma

Sub BackToA1()
Range("A1").Select
End Sub

Sub GetPDFnow()
Dim varRetVal As Variant, strFullyPathedFileName As String, strDoIt As String
'Add a new worksheet
Sheets.Add After:=Sheets(Sheets.Count)
'Name it
ActiveSheet.Name = "Input01"
'Back to "A1"
Range("A1").Activate
'HERE YOU DEFINE THE FULLY PATHED PDF FILE
strFullyPathedFileName = "C:\Documents and Settings\ayujain1\Desktop\Excel_Tutorials\Ayush ebooks\14 secret shortcuts of Excel.pdf"
'HERE YOU SET UP THE SHELL COMMAND
strDoIt = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & strFullyPathedFileName
'The Shell command
varRetVal = Shell(strDoIt, 1)
'Clear CutCopyMode
Application.CutCopyMode = False
AppActivate varRetVal
'Wait some time
Application.Wait Now + TimeValue("00:00:03") ' wait 3 seconds
DoEvents
'IN ACROBAT :
'SELECT ALL
SendKeys "^a"
'COPY
SendKeys "^c"
'EXIT (Close & Exit)
SendKeys "^q"
'Wait some time
Application.Wait Now + TimeValue("00:00:03") ' wait 3 seconds
DoEvents
'Paste
ActiveSheet.Paste
'Go back to cell A1
Call BackToA1
End Sub

 

[erdenek]

çok teşekkürler ellerinize sağlık.