エクセルの保存で。

質問

xls形式で保存したあとに、csv形式で保存するVBAを作りました。
csv形式で保存するときは指定したディレクトリ「c」を
表示してくれるのですが、
xls形式のときは実行時のカレントを指定しまいます。
なぜでしょう？？？

Sub filehozon()

Dim MyFileA 'As String
MyFileA = "c:\test"

'xls形式保存
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=1

Sheets(2).Copy
Application.DisplayAlerts = False

'csv形式保存
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=6
ActiveWindow.Close

Application.DisplayAlerts = True

End Sub

回答No.2

noname#3778 · ベストアンサー

こんばんは。

この記述だとXLS形式で保存するときは前回保存したカレントを表示してしまいます。

#1が成功したように思えたのはたまたま前回保存したときがCだったのでしょう。

CSV形式だとＯＫなのは新規でCSVシートを作成しているからだと思いますよ。

同じようにXLSで保存するときも新規でbookを作成して
そこに保存するような形にすれば問題ないと思います。

それかXLSで保存する前に一度カレントドライブを指定して保存するとかね。二度手間ですが記述上の手間だけですので試してみてくださいね。

お礼

ありがとうございました！！！　エクセル分をコピーしたらうまくいきました。　VBAの熟練者はやはりちがいますね！素人さんとの回答とは差がでます。　鮮やかなお手並みに感動しました。丁寧な回答も嬉しく思います。　またよろしくお願いします。

回答No.1

imogasi

答えではないのですが、
私がやって見ると、どちらも「指定したディレクトリ「c」を表示してくれ」ました。
そういう点を踏まえて、この問題を考えられては。

補足

私も何度も試して、他の人にも試してもらいましたが
やはりダメでした。設定等の違いでしょうか？