Access - macro para incrustar un bojeto de excel

   
Vista:

macro para incrustar un bojeto de excel

Publicado por Daniel (1 intervención) el 04/04/2014 12:12:38
tengo un macro grabada donde puedo incrustar un excel. Pero para hacerlo mas dinámico quiero que te deje seleccionar el archivo a incrustar. Alguien me ayuda

1
2
3
4
5
6
7
8
9
10
11
12
Sub incrustar()
'
'
 
'
    Workbooks.Open Filename:="D:\prueba.xlsx"
    ActiveWindow.Visible = False
    ActiveSheet.OLEObjects.Add(Filename:="D:\prueba.xlsx", Link:= _
        False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, IconLabel:="D:\prueba.xlsx").Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder