Sopmac
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/03/2006 16:49 hs
Uma vez que se tenha uma tabela em Access, como ficaria para que os dados desta Tabela fosse enviados para o Excel. Minha Intenção é colocar estes dados no Excel e também no Word. Realmente eu preciso que seja o meu programa que envie estes dados ao Excel e ao Word, por meio de 2 botões diferentes. Sei que poderia usar o Assistente do Access para fazer isto, mas não seria desta forma que me solicitaram. Lembrando que uso o controle DATA para acessar a minha tabela. Obrigado.
Equipe Sopmac
|
|
|
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/03/2006 17:13 hs
Para o excel: Utiliza o metodo creatobjeto para lançar dados das tabelas do Acess atraves do vb para ogeral relatorios no excel:
Set BancoDeDados = OpenDatabase(App.Path & "Tiroalvo.MDB", False)
Set TBSúmula = BancoDeDados.OpenRecordset("Súmula", dbOpenSnapshot)
Set TBSúmula = BancoDeDados.OpenRecordset("Select * from súmula Where [Local Competição] = '" & DBCLocal & "'and Categoria = '" & DBCCategoria & "' and [Data Competição] = #" & Format(DBCData, "mm/dd/yy") & "# order by [Total Pontos] Desc,sociedade desc,[1tiro]desc,[2tiro]desc,[3tiro]desc,[4tiro]desc,[5tiro]desc,[6tiro]desc,[nome]desc")
If TBSúmula.EOF Then 'Não retornou nenhum registro
MsgBox "Não há Dados para Visualizar Nesta:" & Chr(13) & "Categoria, Data e Local de Competição", 48, "Tiro Alvo Seta"
Else
X = 2 ‘ determina a linha e coluna aonde serão começa a ser lançados os dados
Screen.MousePointer = 11
Set oleexcel = CreateObject("excel.application")
Set oleworkbook = oleexcel.Workbooks.Open(App.Path & "súmula.xls") ‘ o nome e caminho da sua planilha
Set oleworksheet = oleexcel.Worksheets("Dados") ‘ determinha que plan sera lançados os dados
DoEvents
oleworksheet.Range("a2:p1000").ClearContents ‘ limpa as colunas apartir da A2 ate P1000
‘ começa a baixar os dados da tabela
Do While Not TBSúmula.EOF
For Y = 1 To TBSúmula.Fields.Count
oleworksheet.Cells(X, Y) = TBSúmula.Fields(Y - 1)
Next Y
‘ira deixar a primeira coluna em negrito
With oleworksheet.Range("A" & X)
.Value = TBSúmula.Fields(0)
.Font.Bold = True
End With
X = X + 1
TBSúmula.MoveNext
Loop
DoEvents
TBSúmula.Close
Screen.MousePointer = 0
oleexcel.Visible = True
Set TBSúmula = Nothing
Set oleexcel = Nothing
Set oleworkbook = Nothing
Set oleworksheet = Nothing
End If
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/03/2006 17:14 hs
Word: 'Não se esqueça de fazer a referencia as Bibliotecas DAO 3.6 e Microsoft Word 9.0 Object Library
'Detalhe disponibilizarei o código fonte na seção projetos também.
Option Explicit
Private WordApp As Word.Application
Private doc As Word.Document
Private sel As Word.Selection
Private db As Database
Private rs As Recordset
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "dbVidro.Mdb")
Set rs = db.OpenRecordset("Select * From TABLOGIN")
Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=2
Do Until rs.EOF
sel.TypeText Text:=rs!USUÁRIO
sel.MoveRight unit:=12
sel.TypeText Text:=rs!SENHA
sel.MoveRight unit:=12
rs.MoveNext
Loop
WordApp.Visible = True
Set WordApp = Nothing
End Sub
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
