使用Excel VBA修改另一个工作簿中的.zoom属性

我正在编写一个复杂的VBA应用程序，它从一个工作簿导入数据，在导入数据时对其进行转换。 作为此导入过程的一部分，将执行计算以获取某个单元格的.text值（并且不能将其更改为.value），但这意味着如果源工作簿被缩小，则会导入#### ####值，就像显示的那样。

我正在尝试修改源工作簿的activesheet中的.zoom设置为100％缩放。 下面是使用的代码示例。

Dim SourcePath as String Dim SourceWorkbook as Object FilePath = Application.GetOpenFilename 'Opens dialogue for user to select source If FilePath <> "" Then 'Checks that the filepath is completed SourcePath = FilePath 'Stores the filepath for source End If Set SourceWorkbook = Workbooks.Open(SourcePath) SourceWorkbook.ActiveWorksheet.Zoom = 100 

我得到一个运行时错误91：对象variables或块variables未设置错误，所以我假设这里的逻辑是穷人。

任何人都可以提出一个做这个工作的方法吗？ 感谢预期。

Answer 1

您可以使用下面的代码

  Sheets("Sheet Name").Select ActiveWindow.Zoom = 30 ' Zoom Set to 30% 

Answer 2

工作表上没有zoom属性，我认为你需要改变一个窗口的zoom属性！

以定义的缩放级别设置所有的Excel工作表