把“特殊粘贴--粘贴链接”改为相对路径试试在Form_Load()中添加路径OLE(index).CreateLink (App.Path & "\xxx.xls")列入OLE1装入KS4-10.xlsOLE1.CreateLink (App.Path & "\KS4-10.xls")记得把程序和excel放在一个文件夹内App.Path表示当前程序位置