Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Yazılım ve Donanım
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Yazılım ve Donanım Yazılım ve Donanım konuları ve diğer kullanıcılara tavsiye etmek istediğiniz programların açıklamaları.

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-01-2017, 15:46   #1
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,369
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan AutoExcel Zamanlanmış Excel Dosyası Açma

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-zam...-dosyasi-acma/

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

AutoIT script kodu

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
#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

__________________
www.asriakdeniz.com

Bu mesaj en son " 03-03-2017 " tarihinde saat 11:32 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimiçi   Alıntı Yaparak Cevapla
Eski 03-03-2017, 11:34   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,369
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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.
__________________
www.asriakdeniz.com
asri Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:16


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden