rafinho131

A continuación les dejo el codigo fuente del programa hecho en visual basic 2010 Los nombres de los objetos y su correspondiente uso se los nombre en siguiente listado usamos DataGridView1 para ingresar y almacenar los datos a exportar o los importados Button1 para Exportar los datos a Excel lleva el nombre de Exportar Button2 para Importar los datos de Excel al DataGridView1 lleva el nombre de Importar Form1 que se usa como interfaz Bueno para finalizar la explicación antes de porner el codigo fuente debemos importar las referencias System.Data.OleDb y crear un metodo el cual llame Exportar_Excel Imports System.Data.OleDb --------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Class Form1 Public Sub Exportar_Excel(ByVal dgv As DataGridView, ByVal pth As String) Dim xlApp As Object = CreateObject("Excel.Application" 'crear una nueva hoja de calculo Dim xlWB As Object = xlApp.WorkBooks.add Dim xlWS As Object = xlWB.WorkSheets(1) 'exportamos los caracteres de las columnas For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlWS.cells(1, c + 1).value = DataGridView1.Columns(c).HeaderText Next 'exportamos las cabeceras de columnas For r As Integer = 0 To DataGridView1.RowCount - 1 For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlWS.cells(r + 2, c + 1).value = DataGridView1.Item(c, r).Value Next Next 'guardamos la hoja de calculo en la ruta especificada xlWB.saveas(pth) xlWS = Nothing xlWB = Nothing xlApp.quit() xlApp = Nothing End Sub --------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Este es el Button1 = Exportar Private Sub Button1_Click Dim save As New SaveFileDialog save.Filter = "Archivo Excel | *.xlsx" If save.ShowDialog = Windows.Forms.DialogResult.OK Then Exportar_Excel(Me.DataGridView1, save.FileName) End If End Sub --------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Este es el Button2 = Importar Private Sub Button2_Click Dim stRuta As String = "" Dim openFD As New OpenFileDialog() With openFD .Title = "Seleccionar archivos" .Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*xlsx|Todos los archivos(*.*)|*.*" .Multiselect = False .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop If .ShowDialog = Windows.Forms.DialogResult.OK Then stRuta = .FileName End If End With Try Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";")) 'este es el codigo que funciona para office 2007 y 2010 Dim cnConex As New OleDbConnection(stConexion) Dim Cmd As New OleDbCommand("Select * From [Hoja1$]" Dim Ds As New DataSet Dim Da As New OleDbDataAdapter Dim Dt As New DataTable cnConex.Open() Cmd.Connection = cnConex Da.SelectCommand = Cmd Da.Fill(Ds) Dt = Ds.Tables(0) Me.DataGridView1.Columns.Clear() Me.DataGridView1.DataSource = Dt Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error" End Try End Sub --------------------------------------------------------------------------------------------------------------------------------------------------------------------- Bueno esto es el codigo del programa probado y sin errores. Pueden cambiar las variables por el nombre que ustedes gusten. para visualizar la interfaz y el funcionamiento vean el video de youtube que puse al principio.

Hola ! Debido a que muchas personas han batallado en encontrar una solucion efectiva al problema del redondeo automatico que hace visual basic al usar decimales. he decidido hacer un pequeño video donde les explico y muestro una manera simple y eficaz de resolver dicho lio. aqui les dejo el video de mi autoria. link: https://www.youtube.com/watch?v=09e6PnYWHz4

Hola! En esta ocasión, les traigo la forma de como hacer una baraja de loteria mexicana en visual basic 2010. Hecha con numeros al azar, sentencias for para hacer comparaciones y no repetir números, arreglos simples para almacenar imagenes y todo bien explicado. En este video de mi autoria pueden ver el código y les explico cada linea del codigo para que comprendan mejor su funcionamiento. Para las personas que estan aprendiendo a programar en visual estudio, este video puede ser de mucha ayuda. Dejen sus comentarios en la parte de abajo y si les gusta o sirve el video compartan. link: https://www.youtube.com/watch?v=aYIKc1BlDLY

Que tal! Sugido de algunas preguntas de ustedes he decidido subir este video con el codigo a la vista para poder calcular el CURP y RFC usando ciclos For, recorriendo carácteres en un Textbox y comparando letras y números. Pasuen el video si es necesario para que lean el código con calma, en el contendo explico el funcionamiento del programa. link: https://www.youtube.com/watch?v=enhaPOledUA&t=4s

Que tal! Basado en algunos comentarios de mi anterior video de la baraja de loteria mexicana sobre el uso de matrices o tambien llamados arreglos o vectores. He realizado este pequeño ejemplo en visual basic para explicar su uso tanto de una o dos dimensiones. link: https://www.youtube.com/watch?v=s1NKlV271Nw

Hola! En este nuevo video les explico la forma de usar un timer y numericupdown para hacer un semaforo en visual basic. Espero les sea de utilidad el codigo y la interfaz que se muestra en el programa. Recuerden pasar por mi canal de youtube para ver mis otros videos, no olviden suscribirse, comentar y compartir. Saludos! link: https://www.youtube.com/watch?v=x9mYAk2_E1A

Hola nuevamente! Debido a sus dudas y a la mala calidad de mi primer video de como exportar datos de un datagridview a excel y visceversa, En esta ocasion les traigo el mismo video con mejor calidad donde se puede apreciar el codigo y su correcto funcionamiento. A su vez, disipo las dudas sobre el error que a algunos de ustedes les ocurre al momento de importar los datos, Mostrando un mensaje de error con este mensaje: microsoft.ace.oledb.12.0 no está registrado en el equipo.

Que tal amigos ! En este video les mustro la manera de como guardar o salvar el contenido de un ListBox en un documento de texto de windows (archivo.txt)