Red de conocimiento informático - Espacio del host - 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.

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.

ListCount - 1 'No es necesario ver esta parte

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