シート名を取得して保存するVBA
業務フローをEXCELを描くことがよくありますが、そのとき ご丁寧にもシート名に業務を書いてくださっている方が いらっしゃいます。 んで、業務一覧をまとめたいときに一々転記するのもかったるいんで VBAでシート名を取得して一覧にするやつを組みました。 ファイルを読み込んで、保存するだけのいたってシンプルなものです。 例のごとくエラー制御は甘いままです。(いいかげん鍛えないと・・・) フォーム側( ボタンを1個作る) ----------------------------------------------------------- Private Sub btn_getSheetName_Click() 'refer ' http://officetanaka.net/excel/vba/tips/tips154.htm ' http://www.moug.net/tech/exvba/0060013.html ' http://vbaexcel.seesaa.net/article/148313379.html ' http://officetanaka.net/excel/vba/file/file02.htm ' http://excelvba.pc-users.net/func/func4.html ' ' EXCELブックからシート名を取得して別のEXCELに出力する ' Dim getFile As Variant Dim setFile As Variant Dim retVal As String '処理時間計測用 Dim startTime As Date Dim endTime As Date startTime = Now ChDir CurDir 'カレントディレクトリ '抽出対象と保存対象を読出 getFile = Application.GetOpenFilename("EXCELファイル(*.xls),*.xls, EXCELファイル(*.xlsx),*.xlsx