Pessoal

Preciso que seja aberto o arquivo abaixo e não estou conseguindo.

c:\dados\TESTE\Vendas.xls

Estou usando o código abaixo mas não funciona:
Call Shell("start c:\dados\TESTE\Vendas.xls")

Crie um módulo qualquer e declare:

Public 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


No evento AoClicar de um botão coloque:

Dim strArquivo
strArquivo = "C:\NomeDaPasta\NomeDoArquivo.xls"
Call ShellExecute(0, vbNullString, strArquivo, vbNullString, vbNullString, 1)

Jorge

Muitíssimo obrigado ..................

Tenho um formulário onde alguns campos e gostaria de abrir o arquivo e passar as informações desses campos para o arquivo aberto tem como ??

Jorger...

Funcionou perfeitamente.......Que maravilha... muitíssimo obrigado....

Agora olha só ...
Como eu passo o foco para o arquivio ??
Preciso inserir 3 informações no arquivo e salvar com outro nome....

Como faço isso ??

Olá Flávio.

Você deve passar as informações do Access para o Excel antes de abrir a planilha.

Para isso, é necessário acessar os objetos, métodos e propriedades do Excel a partir do Access, via código. Essa interface com o Excel é disponibilizada pela biblioteca Microsoft Excel Object Library, a qual você referencia no menu Ferramentas -> Referências. Com isso, você consegue manipular, via código, todos os recursos que o Excel oferece.

Faça uma busca aqui no fórum usando as seguintes palavras chaves:
Excel.Application, Excel.Workbook, Excel.Worksheet, Range.

Aparecerá uma listagem com códigos que servirão de exemplo.

Atenciosamente,
Tiago.

Tiago

vc tem exemplo ?

colega tente isto call shell("""excel.exe""""c:\teste.xls",1)


ou isto

Abraços

ou isto call shell("arquivos de programa/microsof office/office/excel.exe""c:\teste.xls")

Abraços

ou melhor call shell("arquivos de programa/microsof office/office/excel.exe""c:\teste.xls",1)


Abraços

Caro Flávio,
Estou te mandando um exemplo para Visual Basic, mas creio (ainda não tentei), que funciona bem para o Access, utilizando o método "CopyFromRecordset". Lembre-se que antes de disparar o código vc já deve ter o Recordset populado.

Primeiro vc deve ir em ferramentas/Referências e setar "MicrosoftExcel 9.0 Object Library" após, declarar variáveis do tipo Object, tipo Integer, tipo Recordset e tipo String:

Option Compare Database
Option Explicit

Dim objExcel As Object ' Excel application
Dim objBook As Object ' Excel workbook
Dim objSht As Object ' Excel Worksheet
Dim intMaxCol As Integer
Dim intMaxRow As Integer
Dim tabcliEv As DAO.Recordset
Dim SQLEv As String


Private Sub cmd_XLS_Click()

Set objExcel = CreateObject("excel.application")
Set objBook = objExcel.Workbooks.Add
objExcel.Application.Visible = True

Set objBook = objExcel.Workbooks. _
Open("C:\Pasta_do_XLS\SeuArquivo.xls")

On Error Resume Next
'Transferido os dados do recordset p/ planilha Excel.
Set tabcliEv = banco.OpenRecordset(SQLEv)

intMaxCol = tabcliEv.Fields.Count
If tabcliEv.RecordCount > 0 Then
tabcliEv.MoveLast: tabcliEv.MoveFirst
intMaxRow = tabcliEv.RecordCount
With objExcel
.Visible = True
Set objSht = objBook.Worksheets(1)
With objSht
.Range(.Cells(4, 1), .Cells(4, 1)).CopyFromRecordset tabcliEv
End With
End With
End If
End Sub

Sds,

[]s )

Jorge Inácio