注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
>これを楽に行なう方法はありませんでしょうか?? アクティブなブックのモジュールを任意のフォルダ以... >これを楽に行なう方法はありませんでしょうか?? アクティブなブックのモジュールを任意のフォルダ以下にブック名フォルダを作成して一括書き出しを行うプログラムです。 他人が作った物の改変等を行っているので、バックアップ目的に使っています。 Sub Module書出() ' VBA モジュールの書き出し Dim Project, objxl As Object Dim DirName As String Const Path As String = "C:\tmp\" MkDir Path For Each objxl In Application.Workbooks DirName = Path & Left(objxl.Name, Len(objxl.Name) - 4) & "\" MkDir DirName For Each Project In objxl.VBProject.VBC
2011/04/11 リンク