Conectando-se ao SQL Server - Connect to SQL ServerNao se esqueca:Tools -> References -> Microsoft ActiveX Data Objects 2.8 LibrarySub ConnectSqlServer() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sConnString As String ' Create the connection string. sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _ "Initial Catalog=MyDatabaseName;" & _ "Integrated Security=SSPI;" ' Create the Connection and Recordset objects. Set conn = New ADODB.Connection Set rs = New ADODB.Recordset ' Open the connection and execute. conn.Open sConnString Set rs = conn.Execute("SELECT * FROM Table1;") ' Check we have data. If Not rs.EOF Then ' Transfer result. Sheets(1).Range("A1").CopyFromRecordset rs ' Close the recordset rs.Close Else MsgBox "Error: No records returned.", vbCritical End If ' Clean up If CBool(conn.State And adStateOpen) Then conn.Close Set conn = Nothing Set rs = Nothing End SubEnvie seus comentarios e sugestoes e compartilhe este artigo!brazilsalesforceeffectiveness@gmail.com Serie VBA Tips - Registro do LOG de acesso as aplicacoes E muito comum que o desenvolvedor queira registrar o numero de acessos, bem como acompanhar quem esta acessando o seus arquivo atraves de um .LOG. Isso pode ser facilmente implementado por adicionarmos uma pequena funcao dentro do FORM Splash (O primeiro FORM a ser aberto) da sua aplicacao. Voce pode alterar o codigo para que grave esses arquivos .LOG em um diretorio (ou servidor de arquivos) escondido e acompanhar ate mesmo remotamente os acessos a sua aplicacao. NO VBE DENTRO DO FORM SPLASH Sub Form_Open (Cancel As Integer)' Author: Date: Contact:' Andre Bernardes 18/06/2008 08:21 brazilsalesforceeffectiveness@gmail.com' Sub de abertura do formulario.' Rastreador inserido em 25.09.2008 - 10:52.LOG.Dim ThisFormName As StringLet ThisFormName = Me.NameCall Rastrear ' Registra acesso no Log.Call ImagesPathCall SetMoldura("Logando a aplicacao", " . . . ")HideAccessCloseButton ' Elimina o botao fechar na janela da aplicacao do Windows.Me.LblTime.Caption = Now()Call AssenteAcesso("OF", ThisFormName, "Sys: Splash de abertura.")Call SetMoldura("", ".: A&A - In Any Place")End SubA FUNCAO QUE DEVE COLAR DENTRO DO SEU MODULO PARA QUE O REGISTRO SEJA EFETUADO E: Function Rastrear()' Author: Date: Contact:' Andre Bernardes 25/09/2008 10:01 brazilsalesforceeffectiveness@gmail.com' Cria arquivo .LOGOpen Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) & ".log" For Append As #1Print #1, " "Print #1, "User: " & atCNames(1) & "- " & Trim(atCNames(2)), Now()Print #1, " In: " & CodeProject.FullNamePrint #1, " "Close #1End FunctionSe voce tiver um pouco de criatividade podera registrar todos os acessos de todos as aplicacoes (MS Access, MS Excel, MS Word, MS PowerPoint, etc...) no mesmo arquivo .LOG analisando-o quando desejar. A infinidade de possibilidades de utilizacao dessa solucao sao infinitas, entao divirta-se.Envie seus comentarios e sugestoes e compartilhe este artigo!brazilsalesforceeffectiveness@gmail.com VBA Excel - Mudando o icone da PlanilhaE importante para algumas aplicacoes que o icone da planilha, especialmente quando se abrem muitas simultaneamente, seja especifico, identificando prontamente quais dados estao sendo utilizados. O codigo abaixo nao e nenhuma novidade, apenas o disponibilizo como modo classico de faze-lo. Sugiro apenas que uma pequena alteracao seja efetuada, propiciando que o Path e o nome do arquivo .ICO, estejam posteriormente parametrizaveis em uma pasta. E importantissimo dar o credito a: Jim Rech. O codigo abaixo deve ser postado no Workbook: Sub Workbook_Open() Let Application.Caption