Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-09-09
Se pretendermos utilizar um ficheiro texto (ex: teste.txt) como um ficheiro com conteúdo numérico sequenciador para uma célula de uma worksheet (ex: A1), então, podemos criar o ficheiro, digitar 0 (zero) e salvá-lo no directório escolhido. Depois, um pouco de VBA adicionado a um Command Button, faz o resto.





O Código:

Private Sub CommandButton1_Click()
    Dim strTemp As String

    On Error GoTo CommandButton1_Click_Error

    Open "F:\Gabinete\teste.txt" For Input As #1

    Line Input #1, strTemp
    Range("A1").Value = strTemp + 1
    Close #1

    Open "F:\Gabinete\teste.txt" For Output As #1

    strTemp = Range("A1").Value
    Print #1, strTemp
    Close #1

    On Error GoTo 0
    Exit Sub

CommandButton1_Click_Error:

    MsgBox "Erro " & Err.Number & " (" & Err.Description & ") no procedimento CommandButton1_Click"
End Sub


  • Tópicos relacionados:


  •  Open Statement