RESOLVIDO!!! - VB6 X OFFICE
OLÃ Pessoal, Procurei aki mesmo no VBmania e não encontrei nada do q exatamente estou precisando, por isso peço a ajuda de todos vcs.
é o seguinte, eu preciso abrir os arquivos do Office em uma Form, para daà eu trabalha com o arquivo.
Qual a necessidade disso?
é q o cliente quer salva todos os arquivos dele em um Banco de Dados, [Ô]isso eu ja consigo[Ô], mais ele quer o usuario procure o arquivo no banco de dados e visualize o mesmo, dependendo do nivel do usuario ele poderá importa o arquivo, imprimir, editar, etc.
entao pessoal, alguem sabe como posso fazer isso no VB6?
Antecipadamente Agradeço a todos.
é o seguinte, eu preciso abrir os arquivos do Office em uma Form, para daà eu trabalha com o arquivo.
Qual a necessidade disso?
é q o cliente quer salva todos os arquivos dele em um Banco de Dados, [Ô]isso eu ja consigo[Ô], mais ele quer o usuario procure o arquivo no banco de dados e visualize o mesmo, dependendo do nivel do usuario ele poderá importa o arquivo, imprimir, editar, etc.
entao pessoal, alguem sabe como posso fazer isso no VB6?
Antecipadamente Agradeço a todos.
Citação:é o seguinte, eu preciso abrir os arquivos do Office em uma Form, para daà eu trabalha com o arquivo.
Seria abrir e editar o arquivo no OFFICE Ã partir de um FORM em VB6?
Se for isso, creio que um SHELLEXECUTE deve resolver.
Segue um exemplo:
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub cmdDoc_Click()
Dim ret As Long
ret = ShellExecute(Me.hwnd, vbNullString, [Ô]MeuArquivoDoWord.doc[Ô], vbNullString, CurDir, 1)
End Sub
é Abrir o Arquivo no Form, [Ô]na plataforma do VB!.
Encontrei algo no www.vb6.com.br e estou testando ate agora esta fazendo exatamente o q eu kero, vou termina o teste e posta.
VLW!!!
Encontrei algo no www.vb6.com.br e estou testando ate agora esta fazendo exatamente o q eu kero, vou termina o teste e posta.
VLW!!!
Amigos a Solução esta ai!!!
Espero que Ajude a muitos.
OBS: LEIA A DOCUMENTAÇÃO!!!
Abraço a todos, vou deixa o tópico aberta para esclarecimento se necessário.
Espero que Ajude a muitos.
OBS: LEIA A DOCUMENTAÇÃO!!!
Abraço a todos, vou deixa o tópico aberta para esclarecimento se necessário.
Tópico encerrado , respostas não são mais permitidas