Lendo arquivo texto no VBA

Public Sub leArquivo()
 Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
 
 myFile = "C:\test\geographical-coordinates.txt"
 myFile = Application.GetOpenFilename()
 
 
 Open myFile For Input As #1
 Do Until EOF(1)
 Line Input #1, textline
 text = Trim(text & textline) & ";"
 Loop
 Close #1

 Debug.Print text
End Sub
Esta entrada foi publicada em Visual Basic 6.0 e VBA com as etiquetas . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s