하나의 통합 문서에서 데이터를 가져 와서 가져올 때 데이터를 변환하는 복잡한 VBA 응용 프로그램을 작성하고 있습니다. 이 가져 오기 프로세스의 일부로 계산을 수행하여 특정 셀의 .text 값을 가져오고 (이 값을 .value로 변경할 수 없음) 원본 통합 문서가 축소 된 경우 ###을 가져옵니다. ##### 값이 그대로 표시됩니다.Excel VBA를 사용하여 다른 통합 문서의 .zoom 속성 수정
원본 통합 문서의 활성 시트에서 .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 블록 변수가 오류를 설정하지, 그래서 여기에 논리를 가정하고하는 것은 좋지 않습니다.
아무도이 작품을 만드는 방법을 제안 할 수 있습니까? 기대해 줘서 고마워.
완벽한을 사용할 수 있습니다, 감사합니다! 나는 다음을했다 : – user3190686
완벽, 고마워! 나는 다음과 같은 논리를 시도한다 통합 문서 (SourceWorkbook) .Worksheets (SourceSheet) ALL 기타 사항 서보 -OFF ActiveWindow.Zoom = (DestinationWorkbook) .Worksheets (SourceSheet) ALL 기타 사항 서보 -OFF 정말이 감사 100 개 통합 문서가, 감사합니다! – user3190686