| 投稿日 | ： 2007/07/28(Sat) 10:24 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: エクセルがタスクマネージャに残ってしまいます。 |
> Public DataPath , TargetFilePath , DefaultSheetName As String
DataPath や TargetFilePath に As がありません。
この場合、これらは既定のデータ型(初期設定では Variant)になってしまいます。
> 4. Set xlApp = CreateObject("Excel.Application")
こっちで呼ぶなら、Excel を参照設定する必要は無いかも。
参照設定を外して、変数を As Object に変更した場合はどうなりますか?
> 1. For Each ObjSheet In xlApp.Worksheets
これだと、どのブックのシートなのかが曖昧になってしまうような。
xlApp ではなく、xlBook の方を使うべきかと。
> For〜xlBook.Worksheetsや単にFor〜Worksheetsなどに変えてみてもダメでした。
For Each 〜 Next を For 〜 Next に変えてみるとどうですか? そうすれば、
> 2. SheetNum = SheetNum + 1
> 3. IF SheetNum > 6 Then
シート数は Count プロパティで取れるので、ここでカウントする必要が無くなるかと。
> 4. 処理
この部分に問題があるという可能性はありませんか?