| |
▼IROC さん：
>Application.Screenupdating = false
>をつかえば、画面の更新が停止するので、
>見えない（何も表示されない）ようにはなります。
あ。その方法がありましたね。
そこは、そうすることにします。
それで、マクロのする方が問題なのです。
ディレクトリ名が書いてあるセルをチェックして、
そのディレクトリ内にあるファイル名を取得するのは出来るのですが、
そのあと、それを印刷するところの書き方がいまいち分かりません。
他の質問も見て、分かる部分は作ってみました。
**************************************************************
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"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If myObj Is Nothing Then Exit Sub
myDir = myObj.Items.Item.Path
If Right(myDir, 1) <> "\" Then myDir = myDir & "\"
Sheets("menu").Cells(12, "C") = myDir
myFileName = Dir(myDir & "*.xls")
While myFileName <> vbNullString
If myFileName = ThisWorkbook.Name Then myFileName = Dir()
fileFullname = myDir & myFileName
********** ここに印字する機能を書く **********
myFileCount = myFileCount + 1
myFileName = Dir()
Wend
If myFileCount = 0 Then
MsgBox "ファイルは見つかりませんでした。マクロを終了します。"
Exit Sub
Else
MsgBox "印刷が終了しました。対象件数は" & myFileCount &"件です。"
End If
End Sub
|
|
