[Excel Front-End e Access Back-End]

Bom, então quanto a licença do Access posso ficar tranqüilo se caso o meu cliente não possua nenhum computador com licença para o Access, certo?

Creio que sim, mas acho interessante na empresa do cliente ter pelo menos uma licença de Access ou é melhor você confirmar isso diretamente com a Microsoft.

[Interação Excel x I.E. Radio e Select]

Veja no blog http://officevbavsto.blogspot.com/.

Outras coisas que são importantes para você aprender: HTML, CSS e javascript (essas pesquise em apostilas ou livros).

[Excel Front-End e Access Back-End]

Já desenvolvi usando Access como banco de dados e Excel como front-end, segue minha experiência nesse assunto:

- Você só consegue armazer até 2 Gb de dados por arquivo .mdb, portanto estruture muito bem suas tabelas (faltou nas aulas de modelagem de dados, hum?!);

- Você tem um limite de até 8 conexões simultâneas;

- Use com até 30 usuários, mais do que isso migre para um sistema robusto (SQL Server com C# ou PHP com mySQL);

- No seu código abra a conexão e feche o quanto antes, nunca mantenha uma conexão. Só abra conexão se realmente necessário;

- Não precisa ter Access instalado na máquina do usuário, você pode colocar o arquivo .mdb em uma rede onde todos os usuários acessam;

- Só é interessante ter Access em uma máquina apenas para efeito de manutenção;

- Sempre execute o recurso de "Compactar e Restaurar Banco" (fora de horário comercial), pois assim seu banco ficará compacto e terá mais espaço disponível e otimizado;

- O banco de dados pode corromper-se facilmente ou travar e ficar como somente leitura dependendo de n fatores (o último é reversível, o primeiro em alguns casos não);

- Crie um arquivo .mdb somente para tabelas e outro para as VIEWS e MACROS, pois assim seu banco de dados ficará mais leve;

- Quanto mais arquivo .mdb divididos melhos, exemplo: um arquivo para guardar os usuários e senha, um arquivo para guardar assuntos do comercial, outro para assuntos do financeiro e etc. Se você precisar fazer JOIN entre tabelas de arquivos .mdb diferentes, crie um arquivo .mdb apartado somente para as consultas vinculando as tabelas.

Enfim, não exagere no uso do Access, pois mais cedo ou mais tarde ele vai te deixar na mão. :(

[Calcular Datas No Access VBA]

Tenta o seguinte:

total_dias = DateDiff("d",data1,data2)

[VBA - limitar quantidade de planilha no excel]

ok então.

Fiz duas modificações em seu código (em negrito)

'Declara variáveis.

Dim APLICATIVOEXCEL As Excel.Application

Dim PASTA As Excel.Workbook

Dim PLANILHA As Excel.Worksheet

'Carrega o Excel.

Set APLICATIVOEXCEL = CreateObject("Excel.Application")

'Limitar o número de planilhas no novo arquivo excel gerado.

APLICATIVOEXCEL.SheetsInNewWorkbook = 1

'Cria uma pasta de trabalho.

Set PASTA = APLICATIVOEXCEL.Workbooks.Add

'Define uma nova planilha.

Set PLANILHA = APLICATIVOEXCEL.ActiveWorkbook.Worksheets(1)

'Define o nome da planilha.

PLANILHA.Name = "DADOS"

'Aplicação e planilha visíveis.

APLICATIVOEXCEL.Visible = True

PLANILHA.Visible = True

[VBA - limitar quantidade de planilha no excel]

Oi, segue código VBA:

Application.SheetsInNewWorkbook = 1

B)

[VBA interagindo com IE]

Boas notícias, achei a solução, ou melhor, as duas soluções.

1) "A outra duvida e meio que relacionada a essa, gostaria de saber como faco para controla uma janela já aberta do windows (IE mesmo) sem ter que criar um novo objeto".

Sim, vide código abaixo:

Function GetOpenIEByURL()

    'Adicionar referência ao 'Microsoft Internet Controls'
   
    Dim ie As InternetExplorer
    Dim objShellWindows As New SHDocVw.ShellWindows
   
    i_URL = "http://www.google.com.br/"
   
    On Error Resume Next
   
    For Each ie In objShellWindows
   
        If TypeName(ie.Document) = "HTMLDocument" Then
       
            If ie.Document.URL = i_URL Then
           
            ie.Document.all.Item("q").innerText = "Teste"
           
            End If
           
        End If
       
    Next

End Function

Esse cara aqui SHDocVw.ShellWindows permite você percorrer todas as instâncias de Internet Explorer abertas em sua máquina e fazer um loop usando o objeto InternetExplorer. 2) "Tenho uma macro que loga no meu email pessoal e envia um email para o meu email do trabalho, porem, gostaria de saber como posso anexar um arquivo nesse email, visto que, quando foi anexar um arquivo ele sai da tela do IE e abre outra janela, o que quero saber é como posso controlar essa janela." Eu entendi que você esteja falando daquela janela do Windows "Selecionar arquivo", certo? Use o código abaixo. Só um ponto de atenção é mudar o nome da janela e do botão "Abrir" no código, pois eu fiz no Windows em Inglês, ok?

Private Declare Function GetWindow Lib "user32" (ByVal hWnd _
    As Long, ByVal wFlag As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As _
    String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias _
    "GetClassNameA" (ByVal hWnd As Long, ByVal _
    lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal _
    wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long


Const WM_CLOSE = &H10
Const WM_SETTEXT = &HC
Const WM_SYSKEYDOWN = &H104
Const WM_RBUTTONDOWN = &H204
Const WS_MAXIMIZE = &H1000000
Const WM_CHAR = &H102
Const BM_CLICK As Long = &HF5&

Private Const GW_HWNDNEXT = 2&
Private Const GW_CHILD = 5&


Private Function GetFirstTextBoxHandle(nFormCaption As String, _
    pClass As String, Optional nTextboxText As String) As Long

    Dim iHwnd As Long
    Dim iSize As Long
    Dim iClass As String
    Dim iText As String

    iHwnd = FindWindow(vbNullString, nFormCaption)
    If iHwnd Then
        iHwnd = GetWindow(iHwnd, GW_CHILD)
        Do While iHwnd
            iClass = Space(64)
            iSize = GetClassName(iHwnd, iClass, Len(iClass))
            If iSize > 0 Then
                iClass = Left(iClass, iSize)
               
                'If iClass = "ThunderTextBox" Or iClass = "ComboBoxEx32" Then
                'Debug.Print iClass
               
                If iClass = pClass Then
                    If nTextboxText <> "" Then
                        iText = Space(100)
                        GetWindowText iHwnd, iText, 100&
                        iText = Left(iText, InStr(iText, _
                            Chr(0)) - 1)
                            'Debug.Print iText
                        If iText = nTextboxText Then
                            GetFirstTextBoxHandle = iHwnd
                            Exit Function
                        End If
                    Else
                        GetFirstTextBoxHandle = iHwnd
                        Exit Function
                    End If
                End If
            End If
            iHwnd = GetWindow(iHwnd, GW_HWNDNEXT)
        Loop
    End If
End Function

Private Sub Command1_Click()
    Dim WINDOWCAPTION As String
    WINDOWCAPTION = "Choose file"
   
    SendMessage GetFirstTextBoxHandle(WINDOWCAPTION, "ComboBoxEx32"), WM_SETTEXT, ByVal 0, ByVal "Aqui vai o nome do anexo e endereço"
    PostMessage GetFirstTextBoxHandle(WINDOWCAPTION, "Button", "&Open"), BM_CLICK, 0, 0
   
End Sub

Se teu Windows não for em inglês você vai ter que mudar o valor da variável WINDOWCAPTION para o nome que aparece na janela de selecionar arquivo e o nome do botão "Abrir" (está como "&Open") na linha de código abaixo:

PostMessage GetFirstTextBoxHandle(WINDOWCAPTION, "Button", "&Open"), BM_CLICK, 0, 0

Espero ter ajudado (espero mesmo, porque deu um trabalho achar isso)... mas replicar conhecimento nunca é demais.

Abraços

[Gostaria de uma ajuda em macros]

Esse código pode te dar uma ajudar, se eu endendi direito o teu problema:

Image1.Picture = LoadPicture("d:\1.bmp")

[Ajuda com Relatorio de Progresso - VBA]

É possível.

Grave os valores de configuração em um lugar da sua planilha e quando for carregar o Form atribua os valores gravados nessa planilha nos campos que você deseja.

[PROCV COM MULTIPLICAÇÃO]

É por causa das aspas duplas

Dim percentual as Double 'Percentual não é número inteiro! <_<

percentual = txtpercentual.value

activecell.formular1c1 = "=VLOOKUP(RC[-3],listaOficial,4,0) * " & Replace(percentual, ",", ".") 'Tem que usar o formato de número decimal americano onde se usa ponto como separador decimal

Testa esse código e responde se deu certo.

[VBA interagindo com IE]

Posta o código.

Mas já te adianto de que você vai precisar usar duas APIs do Windows para fazer isso: SendMessage e GetWindow.

Vai estudando estas APIs enquanto eu tento achar uma solução também com base nestas APIs

[MSGbox PopUp =]]

Tenta

appactivate thisworkbook.name

[Formatação de página do Word]

Tem como disponibilizar seu código para eu ver?

[(Resolvido) Worksheet_FollowHyperlink funciona a primeira vez e depois]

Já verificou se as macros estão habilitadas em outros computadores.

[Como voltar a trabalhar com uma variável de outra macro?]

Declara o objeto fora da subrotina. Assim:

Dim uorde As Object 'uorde pois se trata de um documento do word

Sub late()
     Set uorde = CreateObject("Word.Application")
     With uorde
          .Visible = True
          .Workbooks.Add
     End With
End Sub

[Como listar todas as planilhas de uma pasta de excel no VBA]

Tente isto:

Dim numPlanilhas as Integer
Dim contador as Integer

numPlanilhas = Workbooks("NomePastaTrabalho.xls").Worksheets.Count
Dim arrayPlanilhas(numPlanilhas - 1) As String

For contador = 1 To Workbooks("NomePastaTrabalho.xls").Worksheets.Count

     arrayPlanilhas(contador - 1) = Workbooks("NomePastaTrabalho.xls").Worksheets(contador).Name

Next contador

[(Resolvido)Formatar caixa de texto (casas decimais) como 0,00 URGENTE]

txtmcersh.Text = Format(Val(Plan3.Cells(6, 13)),"0.00")

[Renomear Planilha do Excel via Visual Basic]

xlbook.Worksheets(xlbook.Worksheets.Count).Name = "Nome"

[Botão esconde/mostra linhas VBA excel]

No 2003 eu não sei, já faz um bom tempo que não uso ele.

Agora, eu sei que todos controles têm 2 propriedades chamadas Top e Left que são utilizadas para armazenar o posicionamento.

Quem sabe quando você clica no botão raiz ele define sempre o valor destas propriedades para os botões subsequentes? Só uma idéia, não tenho nenhum exemplo de código que faça isso.

[Botão esconde/mostra linhas VBA excel]

Veja se isso resolve (estou imaginando que seu botão seja de Formulário e não um Controle ActiveX):

Clique com o botão direito do mouse sobre o botão -> Formatar Controle -> Selecione a aba Propriedades -> Marque a opção "Mover e dimensionar com células" (estou usando Office 2007).

[(Resolvido) Colorir intervalo de células no Excel]

Tenta isso:

Sub Colorir()
'
' Colorir Macro
' Macro gravada em 19/12/2010 por Henrique
'
' Atalho do teclado: Ctrl+d
'
    ActiveCell.Resize(1, ActiveCell).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

[Problema na declaração de variável]

Sub = declara um procedimento

Dim = Declara variáveis

Correção do seu código:

Dim pla1 As Variant 'ou as string

[Interação Excel x I.E. Radio e Select]

Tente:

ie.Document.frames(0).Document.getElementById("especie").Item(2).Selected = True

Onde Item(n), o índice se inicia por 0.

[Auto-Filtro não filtra sem dar "ok"]

Tenta acrescentar o Operator:=xlAnd:

(...)
Selection.AutoFilter
ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=1, Criteria1:=">" & Data_Pesquisa, Criteria2:="<" & Data_Pesquisa2, Operator:=xlAnd
(...)

[Duvida selection.replace]

Ou, você pode complicar um pouco mais:

Sub Teste_Jabuticaba()

Dim RngResultado As Range

With Columns("D:D")
    Set RngResultado = .Find(What:="0", LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
    If Not RngResultado Is Nothing Then
        Do
        RngResultado.Cells(1, 1) = RngResultado.Cells(1, 1).Offset(0, -2)
        Set RngResultado = .FindNext(RngResultado)
        Loop While Not RngResultado Is Nothing
    End If
End With

End Sub