- Katılım
- 24 Nisan 2005
- Mesajlar
- 3,671
- Excel Vers. ve Dili
- Office 2016 EN 64 Bit
- Altın Üyelik Bitiş Tarihi
- 25/05/2022
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
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
Kod:
#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
Son düzenleme: