Excel VBA質問箱 IV

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

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


69340 / 76732 ←次へ | 前へ→

【11910】Re:ファイルの印刷について
回答  みーちゃん  - 04/3/18(木) 15:59 -

引用なし
パスワード
   ▼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

1 hits

【11864】ファイルの印刷について みーちゃん 04/3/17(水) 18:32 質問
【11867】Re:ファイルの印刷について IROC 04/3/17(水) 21:09 回答
【11881】Re:ファイルの印刷について みーちゃん 04/3/18(木) 11:12 回答
【11882】Re:ファイルの印刷について IROC 04/3/18(木) 11:33 回答
【11905】Re:ファイルの印刷について みーちゃん 04/3/18(木) 15:19 回答
【11906】Re:ファイルの印刷について IROC 04/3/18(木) 15:41 回答
【11910】Re:ファイルの印刷について みーちゃん 04/3/18(木) 15:59 回答
【11916】Re:ファイルの印刷について IROC 04/3/18(木) 16:37 回答
【11923】Re:ファイルの印刷について みーちゃん 04/3/18(木) 17:30 質問
【11926】Re:ファイルの印刷について IROC 04/3/18(木) 18:18 回答
【11929】Re:ファイルの印刷について みーちゃん 04/3/18(木) 18:46 お礼

69340 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free