- 55 名前：デフォルトの名無しさん [2009/10/03(土) 21:09:02 ]
- よろしくお願いします。この場合XLSM形式で保存する場合はどこに＆”.xlsm”を書き足したらいいのですか？
If tmpSheet.Range("B" & r).Value <> tmpSheet.Range("B" & r + 1).Value Then '次のB列の値が違っていたら
book.SaveAs dataFolder & "\" & tmpSheet.Range("B" & r).Value '集計ブックを作業シートのB列の値(シート名)で保存
book.Close False '集計ブックを閉じる
isOpen = False '集計ブックが開いているかフラグを閉じているにする
End If
