ダイアログボックス

質問

VB6.0で開発しています。
下記のようにして名前を付けて保存]ダイアログボックスを使って
保存しようと思っているのですが
ダイアログボックスが開くとファイル名のところに:が表示されており
:のままでキャンセルを押すとFalse.xlsという名前でマイドキュメントに保存されてしまいます。何が原因なんでしょうか？
お願いします。
exl.Sheets(1).Name = "Sheet1"
exl.Application.Visible = True
fnm = Application.GetSaveAsFilename(fileFilter:="Excel ファイル (*.xls), *.xls")
exl.SaveAs fnm

回答No.2

himajin100000 · ベストアンサー

訂正

>ちなみに[名前を付けて保存]ダイアログにFalseと入力した場合False.xlsというファイルが作成されるようだ。

ファイルパスの文字列が返り値になるためで，たとえばデスクトップの場合
C:\Documents and Settings\<ユーザー名>\デスクトップ\False.xls
というフルパスが返るからのようだ。(Msgbox関数で戻り値を調べた)

お礼

ありがとうございます。
ご指摘の通りやったらうまくいきました。
またよろしくお願いします。

回答No.1

himajin100000

VB6.0を持ってないのでExcel VBAで話をします。

Option Explicit

Sub hoge()
Dim fnm As String

Sheets(1).Name = "Sheet1"
Application.Visible = True
fnm = Application.GetSaveAsFilename(fileFilter:="Excel ファイル (*.xls), *.xls")
SaveAs fnm

End Sub

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbaxl10/html/xlmthGetSaveAsFilename.asp

>ユーザーによって選択または入力されたファイルの名前とパス名を返します。【入力が取り消された場合には False が返されます。】

>このメソッドを実行することによって、カレント ドライブやカレント フォルダが変更される可能性があります。

多分False→文字列"False"への暗黙の型変換が起こったんじゃないかと

Sub hoge()
Dim fnm As Variant

Sheets(1).Name = "Sheet1"
Application.Visible = True
fnm = Application.GetSaveAsFilename(fileFilter:="Excel ファイル (*.xls), *.xls")
If fnm <> False Then

SaveAs fnm

End If

End Sub

とかすることでFalseのときにファイルを作成させないことが可能となる。ちなみに[名前を付けて保存]ダイアログにFalseと入力した場合False.xlsというファイルが作成されるようだ。