|
いつもお世話になっております。
今回も大変困っておりますので、どなたかお助けください。
エクセルのデータを指定した場所にテキストファイルで
保存をするマクロをこちらの掲示板で教えて頂きました。
望んでいた結果はほぼ得られたのですが、保存ダイアログ
の画面で「キャンセル」または×ボタンで閉じた場合、
メッセージボックスだけを表示させ、画面は動かないように
したいのです。
下のコードですと、メッセージボックスが表示された後、
終了してしまいます。
保存ボタンを押したときは、データの1行目を削除した後
テキストに保存して、終了してほしいのですが、
キャンセルボタンを押したときは画面はそのままにしたいのです。
どの部分を修正すれば、結果が得られるでしょうか?
goto labelなどを使ってもだめでした。
--------------------------------------------------ここから
Sub エクスポート()
'[txtファイルへ書き出し]
Dim C As Range
Dim SAry As Variant
Dim Buf As String
MyF = Application.GetSaveAsFilename("telbook", "txt ファイル (*.txt), *.txt")
If MyF = False Then
MsgBox "保存がキャンセルされました。"
Exit Sub
Else
Rows("1:1").Select
Selection.Delete Shift:=xlUp
If MyF <> "" Then
Open MyF For Output Access Write As #1
For Each C In Range("A1", Range("A65536").End(xlUp))
With WorksheetFunction
SAry = .Transpose(.Transpose(C.Resize(, 9).Value))
End With
Buf = Join(SAry, ",")
Print #1, Buf
Erase SAry
Next
End If
Close #1
End If
End Sub
-----------------------------------------------ここまで
|
|