macros以打印从另一个工作簿中select单元格

我需要单击一个Excel工作簿中的一个button，并自动从网站打开另一个工作簿，并从该工作簿中打印选定的单元格。

到目前为止，我有代码，打开我的工作簿forms的网站，但我需要包括打印select单元格的一部分。 先谢谢你！

这里是我有的代码：

Sub Project4000() 'open IE, navigate to the desired page and loop until fully loaded Set IE = CreateObject("InternetExplorer.Application") my_url = "Link to the file in the website" With IE .Visible = True .Navigate my_url .Top = 50 .Left = 530 .Height = 400 .Width = 400 Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop End With ' Input the userid and password IE.Document.getElementById("uid").Value = "user" IE.Document.getElementById("password").Value = "passw" ' Click the "Search" button IE.Document.getElementById("enter").Click Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop End Sub