Sub save_ole_file()Dim wordObj As OLEObjectSet wordObj = Worksheets("Sheet1").OLEObjects(1) wordObj.ActivateWith wordObj.Object.Application.WordBasic.FileSaveas "c:\mytempx"End WithEnd Sub
来源: http://www.phpxs.com/code/1008796/