| |
どもども。
再び、つなぎのつんです（＾＾;
>横から失礼しあｍす。
すごいタッチミスですね(>_<)
ちょっと時間があったので、いろいろ見てたのですが・・・
また気になったところが。
>>Public Sub Excel_macro()
↓この変数使ってないですよね？
>> Dim obExcel As Object 'Excelオブジェクト
>> Dim lBookNumber As Long 'ブック数カウント
>> Dim wkbbuff As Workbook 'バッファ
>>
>>10
>> 'ブック数カウントを初期化する
>> lBookNumber = 0
>> 'ワークブック数分ループする
>> For Each wkbbuff In Workbooks
>> '他のブックの名前が取得できる場合(他のブックがオープンできる場合)
>> If Application.Windows(wkbbuff.Name).Visible = True Then '★
>> 'ブック数カウンタをインクリメントする
>> lBookNumber = lBookNumber + 1
>> End If
>> Next wkbbuff
>>20
>> '他のブックが既に開かれている場合
>> If lBookNumber > 1 Then
>> '警告メッセージオフにする
↓警告メッセージオフにしてますが、適当なところで
オンに戻さないと・・・
>> Application.DisplayAlerts = False
>> 'アプリケーションをクローズする
>> ActiveWorkbook.Close
>> End If
>>
>> 'ワークブックを作成する
>> Set wkbWorkBook = Workbooks.Add
>
↓ここで、
wkbWorkBook.SaveAs (ThisWorkbook.Path & "\テスト.xls")
のように、ファイル保存してみました。
そしたら、２回目以降はエラーになりませんでした。
しかし、２回目以降は、「テスト.xls」がアクティブになってるので、
開いているブックが２つ以上ある場合に閉じられるブックは
１回目のブックとは違ってきてますが、そんでええんですか？
>> wkbWorkBook.Worksheets(Sheet1.Name).Activate
>>
>> Exit Sub
>>End Sub
>
何度も失礼します。
ところで、ぴかるさん、おひさしぶりです〜＾＾
|
|
つん
- 04/11/25(木) 14:05 -
