Excel VBA質問箱 IV

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

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


50873 / 76738 ←次へ | 前へ→

【30747】Re:sheetの番号変更
発言  ichinose  - 05/11/4(金) 12:20 -

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

0 hits

【30726】sheetの番号変更 フレッツ 05/11/4(金) 4:07 質問
【30728】Re:sheetの番号変更 だるま 05/11/4(金) 7:21 回答
【30729】Re:sheetの番号変更 ichinose 05/11/4(金) 8:05 発言
【30734】Re:sheetの番号変更 Jaka 05/11/4(金) 9:31 発言
【30739】Re:sheetの番号変更 ichinose 05/11/4(金) 10:50 発言
【30743】Re:sheetの番号変更 Jaka 05/11/4(金) 11:39 発言
【30747】Re:sheetの番号変更 ichinose 05/11/4(金) 12:20 発言
【30753】Re:sheetの番号変更 Jaka 05/11/4(金) 14:03 発言
【30762】Re:sheetの番号変更 フレッツ 05/11/4(金) 14:51 質問
【30772】Re:sheetの番号変更 Jaka 05/11/4(金) 15:37 回答
【31040】Re:sheetの番号変更 Hirok 05/11/9(水) 19:51 回答
【30789】Re:sheetの番号変更 ichinose 05/11/4(金) 18:20 発言
【31026】Re:sheetの番号変更 Jaka 05/11/9(水) 14:45 発言

50873 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free