エクセルファイルをフロッピーに保存するマクロで教えて下さい
今、フロッピーにファイルを保存する為のマクロを創っているのですが
ワイルドカードの使い方を教えて下さい
ここから*****
Sub フロッピー保存()
'
'
Dim fNAME As String
fNAME = ActiveWorkbook.Name 'アクティブなブックのファイル名を取得
'ファイルが新規に作成された場合の処理(book1,book2等と成っている場合)
If fNAME = "Book*" Then
fNAME = Application.InputBox(prompt:="新規ファイルですね。ファイル名を入力して下さい", _
Title:="新規ファイル入力", Type:=2)
Else
ActiveWorkbook.Save
End If
'取得したファイル名でフロッピーディスクに保存
ActiveWorkbook.SaveAs Filename:="A:\"&fNAME, _
FileFormat:=xlNormal, _
Password:="",WriteResPassword:="",ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
ここまで*****
>>'ファイルが新規に作成された場合の処理(book1,book2等と成っている場合)
>> If fNAME = "Book*" Then
この、If fNAME = "Book*" Then が有効に働いていないみたいなんです。
「ワイルドカード・・・* や ? はマクロではどの様な書式が正しいのでしょう
それと、エラー処理なんですが
InputBoxメソッドでキャンセルやファイル名を入力しないで「OK]が押された
場合の処理、又フロッピーが挿入されていなかった場合などの
エラー処理の対処法を教えて下さい
お礼
きゃ~!でなくなりました!!! すごくすごく嬉しいです!!! ほんとにこんなに無知な女にとても親切に丁寧に最後まで指導してくださいましてありがとうございました。 回答を読んだだけで涙が出そうに嬉しくって、しかも解決できて、ひとり残った会社で「やったー!!!」と叫んでしまいました。この感謝の気持ちをどう文章にしていいのやら。 本当にありがとうございました。 ひとりでおおはしゃぎしてすみません・・・。 「まだ解決してなかったりして・・・」と少し思いつつも、これだけしていただいただけで充分です。 さいごにもう一度だけ、本当にありがとうございました。