Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69189 / 76733

←次へ　｜　前へ→


	【12062】急に印刷できなくなりました

みーちゃん - 04/3/23(火) 11:22 -


	引用なし

	パスワード

先日投稿したものです。

教えていただいたかいもあって、投稿直後は動いていたのですが、
昨日実行したところ、急に、ThisWorkbook.Name のNameが黒くなって
型が一致しませんと言われてしまうようになってしまいました。
あれからこの関数に関しては、どこもいじっていないのに、
どうしてなんでしょう？？？

Sub aa()

　　Dim myObj As Object
　　Dim myDir As String
　　Dim myFileName As String
　　Dim myFileList As String
　　Dim fileFullname As String
　　Dim myFileCount As Long
　　Dim wbPrint As Workbook
　
　　Set myObj = CreateObject("Shell.Application")
　　myDir = Sheets("bbb").Cells(14, "C")　←　ここにディレクトリ名が書いてある
　　myFileName = Dir(myDir & "*.xls")
　　
　　While myFileName <> vbNullString
　　　 Application.ScreenUpdating = False
　　　 If myFileName Is ThisWorkbook.Name Then myFileName = Dir()
　　　 fileFullname = myDir & myFileName
　　　 Set wbPrint = Workbooks.Open(fileFullname)
　　　 wbPrint.Worksheets("ccc").PrintOut
　　　 wbPrint.Close
　　　 myFileCount = myFileCount + 1
　　　 myFileName = Dir()
　　　 Application.ScreenUpdating = True
　　Wend
　　
　　'ファイルがなかった場合
　　If myFileCount = 0 Then
　　　 MsgBox "ファイルは見つかりませんでした。マクロを終了します。"
　　　 Exit Sub
　　'見つかったファイルの個数を表示
　　Else
　　　 MsgBox myFileCount & "個のファイルが見つかりました"
　　End If
　　
End Sub

5 hits

▼

【12062】急に印刷できなくなりました みーちゃん 04/3/23(火) 11:22

≪