none
Exportar tabela no Access RRS feed

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
    quarta-feira, 16 de janeiro de 2013 11:33
  • 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
    quarta-feira, 16 de janeiro de 2013 13:54

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

    terça-feira, 15 de janeiro de 2013 21:11
  • Quero saber o código para o Visual Basic fazer isso sozinho.
    terça-feira, 15 de janeiro de 2013 21:36
  • 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
    quarta-feira, 16 de janeiro de 2013 11:33
  • 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
    quarta-feira, 16 de janeiro de 2013 13:54
  • http://1bit.com.br/content.1bit/bom_programador
    []'s

    []'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

    quarta-feira, 16 de janeiro de 2013 13:56
  • Consegui aqui, obrigado Valdek Santos Santana Junior.
    quarta-feira, 16 de janeiro de 2013 16:02