VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/02/22(Thu) 17:54
投稿者： こんにちは
Ｅメール：
ＵＲＬ：
タイトル： 内容が変わりますがもうひとつあります

Blueさんありがとうございます。

もう１点質問があります。
逆引きヘルプ一覧集の中の
VBからエクセルを操作する（その１）
を参考にプログラムを作成しています。

私自身で下記を追加しました。

'ファイルを読み込み済みフォルダへ保存
   'フォルダが存在しているかどうか確認する
    If hFso.FolderExists(c:\) = True Then
        ' ファイルが存在しているかどうか確認する
        If hFso.FileExists(gudtFilePath.Don & "\aa" & strForm & strTo & ".xls") = True Then
            strMsg = MsgBox("同じ名称のファイルが存在します。上書きしますか？", vbYesNo)
                If strMsg = vbYes Then
                    ActiveWorkbook.Save
                    strMsg = MsgBox("正常終了しました", vbOKOnly)
                Else
                    activexlSheet.Close
                End If
        Else
            xlSheet.SaveAs FileName:=gudtFilePath.Don & "\aa" & strForm & strTo & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            strMsg = MsgBox("正常終了しました", vbOKOnly)
        End If
    Else
        MsgBox ("異常終了しました。ログファイルを確認してください")
        activexlSheet.Close
    End If

以上の処理は問題ないのですが
最後に「Microsoft Excel」から保存を求められるダイアログが出てきます。
自作で保存処理をしているので必要ありません。
回避できる手段がありましたらよろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -