başlangıç ve bitiş Tarih ve zamanını girerek geriye dönük raporu bu algoritma da alamazsınız. Bunun için daha farklı bir algoritma düzenine ihtiyaç var.
Merhaba Gökhan bey bu şekilde Script yazdım klasör oluşturmuyor sebebi nedir?yardımcı olmanızı rica ederim ('Define Variable of script Dim FolderWay,ObjectWay,FileName,File,FileExist,Apendix,Row 'Define folder way FolderWay = "C:\Users\User\Desktop\TEST\ExcelExample.xlsx" 'Creating of object containing way to folder Set ObjectWay = CreateObject("Scripting.FileSystemOject") 'If folder no exist,create it If Not ObjectWay.FolderExists(FolderWay) Then ObjectWay.CreateFolder FolderWay End If 'Define File name FileName = "TEST_eXCEL_File.csv" 'Create new object to control file existence Set File = CreateObject("Scripting.FileSystemObject") 'Check if file exist in defined folder way FileExist = File.FileExists(FolderWay & "\" & FileName) If FileExist = False Then
Ali Osman Topkan bey merhaba. Yazılımın doğru fakat Scripts dosyasını çalıştırdın mı? yani o algoritmanın da çalışması gerekiyor. Scripts dosyasını bir taga bağlayıp çalışması için tetiklemen gerekiyor. ben bu veri aktarma işlemini yazarken herzaman değil sadece ben imistediğim zaman aktarması için tasarlamıştım.
Merhaba Gökhan bey video için teşekkür ederiz bir Tag tetiklayarek iki tarih ve saat arasında geçmiş rapor nasıl oluşturabiliriz
Merhaba Gökhan bey VB Scripts leri paylaşabilirmisiniz
Merhaba gökhan bey klasör oluştu SystemObjcet b harfi eksik kaldığı için oluşmuyormuş
Ben ekrandan rapor başlangıç ve bitiş Tarih ve zamanını girerek geriye dönük rapor almak istiyorum bu konuda yardımcı ola bilir misiniz
başlangıç ve bitiş Tarih ve zamanını girerek geriye dönük raporu bu algoritma da alamazsınız. Bunun için daha farklı bir algoritma düzenine ihtiyaç var.
Tİa da sorun olabilirmi?
Where Is the link of project
Merhaba Gökhan bey bu şekilde Script yazdım klasör oluşturmuyor sebebi nedir?yardımcı olmanızı rica ederim ('Define Variable of script
Dim FolderWay,ObjectWay,FileName,File,FileExist,Apendix,Row
'Define folder way
FolderWay = "C:\Users\User\Desktop\TEST\ExcelExample.xlsx"
'Creating of object containing way to folder
Set ObjectWay = CreateObject("Scripting.FileSystemOject")
'If folder no exist,create it
If Not ObjectWay.FolderExists(FolderWay) Then
ObjectWay.CreateFolder FolderWay
End If
'Define File name
FileName = "TEST_eXCEL_File.csv"
'Create new object to control file existence
Set File = CreateObject("Scripting.FileSystemObject")
'Check if file exist in defined folder way
FileExist = File.FileExists(FolderWay & "\" & FileName)
If FileExist = False Then
'Create file
File.CreateTextFile(FolderWay &"\"& FileName)
'Set apendix of excel file
Set Apendix = File.OpenTextFile(FolderWay &"\"& FileName,8)
Apendix.WriteLine("Data 1 ; Data 2 ; Data 3 ; Data 4 ; Data 5 ; Data 6 ")
Apendix.Close
'Clear Object
Set File = Nothing
End If
Set File = CreateObject("Scripting.FileSystemObject")
Set Row = File.OpenTextFile(FolderWay & "\" & FileName, 8)
Row.WriteLine( SmartTags("E_1") &";"& SmartTags("E_2") &";"& SmartTags("E_3") &";"& SmartTags("E_4") &";"& SmartTags("E_5") &";"& SmartTags("E_6"))
Row.Close
Ali Osman Topkan bey merhaba. Yazılımın doğru fakat Scripts dosyasını çalıştırdın mı? yani o algoritmanın da çalışması gerekiyor.
Scripts dosyasını bir taga bağlayıp çalışması için tetiklemen gerekiyor.
ben bu veri aktarma işlemini yazarken herzaman değil sadece ben imistediğim zaman aktarması için tasarlamıştım.
Videonun 3:30 dakikasın da veri yazdırdığımı göstermişim.