La computadora host instalada con VB espera guardar los datos leídos desde la computadora inferior en EXCEL y nombrarlos con el tiempo. ¿Qué tengo que hacer? Lo mejor es tener el código fuente.

nombre de archivo = List1.List(i)

Abrir nombre de archivo para entrada como #1

Hacer Mientras no sea EOF(1)

Entrada de línea #1, tempInput

Si InStr(tempInput, "at") <> 0 Entonces

c() = Split( tempInput, " ")

Para k = 0 a UBound(c())

xlSheet.Cells(j + 1, k + 1) = c(k) ' c( k) se asigna a la fila j+1 y a la columna k+1 de la tabla. El segundo conjunto de datos que mencionaste se puede usar en el bucle

Siguiente

ReDim c. (10 )

Else

Para k = 0 a 10

c(k) = Trim(Mid(tempInput, p + 1, 7))

p = p + 7

Siguiente paso

Para k = 0 a 10

xlSheet .Cells(j + 1, k + 1) = c(k)

Siguiente

p = 0

Finalizar si

j = j + 1

Bucle

Cerrar #1

nombre de archivo = Reemplazar(nombre de archivo, "txt", " xls")

xlBook.SaveAs (nombre de archivo) 'Guardar excel

Me.Caption = nombre de archivo & "¡Conversión completa!" & "Completada" & i + 1 & "/" & List1.ListCount

j = 0

k = 0

Siguiente

xlBook.Close (True) 'Cerrar el libro

xlApp.Quit 'Finalizar el objeto EXCEL

Set xlApp = Nothing 'Liberar objeto xlApp

Me.Caption = "¡Toda la conversión xls completada!"