EXCEL VBA abre el archivo de base de datos de Access

Subinsertar datos de Excel en la base de datos()

Atenuar conn como ADODB.Connection

Atenuar WN como cadena

Dim TableName As String

Dim sSql As String

Dim tStr As String

'Modifique el nombre de la base de datos usted mismo, la ruta es la misma que la actual directorio del libro de trabajo

WN = "Inventory Sheet.mdb"

'El nombre de la tabla de la base de datos es el mismo que el nombre de la hoja de trabajo actual

TableName = ActiveSheet. Nombre

Establecer conn = Nuevo ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; _

" Propiedades extendidas = Excel 8.0;" _

"Data Source=" y ThisWorkbook.Path y "\" y ActiveWorkbook.Name

conn.Open

Si conn.State = adStateOpen Then

sSql = "Insertar en [DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Seleccionar * De [" & ActiveSheet.Name & ; ]"

conn.Execute sSql

MsgBox "Datos insertados correctamente en "" amp; TableName amp "". , ","

conn.Close

Finalizar si

Establecer conn = Nada

Finalizar sub

2. Habilidades de uso de EXCEL:

(1) Ingreso de fracciones

Si ingresas directamente "1/5", el sistema lo cambiará a "5 de enero", resolviendo el problema. El método es: ingrese "0" primero, luego ingrese un espacio y luego ingrese la fracción "1/5". La solución es: ingrese "0" primero, luego ingrese un espacio y luego ingrese la fracción "1/5". ".

(2) Ingrese la secuencia "001"

Si ingresa "001" directamente, el sistema determinará automáticamente que 001 es el dato 1. La solución es: ingrese "'" primero (comillas simples en español). " (comilla simple en español), y luego ingrese "001".

(3) Ingreso de fecha

Si desea ingresar "5 de abril", ingrese directamente "4/5 " y luego presione Entrar. Si desea ingresar la fecha actual, haga clic en "Ctrl;"

(4) Rellenar rayas

Si desea agregar hermosas rayas horizontales al libro de trabajo. , puede utilizar la función de relleno de alineación.

Primero, complete símbolos como "*" o "~" en la celda, luego haga clic en la celda, arrastre el mouse hacia la derecha, seleccione varias celdas horizontales, haga clic en el menú "Formato" y seleccione el comando "Celda". seleccione la pestaña "Alineación" en el menú emergente "Formato de celdas", seleccione "Rellenar" en la lista desplegable de alineación horizontal y haga clic en el botón "Aceptar".

(5) Ingrese el mismo contenido en varias hojas de trabajo

Al completar los mismos datos en varias hojas de trabajo en la misma ubicación, primero puede seleccionar una hoja de trabajo y luego mantener presionada la tecla Ctrl. , luego haga clic en Hoja1, Hoja2... en la esquina inferior izquierda de la ventana, seleccione directamente varias hojas de trabajo que necesiten ingresar el mismo contenido y luego ingrese los mismos datos en cualquiera de las hojas de trabajo, y los datos aparecerán automáticamente en otras hojas de trabajo seleccionadas. Una vez completada la entrada, presione la tecla Ctrl en el teclado nuevamente y luego use el botón izquierdo del mouse para hacer clic en las múltiples hojas de trabajo seleccionadas para cancelar los enlaces de estas hojas de trabajo; de lo contrario, los datos ingresados ​​en una tabla aparecerán inmediatamente en la tabla seleccionada. hoja de trabajo.

(6) Rellenar celdas discontinuas con los mismos datos

Seleccione una celda, mantenga presionada la tecla Ctrl y luego use el mouse para hacer clic en otras celdas. Todas estas celdas serán seleccionadas. . Ingrese datos en el área de edición, luego mantenga presionada la tecla Ctrl y presione Enter, y los datos aparecerán en todas las celdas seleccionadas.

(7) Mostrar fórmulas en celdas

Si la mayoría de los datos de la hoja de cálculo se generan mediante fórmulas, querrás conocer rápidamente la forma de la fórmula en cada celda para poder editar y modificar, puede hacer esto: haga clic en el menú "Herramientas" con el botón izquierdo del mouse y seleccione el comando "Opciones" para que aparezca. Haga clic en el comando "Opciones", aparece el cuadro de diálogo "Opciones", haga clic en la pestaña "Ver" y luego configure si el elemento "Fórmula" en la columna "Opciones de ventana" es válido, haga clic en el botón "Aceptar" (Figura 2 ). En este punto, se mostrará cada celda de la división. Si desea restaurar los resultados de la visualización de la fórmula, simplemente desactive el elemento "Fórmula" en la columna "Opciones de ventana".

(8) Use Ctrl * para seleccionar texto

Si hay muchos datos tabulares en la hoja de trabajo, puede seleccionar una celda en la tabla y luego presionar la tecla Ctrl * Se puede seleccionar toda la tabla. Ctrl *Área seleccionada: involucra los datos en las celdas en función del área máxima de las celdas seleccionadas que irradian al entorno. De esta manera, podemos seleccionar los datos en la tabla de manera conveniente y precisa, y podemos evitar efectivamente el fenómeno de desplazamiento de la pantalla que ocurre cuando se utiliza el método de arrastre del mouse para seleccionar celdas más grandes.

(9) Borrar rápidamente el contenido de la celda

Si desea eliminar el contenido de la celda y su formato y comentarios, no puede simplemente seleccionar la celda y luego presionar el botón Eliminar método de clave. Para eliminar completamente las celdas, puede utilizar el siguiente método: seleccione las celdas o el rango de celdas que desea eliminar; haga clic en el comando "Todos" en el elemento "Borrar" en el menú "Editar" para restaurar estas celdas a sus colores originales. .