我正在编写一个复杂的VBA应用程序，该应用程序从一个工作簿导入数据，并在导入数据时对其进行转换。作为此导入过程的一部分，将进行计算以获取特定单元格的.text值（并且不能将其更改为.value），但是这意味着如果源工作簿缩小了，则将导入#### ####值，即显示的值。
我正在尝试将源工作簿的活动表中的.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：对象变量或With块变量未设置错误，因此我假设此处的逻辑很差。
有人可以提出一种使这项工作可行的方法吗？谢谢您的期待。
您可以使用以下代码
Sheets("Sheet Name").Select
ActiveWindow.Zoom = 30 ' Zoom Set to 30%
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句