| |
先日投稿したものです。
教えていただいたかいもあって、投稿直後は動いていたのですが、
昨日実行したところ、急に、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
|
|
