VBA Access Basic - Abrindo um Banco de Dados no modo Leitura/Gravação - Opening a Database in Read/Write Mode

| Blog Office VBA | Blog Excel | Blog Access |

Abrindo um Banco de Dados no modo Leitura/Gravação.

Segue:

Sub Open_ReadWrite()
   Dim conn As ADODB.Connection
   Dim strDb As String

   On Error GoTo ErrorHandler
   strDb = CurrentProject.Path & "\mydb.mdb"
   Set conn = New ADODB.Connection

   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0;"
      .Mode = adModeReadWrite
      .ConnectionString = "Data Source=" & strDb
      .Open
   End With
   Debug.Print "Connection was opened."

   conn.Close
   Set conn = Nothing
   Debug.Print "Connection was closed."

   Exit Sub
ErrorHandler:
   Debug.Print Err.Number & ": " & Err.Description
End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, Opening, Read/Write Mode, Read, Write

VBA Excel - Sua Planilha pode pronunciar palavras, textos e títulos - Speak method as it applies to the Speech object

Termo de Responsabilidade 

Talvez você não saiba, mas o seu MS Excel pode ler o conteúdo das células que acabou de digitar. Isso mesmo LER, por enquanto somente em inglês, mas já é um recurso interessante.

Copie o código abaixo em um módulo da sua planilha

Sub ReadOnNow()

    Let Application.Speech.SpeakCellOnEnter = True

End Sub

Pronto! Após clicar em qualquer célula da sua planilha que contenha um texto, este será lido em inglês.

Digamos que deseje que o conteúdo de uma célula específica seja lido:

Sub SayThisCell()

Cells(1, 1).Speak

End Sub

Suponha que deseje que uma frase seja pronunciada, mas esta não está dentro de uma célula específica:

Sub SayThisString()

Dim SayThis As String

Let SayThis = "VBA Microsoft Office Excel"

Application.Speech.Speak (SayThis)

End Sub

References: MSDN. Guiadoexcel.com.br

Tags: VBA, Office, Excel, read, speak, english, inglês, falar, ler, Speech, speak, 

VBA Powerpoint - Use VBA para ler o texto de um arquivo - Use VBA to read text from a file

| Blog Office VBA | Blog Excel | Blog Access |

Use VBA para ler o texto de um arquivo

A seguinte rotina simplesmente abre um arquivo texto, lê cada linha em uma variável, coloca-o numa janela Immediate (pressione Ctrl + G para ver a janela imediata no IDE), em seguida, fecha o arquivo.

Sub ReadAsciiFile()

    Dim sFileName As String

    Dim iFileNum As Integer

    Dim sBuf As String

    ' Edit this:

    Let sFileName = "C:\Bernardes\ABL.TXT"

    ' Does the file exist?  simpleminded test:

    If Len(Dir$(sFileName)) = 0 Then

        Exit Sub

    End If

    Let iFileNum = FreeFile()

    Open sFileName For Input As iFileNum

    Do While Not EOF(iFileNum)

        Line Input #iFileNum, sBuf

        ' Now you have the next line of the file in sBuf

          ' Do something useful:

        Debug.Print sBuf

    Loop

    ' Close the file

    Close iFileNum

End Sub

Tags: Powerpoint, Slide, UDF, text, read, file, archive, arquivo