About Me
Estatisticas
2006-09-09
2:17 da manhã | 
Publicada por
JRod - PORTUGAL
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
Open Statement
