Alinhar texto dentro de uma string

Olá!

Segue uma dica para alinhar um texto dentro de uma variável do tipo string.
Não vejo muita utilidade, pois quando temos possíveis espaços dentro de uma string e queremos trabalhar somente com o valor, faz mais sentido usar um TRIM(variável).
Bem, se a função existe, em alguma situação ela deve ter sua utilidade.


;-)

Option Explicit
Dim texto As String

Sub teste()
   
    texto = "     azul   "
    Debug.Print texto
    
    'Texto alinhado à esquerda dentro da variável
    LSet texto = "azul"
    Debug.Print texto
        
    'Texto alinhado à direita dentro da variável
    RSet texto = "azul"
    Debug.Print texto
End Sub

Acessando dados do SQL Server Express 2005

ADO é um recurso muito versátil, permite ao Excel acessar base de dados como o Access, arquivos texto e também do SQL Server.
Vou mostrar aqui um exemplo bem simples de como acessar a tabela de clientes ("Customers") do Northwind.
Para quem quiser utilizar o recurso, não esqueça de marcar o "Microsoft Active Data Objects" nas referências do projeto VBA, pode ser qualquer versão. Aqui eu utilizei a 2.8.


;-)

Option Explicit

Sub SQL_Express()
    Dim rst As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim i As Integer
    
    cnn.Open "Provider=SQLNCLI;Data Source=(local)\SQLEXPRESS;uid=sa;pwd=123;database=northwind"
    
    rst.CursorLocation = adUseClient
    rst.Open "SELECT CompanyName FROM customers", cnn, adOpenKeyset, adLockOptimistic
    
    i = 1
    Do While Not rst.EOF
        Cells(i, 1).Value = rst!CompanyName
        i = i + 1
        rst.MoveNext
    Loop

    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing

End Sub

Várias versões do Office no mesmo computador

Ter várias versões do Office sempre gera algum tipo de problema.
Lembro que tive a versão 97 com 2000, 97 com XP e recentemente 2003 com 2007.
Cansei de tantos pequenos problemas que resolvi ficar somente com o 2003 instalado, mais do que suficiente para as minhas necessidades.
Para quem quiser se aventurar... segue um link com dicas muito interessantes:


http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=762


;-)