清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>
Sub save_ole_file() Dim wordObj As OLEObject Set wordObj = Worksheets("Sheet1").OLEObjects(1) wordObj.Activate With wordObj.Object.Application.WordBasic .FileSaveas "c:\mytempx" End With End Sub