|
▼Kein さん:
有難うございます。大変助かります。
申し訳ないのですが、エクスポートを実行する
ときは、Excelファイルは保存せずに自動的に
閉じるようにしたいと思っています。
教えていただいたファイルですと、「キャンセル」
と「保存」どちらもExcelファイルが閉じなくなって
しまう様ですが、、
お手数お掛けしますが、宜しくお願いいたします。
>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)
> 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
>End Sub
>
>で、どうでしょーか ?
|
|