Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


45207 / 76732 ←次へ | 前へ→

【36527】エラーっぽいのですが
質問  春まき  - 06/4/2(日) 14:32 -

引用なし
パスワード
   >念のため、ブック存在の有無もチェックした法がいいかもしれませんね。
>
> If Dir(Fmei) <> "" Then
>  MsgBox "既に存在するブックです。"
> Else
>  '名前を付けて保存する処理
> End If
========================
以下のように書きました
  Dim Fmei As String
  If Dir(Fmei) <> "" Then
  MsgBox "既に存在するブックです。"
  Else
 Fmei = ThisWorkbook.Path & "\" & "ABCD" & _
      Worksheets("○○").Range("A80").Value & "月.xls"
 ActiveWorkbook.SaveAs Filename:=Fmei
     End If
End Sub


ところがブックがあってもなくても 「MsgBox "既に存在するブックです。"」
が出てしまい翌月ファイルを作ってくれません。
どこかおかしいでしょうか?
IF文を使わなければ翌月ファイルを作ってくれる所まではこぎつけました
7 hits

【36507】翌月ファイルを作りたい 春まき 06/4/2(日) 11:58 質問
【36508】Re:翌月ファイルを作りたい ぱっせんじゃー 06/4/2(日) 12:08 発言
【36509】Re:翌月ファイルを作りたい ぱっせんじゃー 06/4/2(日) 12:09 発言
【36510】Re:翌月ファイルを作りたい ぱっせんじゃー 06/4/2(日) 12:14 発言
【36511】Re:翌月ファイルを作りたい かみちゃん 06/4/2(日) 12:19 発言
【36512】お礼とブックの閉じ方 春まき 06/4/2(日) 12:37 お礼
【36515】Re:お礼とブックの閉じ方 ぱっせんじゃー 06/4/2(日) 12:59 発言
【36517】説明不足でした 春まき 06/4/2(日) 13:09 質問
【36519】Re:説明不足でした ぱっせんじゃー 06/4/2(日) 13:18 発言
【36520】Re:説明不足でした かみちゃん 06/4/2(日) 13:18 発言
【36521】Re:説明不足でした 春まき 06/4/2(日) 13:28 発言
【36522】Re:説明不足でした ぱっせんじゃー 06/4/2(日) 13:31 発言
【36527】エラーっぽいのですが 春まき 06/4/2(日) 14:32 質問
【36529】Re:エラーっぽいのですが かみちゃん 06/4/2(日) 14:36 発言
【36531】解決できました 春まき 06/4/2(日) 14:56 お礼
【36524】Re:デスクトップパスの取得方法 かみちゃん 06/4/2(日) 13:45 発言

45207 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free