AutoExcel Zamanlanmış Excel Dosyası Açma

[Asri]

AutoExcel Zamanlanmış Excel Dosyası Açma

Autoit script ile hazırlanan bu program, açılışta autoexcel.ini dosyasındaki ayarları okuyarak tanımlanmış excel dosyasını her gün belirlenen saat ve dakikada çalıştırır.


Açılan Exceli Kapat :
Seçeneği True ise açılan dosyayı belirlenen süre sonunda kapatır.
Seçeneği False ise açılan dosyayı belirlenen süre sonunda kapatmaz.


Tüm Excelleri Kapat :
Seçeneği True ise belirlenen süre sonunda tüm excel dosyalarını kapatır.
Seçeneği False ise belirlenen süre sonunda tüm excel dosyalarını kapatmaz.
Açılan Exceli Bekleme Süresi (ms):
Milisaniye cinsinden verilen süre sonra açılan excel dosyasını yada tüm excel i kapatır.


Açılan Exceli Kaydet :
Seçeneği True ise belirlenen süre sonunda açılan excel dosyasını kaydeder.
Seçeneği False ise belirlenen süre sonunda açılan excel dosyasını kaydetmez.


Excel Görünsün :
Seçeneği True ise belirlenen excel dosyası açıldıktan sonra gösterilir.
Seçeneği True ise belirlenen excel dosyası açıldıktan sonra gösterilmez.


Açılacak Excel Dosyası :
Dosya yolu belirtilmeden deneme.xlsx şeklinde girilmelidir. Dosya Autoexcel.exe nin bulunduğu klasörde olmalıdır.


Çalışma Zamanı :
Çalışma zamanı 15:10:12 saat:dakika:saniye cinsinden girilmedilir. Autoexcel dosyası açık kaldığı sürece her gün bu zamanda tanımlanmış excel dosyasını açıp işlem yapacaktır.

Çalışma Günleri:
1,2,3,4,5,6,7 yazılır ise haftanın tüm günleri, 1,3,5,7 yazılır ise Pazartesi, Çarşamba,Cuma, Pazar çalışacağı belirlenmiş olur.


Autoexcel.ini dosyası içeriği

[Ayarlar]
Açılan Exceli Kapat=True
Tüm Excelleri Kapat=False
Açılan Exceli Bekleme Süresi (ms)=5000
Açılan Exceli Kaydet=True
Excel Görünsün=True
Açılacak Excel Dosyası=deneme.xlsx
Çalışma Zamanı=16:02:30
Çalışma Günü=1,2,3,4,5,6,7

Program web sayfası.
http://asriakdeniz.com/autoexcel-zamanlanmis-excel-dosyasi-acma/

Bu programı kullanabileceğiniz Heberver Excel Hatırlatma Servisi
http://asriakdeniz.com/excel-heberver-hatirlatma-bilgilendirme-servisi/

AutoIT script kodu

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ktimer.ico
#AutoIt3Wrapper_Res_Comment=Excel Zamanlanmış Görevler (www.asriakdeniz.com)
#AutoIt3Wrapper_Res_Description=Excel Zamanlanmış Görevler (www.asriakdeniz.com)
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Ücretsiz  (www.asriakdeniz.com)
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <AutoItConstants.au3>
#include <Excel.au3>
#include <Date.au3>
#include <MsgBoxConstants.au3>
;Program kodlama Asri Akdeniz   www.asriakdeniz.com  asriakdeniz@gmail.com
Global $calismazamani
Global $eskizaman=_NowTime()
Global $acilanexcelikapat
Global $tumexcellerikapat
Global $acilanexcelibekle
Global $excelikaydet
Global $excelgorunsun
Global $exceldosyasi
Global $calismagunleri
Global $gunliste

ayaroku()

While 1
   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   $simdi=_NowTime()
   if ($simdi=$calismazamani) and ($eskizaman<>$simdi)  Then
       for $i=1 to $gunliste[0]
           if DayOfWeek(@WDAY)=$gunliste[$i] Then
              calistir()
              Exitloop
           EndIf
       Next
       $eskizaman=$simdi
   EndIf
WEnd


Func ayaroku()
   Local $tumexcellerikapat= False

   If not FileExists(@ScriptDir & "\autoexcel.ini") Then
      IniWrite("autoexcel.ini","Ayarlar","Açılan Exceli Kapat",True)
      IniWrite("autoexcel.ini","Ayarlar","Tüm Excelleri Kapat",False)
      IniWrite("autoexcel.ini","Ayarlar","Açılan Exceli Bekleme Süresi (ms)",5000)
      IniWrite("autoexcel.ini","Ayarlar","Açılan Exceli Kaydet",True)
      IniWrite("autoexcel.ini","Ayarlar","Excel Görünsün",True)
      IniWrite("autoexcel.ini","Ayarlar","Açılacak Excel Dosyası",'deneme.xlsx')
      IniWrite("autoexcel.ini","Ayarlar","Çalışma Zamanı","14:12:00")
      IniWrite("autoexcel.ini","Ayarlar","Çalışma Günleri","1,2,3,4,5,6,7")
   EndIf

   $acilanexcelikapat=IniRead("autoexcel.ini","Ayarlar","Açılan Exceli Kapat",True)
   $tumexcellerikapat=IniRead("autoexcel.ini","Ayarlar","Tüm Excelleri Kapat",False)
   $acilanexcelibekle=IniRead("autoexcel.ini","Ayarlar","Açılan Exceli Bekleme Süresi (ms)",5000)
   $excelikaydet=IniRead("autoexcel.ini","Ayarlar","Açılan Exceli Kaydet",True)
   $excelgorunsun=IniRead("autoexcel.ini","Ayarlar","Excel Görünsün",True)
   $exceldosyasi=IniRead("autoexcel.ini","Ayarlar","Açılacak Excel Dosyası","")
   $calismazamani=IniRead("autoexcel.ini","Ayarlar","Çalışma Zamanı","14:12:00")
   $calismagunleri=IniRead("autoexcel.ini","Ayarlar","Çalışma Günleri","1,2,3,4,5,6,7")
   $gunliste = StringSplit($calismagunleri, ",")
EndFunc

Func calistir()

   Local $sFilePath1=""
   If FileExists(@ScriptDir & "\" & $exceldosyasi) Then Local $sFilePath1 =@ScriptDir & "\" & $exceldosyasi

   Local $oExcel = _Excel_Open()

   If FileExists($sFilePath1) Then
      Local $oExcel = _Excel_Open()
      Local $oWorkbook = _Excel_BookOpen($oExcel, $sFilePath1,false,$excelgorunsun)
      sleep($acilanexcelibekle)
      if $excelikaydet==True then    _Excel_BookSave($oWorkbook)
      if $acilanexcelikapat==True then _Excel_BookClose($oWorkbook,False)
   Else
      sleep($acilanexcelibekle)
      if $tumexcellerikapat==True then $oExcel.application.quit
   Endif
EndFunc

Func RemoveExt($Input)
    Local $ExtArray = StringSplit($Input, ".")
    Return StringReplace($Input, "." & $ExtArray[$ExtArray[0]], "", -1)
EndFunc


Func DayOfWeek($Weekday)
If ($Weekday < 0) OR ($Weekday > 6) Then Return "Error..."
Local $DayOfWeek = StringSplit("So-Mo-Tu-We-Th-Fr-Sa" , "-")
if $DayOfWeek[$Weekday]="Mo" then  Return 1
if $DayOfWeek[$Weekday]="Tu" then  Return 2
if $DayOfWeek[$Weekday]="We" then  Return 3
if $DayOfWeek[$Weekday]="Th" then  Return 4
if $DayOfWeek[$Weekday]="Fr" then  Return 5
if $DayOfWeek[$Weekday]="Sa" then  Return 6
if $DayOfWeek[$Weekday]="So" then  Return 7
Return $DayOfWeek[$Weekday]
EndFunc

​

 

[Asri]

Güncelleme

Çalışma günleri desteği eklendi.

Çalışma Günleri:
1,2,3,4,5,6,7 yazılır ise haftanın tüm günleri, 1,3,5,7 yazılır ise Pazartesi, Çarşamba,Cuma, Pazar çalışacağı belirlenmiş olur.