Jump to content

[VB 2005] Importar dados Access para uma folha de Excel


Recommended Posts

Posted

Gostaria de importar dados do Access para o Excel via VB

Julgo que não seria preciso abrir uma nova conexão dado ela já existir para outro formulário

Pretendia utilizar o método

Range.CopyFromRecordset

que me parece o mais fácil, alguém pode ajudar?

Obrigado

Posted

Bom resovido, à pedrada mas resolvido fui buscar os dados a uma dataGridView que se encontra noutro formulário

Esta de certeza não é a melhor maneira de fazer isto mas funciona, se alguém souber de outra forma pff poste


frmce.Visible = False
        frmce.Show()
       MDIP.xl.ActiveWorkbook.Worksheets("Despeur").select()
        Dim campos As Integer = frmce.DataGridView1.RowCount
        Dim n As Integer
        For n = 0 To campos - 2

            MDIP.xl.Application.Range("a" & n + 2).Value = frmce.DataGridView1.Item(0, n).Value

        Next n

      frmce.Close()

Posted

Bom fazendo então as coisas como deve ser

       xl.Application.Worksheets("rceur").select()


        Dim cn As New OleDb.OleDbConnection
        Dim com As New OleDb.OleDbCommand
        Dim res As OleDb.OleDbDataReader
        Dim i As Integer = 1


        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;password=; User ID=Admin;Data Source=" & MDIP.caminho & "\bd1.mdb"

        cn.Open()

        com.Connection = cn
        com.CommandType = CommandType.Text
        com.CommandText = "Select Classificação from CE"
        res = com.ExecuteReader()
        While res.Read()
            i = i + 1

            xl.Application.Range("b" & i).Value = res.GetValue(0)

        End While
        cn.Close()



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.