| |
それならダイアログでキャンセルしたとき、保存を中止する選択をした場合は、
即座にエクセルを閉じて終了するようにすればいいのかな・・?
こんなコードになりますが・・。
Sub エクスポート()
'[txtファイルへ書き出し]
Dim Ans As Integer
Dim C As Range
Dim SAry As Variant
Dim Buf As String
Do
MyF = Application _
.GetSaveAsFilename("telbook", "txt ファイル (*.txt), *.txt")
If MyF = False Then
Ans = MsgBox("テキストの保存を中止しますか", 36)
If Ans = 6 Then GoTo ELine
End If
Loop While Ans = 7
If MyF <> "" Then
Open MyF For Output Access Write As #1
For Each C In Range("A2", Range("A65536").End(xlUp))
With WorksheetFunction
SAry = .Transpose(.Transpose(C.Resize(, 9).Value))
End With
Buf = Join(SAry, ","): Print #1, Buf: Erase SAry
Next
Close #1
End If
ELine:
ThisWorkbook.Close False
End Sub
|
|
Kein
- 06/7/6(木) 20:15 -
