Office 2008 no Mac não tem VBA!

Muito estranho...

Bem, não sou usuário dos Mac's, talvez alguém que o seja possa contribuir com sua opinião.

Segue o link (tomara que não sumam com o artigo).

Vou guardar uma cópia em pdf no meu e-mail, caso o link esteja quebrado.

;-)

http://www.macworld.com/article/54320/2006/12/microsoft.html

Verificar se uma planilha existe numa pasta fechada via VBA

Às vezes me deparo com pedidos estranhos em grupos de discussões e fóruns da vida.

Acabei de ver agora, um colega que precisa ver se uma planilha existe numa pasta que está fechada.
Tempos atrás eu precisei usar a linguagem SQL no VBA para inserir dados numa outra planilha, cuja pasta poderia ou não estar aberta. Para contornar isso, usei o ADO.
Importante: não esquecer de marcar a referência "Microsoft Active Data Objects" (versão de 2.6 para cima).
Aproveitando para relembrar conceitos... uma "pasta" do Excel contém planilhas (é muito comum as pessoas chamarem pastas de planilhas e confundirem pasta do Excel com pasta do Windows que são coisas bem diferentes!).

;-)

Sub ver()
   Dim arquivo As String
   arquivo = "c:\teste.xls"
   Dim cnn As New ADODB.Connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source = " _
       & arquivo & ";Extended Properties=Excel 8.0;"
  
   On Error Resume Next
   cnn.Execute "SELECT top 1 * from [planilha1$]"
   If Err.Number = 0 Then
       MsgBox "Planilha existe"
   Else
       MsgBox "Planilha não existe"
   End If
  
   cnn.Close
   Set cnn = Nothing

End Sub

Corretor da nova ortografia no Word 2007

Demorou mas saiu:

http://www.microsoft.com/downloads/details.aspx?FamilyId=DF0AF8D5-A8DA-4938-8A44-E8BE7C8EEAEF&displaylang=pt-br

Ou na minha pasta compartilhada do 4shared, link mais acima da página.

;-)

ListView no Access

Esta vou deixar aqui para futuras consultas.
Utilizo-o porque num ListBox não tem como alinhar números à direita.
Estranhamente num dos códigos, às vezes a primeira coluna é a zero (0) e em outras é 1.
Bem, se alguém souber como resolver os dois problemas (alinhar números à direita no ListBox e a questão da primeira coluna no ListView), me manda um e-mail.

Sub carrega_listview2()
    With Me.Listview2
        .View = lvwReport
        .GridLines = True
        .FullRowSelect = True
        .ListItems.Clear
        .ColumnHeaders.Clear
    End With
    
    'Cabeçalho do ListView
    With Me.Listview2.ColumnHeaders
        .Add , , "N/Número", 1500, lvwcolumright
        .Add , , "Cartório", 1300, lvwColumnLeft
        .Add , , "Protocolo", 1300, lvwcolumright
        .Add , , "Vencimento", 1300, lvwColumnLeft
        .Add , , "Valor", 1000, lvwcolumright
    End With
    
    'Adicionar itens
    rst.MoveFirst
    Do Until rst.EOF
        Set lstItem = Me.Listview2.ListItems.Add()
        lstItem.Text = Format(rst!Nosso_Numero, "000000000000000")
        lstItem.SubItems(1) = Format(rst!numero_tabe_protesto, "00")
        lstItem.SubItems(2) = Format(rst!numero_protocolo, "0000000000")
        lstItem.SubItems(3) = rst!data_venc
        lstItem.SubItems(4) = Format(rst!vl_titulo / 100, "#0.00")
        
        rst.MoveNext
    Loop
    rst.Close
End Sub