[[20170322125515]]　『セルの値で指定のファイルに保存』（にくにく）　ページの最後に飛ぶ

『セルの値で指定のファイルに保存』（にくにく）

 セルZ2の名前で保存が下のマクロだとWindows 7は動くのですがWindows XP ではとまってしまいます。何を治したらいいのでしょうか？

 X = Range("Z2").Value
    ActiveWorkbook.SaveAs Filename:= _
        "\\ps1-90hd191\お気に入り\明細票\" & X & ".xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 xl2003は、もう手元にないのですが、FileFormat:=xlExcel8 これが認識されないのではないでしょうかね。

 xl2003環境で

 Sub Test()
    MsgBox xlExcel8
 End Sub

 を実行してみてください。認識されれば 56 が表示されるはずです。

 で、xl2003専用になってしまいますが

     ActiveWorkbook.SaveAs Filename:= _
        "\\ps1-90hd191\お気に入り\明細票\" & X & ".xls"

 これだけにすると、どうなりますか？

（ β） 2017/03/22(水) 13:08

 ありがとうございます☆
　おかげさまでできました。助かりました。
（にくにく） 2017/03/22(水) 18:34

コメント返信：

[ 一覧(最新更新順) ]

[[20170322125515]] 『セルの値で指定のファイルに保存』（にくにく） ページの最後に飛ぶ

[[20170322125515]]　『セルの値で指定のファイルに保存』（にくにく）　ページの最後に飛ぶ