| |
>・ダイヤログで保存をクリック→テキストファイルは生成され、Excelファイルは 保存せずに閉じる。
>・ダイヤログでキャンセルをクリック→テキストファイルは生成されず、Excelフ ァイルは閉じない。
これだとこんな感じになるんですけど、違うんですよね？
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 "保存がキャンセルされました。"
Else
Rows("1:1").Delete Shift:=xlUp
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
Close #1
ThisWorkbook.Close (False)
'Workbooks("XXXXX").Close (False) '取りあえず
End If
End Sub
|
|
Jaka
- 06/7/10(月) 11:48 -
