IMPORTAR DADOS DO EXCEL PARA WEB

TARCISIOSSA 09/10/2013 11:08:07
#429737

Prezados

Bom dia

Gostaria de fazer uma importação de dados do Excel diretamente para web achei esse código na web como posso adaptá-lo a essa URL.

URL = http://www.sefaz.salvador.ba.gov.br/index.php/todos-servicos/75-pessoa/pessoa-juridica/238-emissao-do-alvara

itens CNPJ
itens CGA
itens CPF
itens Consulta.

Public Sub ConectaWeb()
On Error Resume Next
Dim endereço As String
Dim mostra As Boolean
Dim i, n, x As Integer
endereço = [Ô] http://www.xxxxxxxxxxxx.com.br[Ô]
Set ie = CreateObject([Ô]InternetExplorer.Application[Ô])
ie.navigate (endereço)
While ie.ReadyState <> 4
Wend
ie.Visible = true
ie.document.forms.Item(0).Item(2).Value = [Ô]Comentários / Sugestões[Ô]
ie.document.forms.Item(0).Item(3).Value = Sheets(1).Range([Ô]A1[Ô])
ie.document.forms.Item(0).Item(4).Value = Sheets(1).Range([Ô]A2[Ô])
ie.document.forms.Item(0).Item(5).Value = Sheets(1).Range([Ô]A3[Ô])
ie.document.forms.Item(0).submit

While ie.ReadyState <> 4
Wend
End Sub