これ何て呼びますか

すいません。教えてください。
Vista PCエクセル2007で保存したファイルが、XP PCエクセル2003で見ると文字化けしてしまうのですが、どこがいけないのか教えてください。
Sub 保存シートの名前を付けて保存()
' シート保存 Macro
'***このマクロは見積もり番号と件名を保存ファイル名にし保存します。***

Dim Answer3
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant

Answer3 = MsgBox("本当に保存しますか?", vbYesNo)
If Answer3 = vbNo Then
MsgBox ("キャンセルしました。")
Exit Sub
End If

Sheets("保存シート").Select
Application.CutCopyMode = False
Sheets("保存シート").Copy

既定ファイル名 = Range("V7")
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名, "Excel 97-2003ブック, *.xls")
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
ActiveWorkbook.Close (False)
Else
ActiveWorkbook.SaveCopyAs 保存ファイル名
ActiveWorkbook.Close (False)
End If
End Sub

よろしくお願いします。

A 回答 (3件)

マクロの訂正の質問として、持ち出すのでなく、2007で、それ以前のファイル形式と比べて変更が行われたとか


http://office.microsoft.com/ja-jp/products/HA101 …
http://www.microsoft.com/downloads/details.aspx? …
、XML形式の保存が可能になった
http://office.microsoft.com/ja-jp/help/HA1000693 …
http://www.microsoft.com/downloads/details.aspx? …
とか
を知って、どうしたらよいか考える必要があると思う。
ーーー
下記の
>Office Excel 2007 で保存されたブックを以前のバージョンの Excel で確実に開けるよう、Excel 2007 では、Excel 97-2003 (.xls) と完全に互換性のあるコピーを保存できます。
http://office.microsoft.com/ja-jp/excel/HA100141 …
など
旧形式で保温する選択があるということ。
ーー
まず別途ファイルのオープンだけのコードを作って、実行し、実際に適切に開いた、データを元にして、この質問のコードの適否(エラーが出るのか、処理が思い通りか)を考えるのが筋と思うが。
ーー
OSのバージョンとエクセルのバージョンをゴッチャにしているような質問の表現も気になる。OSが関係する問題かどうかは、VBAではあまりOSが問題になる領域までは出くわさないと思う。
上記ファイル形式の変更の点はエクセル2007出現で、有名な問題になり、2007ユーザーには、だいぶ周知されてきているはずだが。
    • good
    • 0
この回答へのお礼

勉強になりました。
ありがとうございました。

お礼日時:2008/07/16 23:24

互換機能パックはインストールされていますか?



参考URL:http://www.microsoft.com/downloads/details.aspx? …
    • good
    • 0
この回答へのお礼

インストールしていませんでした。
インストールしてエクセル2007で保存するときに、(既定ファイル名, "Excel 97-2003ブック, *.xlsx")にしたら、エクセル2003でも見ることができました。
ありがとうございます。

お礼日時:2008/07/16 23:22

マクロの解析は出来てませんが、タイトルに書かれてるように「読み取れない」のですか?それとも、本文のように文字化けしてるのですか??


現象についての補足をお願いします。

この回答への補足

エクセル2007で先ほどのマクロで保存すると、2007では開くときに”ファイル拡張子が開くときに示す形式とは異なります。このファイルを開く前にファイルが破損していないこと、信頼できる発行元からのファイルであることを確認してください。”と警告メッセージが出ますが、”はい”を選択すると開けます。
エクセル2003で開くと、文字化けしています。

補足日時:2008/07/16 14:52
    • good
    • 0
この回答へのお礼

すいません。
解決しました。
ありがとうございました。

お礼日時:2008/07/16 23:26

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!