vba y vbs

Modifique el siguiente contenido:

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

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