Dim Tag1
Set Tag1 = HMIRuntime.Tags("Tag1")
Dim ExcelNesne
Set ExcelNesne = CreateObject ("Excel.Application")
ExcelNesne.Workbooks.Open ("c:\rapor2.xls")
X = 2
Do Until ExcelNesne.CELLS(X,1)=false
X = X + 1
Loop
ExcelNesne.Cells(X,1).value = Tag1.Read
ExcelNesne.ActiveWorkbook.Save
excelnesne.Workbooks.close
excelnesne.Quit
yukarıdakı vb sıcrıpt nasıl çalıştıracagımı bana anlatacak arkadaş var mı acaba...