Cómo utilizar VB para escribir datos en una hoja de Excel, archivarlos cada 5 minutos y crear un nuevo archivo de Excel cada mes. Proporcione el código fuente.

Dim tNum As Long

Private Sub Form_Load()

tNum = 0

Timer1.Interval = 1000 'Establece el intervalo de tiempo del Timer1 (temporalmente una vez cada 5 segundos), la unidad es milisegundos, 1 segundo es igual a 1000, 5 minutos es igual a 1000, se proporciona el código fuente. Guardar), la unidad es milisegundos, un segundo es igual a 1000, cuánto son 5 minutos, puedes calcularlo y cambiarlo tú mismo

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

tNum = tNum 1 'Establece el tiempo anterior, tNum 1 por segundo 'Establece el tiempo anterior. Tiempo, tNum aumenta en 1 cada segundo

Si tNum Mod 5 = 0 Entonces 'Si tNum puede ser divisible por 5, significa que han pasado 5 segundos. Guárdelo una vez. usted mismo al configurar otros tiempos,

SaveExcel "Datos A para escribir", "Datos B para escribir" 'Los datos a escribir se pueden personalizar

Finalizar si<. /p>

End Sub

Función SaveExcel(Texta As String, Textb As String) 'Defina una función para guardar datos en Excel, comience a verificar desde A1,

Atenuar appExcel Como objeto

Atenuar BookExcel

Atenuar nombre de Excel como cadena

Atenuar i como largo

Nombre de Excel = Año(Fecha) y Formato( Mes(Fecha), "00") & ".Path & "\ " & ExcelName) = "" Luego 'Si el libro del mes actual no se encuentra en el directorio actual, cree un nuevo libro para escribir los datos y guardar it

Set BookExcel = appExcel.Workbooks.Add

Set ExcelSheet = BookExcel.Sheets("Sheet1").Sheets("Sheet1") 'Seleccione la hoja de trabajo denominada Hoja1

For i = 1 To 65536 'Comience a verificar desde la primera fila, si la celda está vacía, escriba la variable Texto y salga

Salir para

Finalizar si<. /p>

Siguiente

BookExcel.SaveAs App.Path amp; "\amp" amp ExcelName

BookExcel.Sheets("Sheet1") 'Seleccionar Se llama a la hoja de trabajo. Hoja de cálculo Hoja1

Para i = 1 A 65536 'Comience a verificar desde la primera fila, si la celda está vacía, escriba la variable Texto y salga.

Celdas(i, 2) = Textob

Salir para

Finalizar si

Siguiente

ReservarExcel.Guardar

BookExcel.Close

Finalizar si

Establecer BookExcel = Nada

Establecer ExcelSheet = Nada

appExcel.Quit

Función final

'VB6, prueba WIN7 aprobada. Si tiene alguna pregunta durante el uso, deje un mensaje