vba y vbs
Sub exceldata2fmldata()
'Escribir datos de la hoja de cálculo EXCEL en un archivo FMLDATA
Dim sht, fmldataPath, fileName
Dim i, FileNumber
Dim dzhrq, valor 'tiempo DZH, valor del indicador (VBA largo, 32 bits son valores únicos)
Dim dt, fso
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = true 'No mostrar el cuadro de diálogoFalse p>
Establecer xlBook = xlApp.Workbooks.Open("E:\CPX-ST\fmldata\electronic debugging.xls")
Establecer sht = xlBook.Worksheets("Hoja1") 'Supongamos quieres escribir Los datos importados están en la hoja1
fmldataPath = "E:\CPX-ST\fmldata\"'La ruta donde se encuentra FMLDATA
fileName = "581.12345.day " 'nombre de archivo
set fso=wscript.createobject("Scripting.FileSystemObject")
si fso.fileexists(nombre de archivo) entonces elimine el nombre de archivo
Set fso = fso.CreateTextFile(fileName)
FileName = "581.12345.CreateTextFile(fileName, True)
i = 2 'Establece datos a partir de la segunda fila; la columna 1 es la fecha, columna 2 es el valor del indicador
dt = sht.Cells(i, 1)Cells(i, 1) 'Obtener la fecha
Hacer mientras IsDate(dt) y dt <> TimeSerial (0, 0, 0)
dzhrq = DateDiff("s", DateSerial(1970, 1, 1), dt) 'Convertir a fecha DZH: segundos entre 1970. 1.1
fso.write dzhrq 'Escribir datos'
value = sht.Cells(i, 2) 'Obtener el valor del indicador
fso .write value
i = i + 1
dt = sht.Cells(i, 1) 'Obtener la fecha
Bucle
fso.close 'cerrar archivo
xlBook.Close (True) 'Cerrar libro de trabajo Verdadero aquí significa guardar los cambios al salir
xlApp.quit 'Finalizar objeto EXCEL
Establecer xlApp = Nada 'Liberar objeto xlApp
End Sub