0
新しいブック（checkwb）を開こうとしたときに、私は奇妙な動作をしています。新しいブックが開くと、ブック内のすべてのページの「印刷設定」ダイアログボックスが開きます。さらに、「OK」〜200回をクリックした後、コードは正常に実行されますが、checkwbを閉じてコードをもう一度実行しようとすると、Excelを完全に閉じてから再度開くまで、checkwbを開くことができません。ここに私の（不完全な）コードだ：不要な印刷設定
Sub Check()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim homewb As Workbook
Dim checkwb As Workbook
Dim ws As Worksheet
Dim namestr As String
Dim checkarray() As Double
Set homewb = Workbooks("BranchTable Calc B31.3.xlsm")
Set checkwb = Workbooks.Open("Z:\Agrium\Redwater\E130040CP ~ Pipe Spec
Update\M-Mech\20-Eng\Calcs\Final WT Calcs All Specs\New Bechtel Agrium
comments.xlsm")
For Each ws In homewb.Sheets
If ws.Name = "Cover" Or ws.Name = "Pipe Dims" Then
Else:
namestr = ws.Name & " Weld"
checkarray() = GetCheckValues(checkwb, namestr)
End If
Next
checkwb.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
私はこのような奇妙なエラーが破損したファイルから発生する可能性があります読んだけど、それは私の理解によって破損した場合のコードは、すべてのファイルを開くことができないはず。
オンラインで見つかった問題は、動作しようとしているファイルが.xlsmなので、明らかに問題の原因となっているファイルにマクロが存在しないことを確認することです。 また、ファイルが「ページ区切りプレビュー」モードで保存されたときに接続可能なプリンタが接続可能である必要があります。デフォルトとしてリストされているネットワークプリンタがあり、到達不能になると、この問題が発生します。それは本当に私がそれについて見つけることができるすべてです。 – Ricktron3000
ちょうど私が開いていた本に行って、すべてのページビューを「通常」モードに設定し、コードを再度実行しました。あなたの助けを借りて、完璧に働いた！ – Eric