Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50867 / 76732

←次へ　｜　前へ→


	【30747】Re:sheetの番号変更

ichinose - 05/11/4(金) 12:20 -


	引用なし

	パスワード

▼Jaka さん：

>>Excel97だと問題があると言うことですね？
>>なるほど・・、って、持っていないので確認はできませんが・・・。
>えっと、97だけじゃないです。
>Excel2000でもそうです。
>たぶん、2002以降でもそうじゃないかと思います。
>
>１度、コードネームを変更後、保存して開いてみてください。
>壊れて開かないと思います。

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は、正常に開けましたよ！！
保存や再オープンの箇所をコードではなく、手動操作で行っても
結果は同じでした。
ご覧のような簡単なコードでしか確認はしていませんけどね！！

0 hits

▼

【30726】sheetの番号変更 ﾌﾚｯﾂ 05/11/4(金) 4:07