エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27302 for マクロ (0.015 sec.)

[[20130118215809]]: #score: 2167; @digest: 001040b1d0f0abf986900974b9d64e94; @id: 61258; @mdate: 2013-01-20T11:00:05Z; @size: 3658; @type: text/plain; #keywords: 出lo (13180), ロ専 (12544), 刷ac (12397), 出do (12185), 白値 (6620), きブ (5090), fname (4440), mypath (3675), ロブ (3584), くac (3257), ォル (2839), ルダ (2432), ブッ (2285), ー内 (2192), フォ (1992), 印刷 (1757), ルブ (1695), activeworkbook (1427), 記マ (1386), マク (1146), printout (1127), screenupdating (1078), ック (1070), クロ (1030), 専用 (1020), 刷す (994), 抽出 (971), じフ (943), 出が (922), を印 (844), 象外 (735), 返る (723); 『マクロについて』（かお）
簡単なマクロは利用可能ですが、質問させて頂く事はできない為ご指導をお願いします。フォルダー内に全く同じ表が30個あります。印刷する時等何時もひとつひとつエクセルを開いて印刷しています。保存をして終了した後にマクロ等を利用し自動で開いて印刷した後に終了、若しくは開かないまま全てを印刷をする事が出来ないでしょうか? 宜しくお願いします。エクセルのバージョンは「Excel2003,Windows 7」です。 ---- 一例最初にダイアログが出るのでフォルダを選ぶ。 Sub Samle() Dim myPath As String Dim fName As String Dim sh As Worksheet '最初にフォルダを選択 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then Application.ScreenUpdating = False myPath = .SelectedItems(1) & "¥" '選ばれたフォルダ fName = Dir(myPath & "*.xls") 'そのフォルダからエクセルブックを抽出 Do While Len(fName) > 0 '抽出が終わると空白値が返る Workbooks.Open myPath & fName 'ブックを開く ActiveWorkbook.PrintOut '印刷 ActiveWorkbook.Close False 'ブックを閉じる fName = Dir() '次のブックを抽出 Loop Application.ScreenUpdating = True End If End With End Sub (ぶらっと) ---- (ぶらっと)様有難うございます。普段利用しているマクロは開いているブック内でソート等を行っています。 マクロ実行も各々のブックに表示しています。上記の分は最初に開いたブックのエクセルで上記マクロをコピーさせて頂き進めて行けば良いのでしょうか? 最後に全部を印刷し、最初の分にマクロ終了で大丈夫なのでしょうか? どのタイミングで、上記マクロを利用すればよいのか解らずお尋ねします。宜しくご指導お願いします。（かお） ---- フォルダにある印刷すべきブックとは別の新規ブックにマクロ専用ブックとしてマクロを書いてね。で、このマクロブックを開いてマクロを実行すると一連の処理を行うというもの。・このマクロブックを印刷すべきフォルダと同じ場所に保存する運用なら、フォルダ指定は不要で自動的にマクロブックと同じフォルダから抽出することも可能。ただし、この場合はすでに開かれているこのマクロブックは対象外にしなければいけないので、そこも少しコードを変更することが必要。とりあえずアップしたコードを試すなら、印刷すべきブックがあるフォルダとは別のフォルダに保存してね。 (ぶらっと) ---- もし、この新規マクロブックを印刷すべきブックがあるフォルダと同じフォルダに保存するなら以下。フォルダを選ぶダイアログはださず、自動的に印刷すべきブックを抽出して印刷を行う。 Sub Samle2() Dim myPath As String Dim fName As String Dim sh As Worksheet Application.ScreenUpdating = False myPath = ThisWorkbook.Path & "¥" fName = Dir(myPath & "*.xls") 'そのフォルダからエクセルブックを抽出 Do While Len(fName) > 0 '抽出が終わると空白値が返る If fName <> ThisWorkbook.Name Then '自分自身でなければ Workbooks.Open myPath & fName 'ブックを開く ActiveWorkbook.PrintOut '印刷 ActiveWorkbook.Close False 'ブックを閉じる End If fName = Dir() '次のブックを抽出 Loop Application.ScreenUpdating = True End Sub (ぶらっと) ---- (ぶらっと) 様ご丁寧に有難うございます。同じフォルダー内にエクセルを開きマクロ専用にすれば良いとのことですね。上記、同じフォルダー内にマクロで是非確認します。又、色々ご質問させて頂く事があると思いますのでその節は宜しくお願い致します。（かお） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201301/20130118215809.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ