Excel VBA質問箱 IV

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

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


72929 / 76738 ←次へ | 前へ→

【8292】FileFormatですか
回答  しのしの  - 03/10/7(火) 16:03 -

引用なし
パスワード
   >結果、思いもしなかった原因が判明し、新たに頭を悩ませる事になりました。
>原因は「コピー元のファイル」のバージョン違いでした。
>開発は'97で行っているのですが、サンプルで貰った元ファイルが2000で
>作成されたものだったようです。
>今後、これを事前に判別するのが課題となります。

dim bkA as Excel.Workbook
dim strC as string

If bkA.FileFormat = xlExcel9795 Then
  bkA.SaveAs Filename:=strC, fileFormat:=xlExcel9795
ElseIf 

って感じで保存してみれば、どうでしょう?(97で保存する場合)
詳しくは、SaveAsメソッドのヘルプをご覧ください。


>>たとえば、"データ操作"中に、開いているブックのオブジェクトを取得しているのに、
>>きちんと、参照解放せぬままCLOSEしようとしていませんか?
>
>変種処理は処理毎にFunctionを作成しているのですが、
>解放ロジックは必要なのでしょうか?
Function内だけで使用する変数なら、特に参照解放する必要もないのですが、
クラスや、モジュールの内部変数の場合は、必要です(と思います)


>>#ブックのシートを参照設定しておいて、その解放がきちんとされていない。
>
>この参照設定の解放というのは、何をすれば良いのでしょうか。

set Sh =Nothing
だけでOKです。

>以下、検証詳細です。
>
>コピー元のファイルにはマクロ(コマンドボタン/処理は軽いもの)や
>セル式が埋め込まれたものですが、サイズは240kb程度です。
>シンプルにOpen→SaveAs→Closeとした場合にも処理ができなかったので、
>コピー元ファイルを適当な新規ブックで実行してみたところ、処理が成功しました。
>
>次に、問題のファイルを使用して、Saveの直前に
>Application.DisplayAlerts = True
>と記述し、システムのメッセージを表示させたところ、
>「このエクセルは最新版のExcelで作成されました」のメッセージが・・・。
>このメッセージに対して、手動で「はい」を押下すれば正常に保存され、
>「いいえ」を押下するとCloseされずに開いたままです。
>処理の最初に
>Application.DisplayAlerts = False
>を記述したので、「いいえ」を押下したのと同じ状態で処理が中断されたようです。

まさに、fileFormatによるもののようですね。
ご確認ください。
これで解決したらいいですね。

0 hits

【8210】メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 19:46 質問
【8211】Re:メッセージボックス出力と同様のイベントとは? INA 03/10/3(金) 19:54 回答
【8212】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 20:10 質問
【8213】Re:メッセージボックス出力と同様のイベントとは? Kein 03/10/3(金) 20:50 回答
【8214】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 21:26 質問
【8217】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/3(金) 22:23 回答
【8220】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/4(土) 0:55 発言
【8225】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/4(土) 19:10 回答
【8259】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/6(月) 12:06 お礼
【8273】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/6(月) 18:15 回答
【8275】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/6(月) 19:52 発言
【8277】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/6(月) 21:08 回答
【8287】bykinさんに一票 しのしの 03/10/7(火) 12:29 回答
【8291】Re:bykinさんに一票 初心者 03/10/7(火) 15:05 質問
【8292】FileFormatですか しのしの 03/10/7(火) 16:03 回答
【8293】サンプル変でしたね。すいません。 しのしの 03/10/7(火) 16:07 回答
【8300】Re:サンプル変でしたね。すいません。 初心者 03/10/7(火) 19:09 お礼

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