Törölt nick
2011.08.15
|
|
0 0
15847
|
Szerintem, csak ide lehet beszúrni, de sajnos, nem javít a helyzeten:
Sub teszt() Dim W As Word.Document, WD As Word.Application Dim o As OLEObject Set o = ActiveSheet.Shapes("Object 3").OLEFormat.Object o.Verb Verb:=xlOpen
Set W = o.Object Set WD = W.Parent
WD.Visible = FALSE W.SaveAs "D:akármi.doc" W.Close WD.Quit End Sub |
Előzmény: SQLkerdes (15846)
|
|