Web Sayfasından Veri Alıp Excel'e Yazdırma

[571]

Merhabalar; bir web sayfasından veri alıp bunları excel'e benim istediğim biçimde yazdırmak istiyorum. Excel'in kendi web'den al özelliği ile bunu yapamıyorum. Acaba AutoIT kullanarak yapabilirmiyim. 

 

Edited May 17, 2016 by 571
yazım yanlışı

[Mehmet]

InetRead ile veriyi alırsın Excel.au3 fonksiyonuylada excel'in hangi hücresine istersen yazdırabilirsin

 

[571]

AutoIT konusunda daha doğrusu yazılım konusunda bilgim 0 söylediklerini yapabilmek için nasıl bir yol izleyebilirim. 

[Mehmet]

@571 hangi siteden veri alacaksın? alacağın veriye göre durum değişir Excel'e aktarması kolay ama önce hangi siteden veri alacaksan oranın urlsini ver

örneğin excel'e aktarmak için

Kodların en başına 

#include <Excel.au3> ;ekle

ve

Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookNew($oExcel)
_Excel_BookSaveAs($oWorkbook, @DesktopDir & "\_Excel.xlsx", Default, True)
_Excel_RangeWrite($oWorkbook, Default, $gelenveri, "B1");Buradaki $gelenveri bizim siteden aldığımız veriler için bir değişken olur
_Excel_BookSave($oWorkbook)

bu şekilde aktarılır

[571]

Mehmet şöyleki verileri alacağım site URL'si : 

Buradan iki tür veri alacağım birincisi çekiliş haftası diğeride sonuçların olduğu bölüm daha sonra bunları Excel'e paylaştığım görseldeki gibi yazdırmam gerekiyor. Biliyorum yürümeye başlamadan koşmaya çalışıyorum. Yazılım konusunda bilgim sıfır ama bir şekilde uygulayarak sizlerinde yardımıyla öğrenmek istiyorum.

 

 

Please register to see this content.

[Mehmet]

Ben oradaki veriyi alamadım çünki çekiliş haftası jQuery ile veri aktarıyor onu daha tecrübeli bir arkadaş yardımcı olur

jQuery('#sanstopu-hafta').html(json.data.hafta)

işte olay burada bitiyor oradan nasıl veri alınır bilmiyorum 

 

ama genel olarak mantık şu şekilde

#include <Array.au3>
#include <String.au3>
#include <Excel.au3>
$urlmiz = InetRead("http://www.millipiyango.gov.tr/sonuclar/_cs_sanstopu.php",0)
$urlmiz = BinaryToString($urlmiz, 4);buradaki 4 utf8 için kullanılan bir parametre (MostWanted) goo. gl/4izVKg
$ayristir = StringRegExp($urlmiz, '(?i)hafta">(.*?)</span>', 3)
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookNew($oExcel)
_Excel_BookSaveAs($oWorkbook, @DesktopDir & "\_Excel.xlsx", Default, True)
_Excel_RangeWrite($oWorkbook, Default, "B1",$ayristir[0])
_Excel_BookSave($oWorkbook)

 

Edited May 20, 2016 by Mehmet