Usuário com melhor resposta
Exportar tabela no Access

Pergunta
-
Respostas
-
Fala campeão
Tudo o que você precisa está nos links abaixo. Boa sorte.
http://www.macoratti.net/excel_vb.htm
http://www.macoratti.net/10/10/vb_xls2.htm
http://www.macoratti.net/11/06/vba_acc1.htm
http://www.macoratti.net/d180102.htm[]'s --- Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum e ajudar os outros usuários. Obrigado, Valdek Santos Santana Junior
- Marcado como Resposta Eduardo Milani quarta-feira, 16 de janeiro de 2013 16:00
-
Achei um video no Youtube, so que o cara fala em Espanhol, e na descrição tinha esse código:
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") ' 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 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.Jet.OLEDB.4.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";"))) 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 End Class
A parte em Negrito e Sublinhado é onde que ta dando erro. Como eu resolvo?
- Marcado como Resposta Eduardo Milani quarta-feira, 16 de janeiro de 2013 16:00
Todas as Respostas
-
Entra no Excel, pede para importar dados de fontes externas, aponta para o Excel, e pronto!
http://office.microsoft.com/en-us/access-help/import-export-and-link-data-between-access-and-excel-HP001095095.aspx
[]'s --- Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum e ajudar os outros usuários. Obrigado, Valdek Santos Santana Junior
-
-
Fala campeão
Tudo o que você precisa está nos links abaixo. Boa sorte.
http://www.macoratti.net/excel_vb.htm
http://www.macoratti.net/10/10/vb_xls2.htm
http://www.macoratti.net/11/06/vba_acc1.htm
http://www.macoratti.net/d180102.htm[]'s --- Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum e ajudar os outros usuários. Obrigado, Valdek Santos Santana Junior
- Marcado como Resposta Eduardo Milani quarta-feira, 16 de janeiro de 2013 16:00
-
Achei um video no Youtube, so que o cara fala em Espanhol, e na descrição tinha esse código:
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") ' 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 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.Jet.OLEDB.4.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";"))) 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 End Class
A parte em Negrito e Sublinhado é onde que ta dando erro. Como eu resolvo?
- Marcado como Resposta Eduardo Milani quarta-feira, 16 de janeiro de 2013 16:00
-
-