adriano944

Pessoal.. alguém sabe como exportar as informações de uma tabela do acess para uma planilha do excel? obrigado

Eu consegui descobri aki...vlw Kuroi!!

A pessoal não trabalha na empresa mais... =/ ai sobrou tudo pra mim...

Pessoal alguém pode me dizer o que este codigo diz? Private Sub CommandButton1_Click() Sheets("comuns 3260").Select 'Range("C3").Select Selection.QueryTable.Refresh BackgroundQuery:=True Sheets("comuns 3270").Select 'Range("E6").Select Selection.QueryTable.Refresh BackgroundQuery:=True Sheets("especificos 3270").Select 'Range("C15").Select Selection.QueryTable.Refresh BackgroundQuery:=True Sheets("especificos 3260").Select 'Range("C9").Select Selection.QueryTable.Refresh BackgroundQuery:=True End Sub desde já agradeço

Pessoal Eu entrei na empresa aki onde estou e acabei caindo de paraquedas nos sistemas que tem aki..porem não estou conseguindo identificar do que se trata um codigo...se puderem me ajudar agradeço muito.. O codigo é o seguinte: Const grf = "grafico" Const res = "resumo" Dim lin As Double Sub update() Sheets("divergencias").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False Sheets("emissoes").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False Sheets("a analisar").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False lin = 21 ncol = Sheets(grf).Cells(lin + 8, 1) Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(40, 1) Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(16, 1) Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(16, 5) + Sheets(res).Cells(40, 5) Sheets(grf).Cells(lin + 3, ncol) = Sheets(res).Cells(16, 10) + Sheets(res).Cells(40, 10) Sheets(grf).Cells(lin + 4, ncol) = Sheets(res).Cells(27, 9) + Sheets(res).Cells(51, 9) Sheets(grf).Cells(lin + 5, ncol) = Sheets(res).Cells(16, 14) + Sheets(res).Cells(40, 14) + Sheets(res).Cells(29, 9) + Sheets(res).Cells(53, 9) Sheets(grf).Cells(lin + 6, ncol) = Sheets(res).Cells(28, 9) + Sheets(res).Cells(52, 9) lin = 51 Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(35, 3) Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(11, 3) Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(11, 7) + Sheets(res).Cells(35, 7) lin = 77 Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(49, 13) Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(50, 13) Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(51, 13) Sheets(grf).Cells(lin + 3, ncol) = Sheets(res).Cells(52, 13) End Sub