|
▼Jaka さん:
>>Excel97だと問題があると言うことですね?
>>なるほど・・、って、持っていないので確認はできませんが・・・。
>えっと、97だけじゃないです。
>Excel2000でもそうです。
>たぶん、2002以降でもそうじゃないかと思います。
>
>1度、コードネームを変更後、保存して開いてみてください。
>壊れて開かないと思います。
win98 & Excel2000 SP-3
Win2000 & Excel2002 SP3
の両方で試しました。
'====================================================
Sub test()
With Workbooks.Add
.Worksheets(1).Range("a1:j10").Value = "aaa" 'とりあえず、何か入力して・・
With .VBProject
.VBComponents(2).Name = "sht1"
End With
.SaveAs ThisWorkbook.Path & "\renmtest1.xls"
.Close False
MsgBox "ok"
End With
DoEvents
Workbooks.Open ThisWorkbook.Path & "\renmtest1.xls"
End Sub
Excel2002では、セキュリティは解除して確認しました。
コードで言うrenmtest1.xlsは、正常に開けましたよ!!
保存や再オープンの箇所をコードではなく、手動操作で行っても
結果は同じでした。
ご覧のような簡単なコードでしか確認はしていませんけどね!!
|
|