LER ARQUIVO TEXTO PELO VBA EXCEL
Fala galera...comecei a trampa c vb e to apanhando um poco!!!......entao eu gostaria de saber como faz para ler um arquivo texto????(eu estou usando vba exel, se algum puder me responder no vba, melhor se n pod se no vb msm)
ah e alguem sab como coloca imagem(via codigo do no exel,???
vlws galera ateh
[S25][txt-color=#ff0000]TÃtulo Original: Ler Arquivo[/txt-color]
ah e alguem sab como coloca imagem(via codigo do no exel,???
vlws galera ateh
[S25][txt-color=#ff0000]TÃtulo Original: Ler Arquivo[/txt-color]
para ler arquivo de texto no vb:
open "c:\arquivo.txt" for in input as #1
if not eof(1)
line input #1, linha
msgbox linha
end if
close #1
open "c:\arquivo.txt" for in input as #1
if not eof(1)
line input #1, linha
msgbox linha
end if
close #1
Lendo arquivo
Neste caso ele lê a linha inteira do arquivo, se for somente um registro (os registros devem ser separados por virgula, tipo andré,rua tal,holambra) você deve tirar o Line Input #1 e deixar somente o Input #1.
#1 é o numero do arquivo que vc está manipulando, vc pode abrir varios arquivo de uma vez. Uma função pra não ocorrer a chance de pegar um arquivo q já esteja utilizando é
N = FreeFile, depois vc usa no arquivo
Open ... For Input as #N
Iinput #N, ...
Close #N
Para gravar um arquivo basta mudar algumas coisa, porem a logica é a mesma
Open "C:\dado.txt" for Output As #1
Print #1, "Arquivo criado e escrito em " & Date & " Ã Â s " & Time
Close #1
Inserindo uma imagem no excel via codigo.
Bom cara, eu não sei, mas já tentou perguntar pro Excel?
Vai em Ferramentas, Macros e Gravar Macro. Agora grave uma macro enquando vc adiciona uma imagem. Pare a gravação, pressione ALT+F11, ela vai estar lá, um modulo, basta analizar o codigo e pronto! ;-)
Open "C:\dado.txt" for input as #1
While Not eof(1)
Line Input #1, Destino
Wend
Close #1Neste caso ele lê a linha inteira do arquivo, se for somente um registro (os registros devem ser separados por virgula, tipo andré,rua tal,holambra) você deve tirar o Line Input #1 e deixar somente o Input #1.
#1 é o numero do arquivo que vc está manipulando, vc pode abrir varios arquivo de uma vez. Uma função pra não ocorrer a chance de pegar um arquivo q já esteja utilizando é
N = FreeFile, depois vc usa no arquivo
Open ... For Input as #N
Iinput #N, ...
Close #N
Para gravar um arquivo basta mudar algumas coisa, porem a logica é a mesma
Open "C:\dado.txt" for Output As #1
Print #1, "Arquivo criado e escrito em " & Date & " Ã Â s " & Time
Close #1
Inserindo uma imagem no excel via codigo.
Bom cara, eu não sei, mas já tentou perguntar pro Excel?
Vai em Ferramentas, Macros e Gravar Macro. Agora grave uma macro enquando vc adiciona uma imagem. Pare a gravação, pressione ALT+F11, ela vai estar lá, um modulo, basta analizar o codigo e pronto! ;-)
Eu chamo essa sub dessa forma:
Call InsereFigura(edtLogo.Text)
Public Sub InsereFigura(caminho As String)
With excel.Worksheet.Pictures.Insert(caminho)
.ShapeRange.LockAspectRatio = -1 'Para manter a proporção da imagem
.ShapeRange.Height = 60# 'Neste caso especÃfico eu precisava que a imagem tivesse essa altura no máximo
.ShapeRange.Rotation = 0#
End With
End Sub
Espero ter ajudado
Call InsereFigura(edtLogo.Text)
Public Sub InsereFigura(caminho As String)
With excel.Worksheet.Pictures.Insert(caminho)
.ShapeRange.LockAspectRatio = -1 'Para manter a proporção da imagem
.ShapeRange.Height = 60# 'Neste caso especÃfico eu precisava que a imagem tivesse essa altura no máximo
.ShapeRange.Rotation = 0#
End With
End Sub
Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas