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!"