Icaro Posted December 14, 2006 at 02:58 PM Report #70540 Posted December 14, 2006 at 02:58 PM 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
Icaro Posted December 14, 2006 at 07:16 PM Author Report #70575 Posted December 14, 2006 at 07:16 PM 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()
Icaro Posted December 19, 2006 at 07:29 PM Author Report #71420 Posted December 19, 2006 at 07:29 PM 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()
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now