Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Acessar dados em planilha na internet

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
tiagoagostinho
Colaborador
Colaborador
Mensagens: 22
Registrado em: Ter Fev 23, 2016 6:47 pm

Acessar dados em planilha na internet

Mensagem por tiagoagostinho »

Olá, Gostei muito de seu blog/fórum e ele já me ajudou em muita coisa.
Eu procurei uma coisa, mas não encontrei.
Sou Acadêmico de Engenharia Civil, e estou fazendo um projeto, que seria uma planilha no excel para quantitativos de materiais. Eu fiz um controle de acesso na planilha que somente usuários pré determinados em outra planilha tenham acesso a essa planilha. Mas essa planilha com os usuários tem que estar no computador. Eu gostaria de saber se é possível colocar na rede (internet) pra não ter que entregar esse arquivo de planilha com os usuários que têm acesso. No caso, eu tenho uma hospedagem e domínio disponível para isso. É possivel somente colocar essa planilha na internet e alterar o caminho no VB para conferência ou tenho que criar um banco de dados SQL para isso?

Inclusive, esse script foi daqui do fórum, se não me engano.

Código: Selecionar todos


Private Sub Workbook_Open()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim u As String
Dim v As String

Range("a1").ClearContents
u = "E:\Quantitativo de Edifícios\Users_Tiago.xls"
v = Environ("UserName")

If CaminhoExiste(u) Then
    Set xlw = xl.Workbooks.Open(u)
    With xlw.Application.Range("A:A")
        Set proc = .Find(what:=v, lookat:=xlWhole)
        If proc Is Nothing Then
            xlw.Close False
            GoTo bloquear
        Else
            xlw.Close False
            Range("a1") = "sim"
            
            
            Exit Sub
        End If
    End With
Else
    GoTo bloquear
End If

bloquear:
    MsgBox "VOCÊ NÃO POSSUI REGISTRO PARA ACESSO A PLANILHA! Entre em contato com tiagoagostinho@outlook.com", vbExclamation, "REGISTRO"
    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    ThisWorkbook.Close
    .ScreenUpdating = True
    .DisplayAlerts = True
    End With
    Exit Sub

End Sub


Function CaminhoExiste(sCaminho As String) As Boolean 'verificar se o caminho existe

On Error Resume Next
If Dir(sCaminho) = vbNullString Then
    CaminhoExiste = False
Else
    CaminhoExiste = True
End If

End Function
Sub visualizar()
Sheets("a1").Visible = False

End Sub



Desde já, agradeço!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Acessar dados em planilha na internet

Mensagem por Mikel Silveira Fraga »

Fala Tiago, blz. Seja muito bem vindo ao fórum.

Olha cara, se você esta querendo trabalhar com armazenamento de dados via internet, eu faria de duas formas diferentes:
- 1º) Criaria uma conta em um serviço de nuvens (por exemplo, Mega, OneDriver, DropBox, etc) e utilizaria a ferramenta de compartilhamento desta área com um diretório do PC. Dessa forma, cada usuário teria acesso ao mesmo arquivo;

- 2º) Como acredito que a solução acima não é a mais viável, a melhor opção seria passar todas as informações da planilha para um banco de dados e hospedá-lo em seu domínio. Dessa forma, você criaria uma planilha que iria conectar ao banco de dados remoto e fazer uma consulta aos dados, através do Structure Query Language (SQL).

Caso ache a segunda opção mais interessante, existe um modelo postado aqui no fórum que utilizado o MySQL (local) para fazer essa tarefa.
Este é o link: Instalação Modelo Excel / VBA / MySQL.

Dê uma olhada nas opções e nos retorne.

Abraços!!!
Editado pela última vez por Mikel Silveira Fraga em Qua Fev 24, 2016 3:32 pm, em um total de 1 vez.


tiagoagostinho
Colaborador
Colaborador
Mensagens: 22
Registrado em: Ter Fev 23, 2016 6:47 pm

Re: Acessar dados em planilha na internet

Mensagem por tiagoagostinho »

Opa Mikel, vou dar uma olhada sim. Muito obrigado pela sua ajuda.

Depois volto com o resultado :)


tiagoagostinho
Colaborador
Colaborador
Mensagens: 22
Registrado em: Ter Fev 23, 2016 6:47 pm

Re: Acessar dados em planilha na internet

Mensagem por tiagoagostinho »

Mikel, eu já tenho uma hospedaem com banco de dados SQL.
Eu preciso ainda baixar esse administrador de banco de dados que você disse?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Acessar dados em planilha na internet

Mensagem por Mikel Silveira Fraga »

Tiago, boa tarde.

Na verdade não precisa, pois geralmente essas hospedagens já possuem o phpAdmin, que é utilizado para administrar o MySQL.

Agora, eu aconselho a utilizar inicialmente o MySQL no próprio Desktop, para conseguir compreender seu uso e, posteriormente, passar para o processo de hospedagem remoto.

Nesse modelo que eu havia postado, existem códigos que realizam as 4 operações básicas do SQL (select, insert, update e delete). É um bom material para estudo.

Abraços!!!


tiagoagostinho
Colaborador
Colaborador
Mensagens: 22
Registrado em: Ter Fev 23, 2016 6:47 pm

Re: Acessar dados em planilha na internet

Mensagem por tiagoagostinho »

Beleza! Entendi.
Vou dar uma estudada ;)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder