muratguven3449
Üye
- Katılım
- 1 May 2014
- Mesajlar
- 1
- Puanları
- 1
Merhaba arkadaşlar Ktp400 ekranda belli sürelerde script ta yazarak datayı belirlediğim adrese atabiliyorum yanlız bunu runtimede yapıyorum bu programı ekrana yüklediğimde usb ye atamıyorum yardımcı olursanız sevinirim
Dim a
Set a = CreateObject("Excel.Application")
a.Visible = True
a.Workbooks.Open "E:\ABC\Logging.xls"
a.Cells(8, 3).Value = SmartTags("data")
a.ActiveWorkbook.SaveAs "E:\ABC\"&Day(Date)& ("_") &Month(Date)& ("_") &Year(Date)& ("_") &Minute(Time)&Second(Time)&".xls"
Set a = Nothing
End Sub
Dim a
Set a = CreateObject("Excel.Application")
a.Visible = True
a.Workbooks.Open "E:\ABC\Logging.xls"
a.Cells(8, 3).Value = SmartTags("data")
a.ActiveWorkbook.SaveAs "E:\ABC\"&Day(Date)& ("_") &Month(Date)& ("_") &Year(Date)& ("_") &Minute(Time)&Second(Time)&".xls"
Set a = Nothing
End Sub
Son düzenleme:
