タイトル : Re^2: Excelが解放されない 投稿日 : 2010/07/09(Fri) 10:54 投稿者 : rgnoo
魔界の仮面弁士さん、早速のご回答ありがとうございます。 ご指摘頂きました部分のコードを作り直し、動作確認したいと思います。 さて、ご指摘頂きました内容でわからない所がありました。 教えていただけませんでしょうか。 > > Set xlSheet = xlBook.Worksheets(L_Value) > > xlBook.Sheets(L_Value).Select '対象L値のシート選択 > L_Value というのが、シート名を表す文字列なのか、シート番号を示す自然数なのか > 読み取れませんでしたが、恐らく、ここでいう xlBook.Worksheets(L_Value) と > xlBook.Sheets(L_Value) は、同じシートを表しているのですよね? > > 同じシートならば、最初に取得した xlSheet 変数を使って制御するようにすべきです。 はい。同じシートをしめしております。 申し訳ございません。「xlSheet 変数を使って制御する」というのは、 Set xlSheet = xlBook.Worksheets(L_Value)だけで、シートの選択はできており、 このコードのみでよいということでしょうか? > > fsoFolCop.CopyFolder "\\Kq-001\工程集計\原紙ファイル\Ppk管理図(原紙)", _ > > "\\Kq-001\工程集計\工程不良集計\Ppk集計" & "\" > > Name "\\Kq-001\工程集計\工程不良集計\Ppk集計" & "\" & "\Ppk管理図(原紙)" _ > > As "\\Kq-001\工程集計\工程不良集計\Ppk集計" & "\" & "\Ppk管理図" & Gouki > 間違いではありませんが、この部分、やや統一性が無いように見えました。 > > コピーは FileSystemObject で行っているのに、名前変更は FileSystemObject を使わず、 > Name ステートメントを使っていますね。Name プロパティを使った方が良いのではないでしょうか。 申し分けございません。 Name プロパティを使ったコードはどのようになるのか教えて頂けませんでしょうか。 お忙しい所誠に恐縮ですが、以上よろしくお願い致します。 |