str="字符串的内容" Set IE = CreateObject("InternetExplorer.Application") IE.Navigate("about:blank") IE.document.parentwindow.clipboarddata.setdata "text",str