|
こんばんは。
>はじめまして。VBA初心者です。
>
>エクセルシートの任意箇所をテキストファイル化したいのですが、
>VBAでどのようにやればよいかわかりません。
>ご存知の方いらっしゃいましたら、ご教授願います。
一例ですが、Excelの保存機能を使うと
標準モジュールに
'===========================================================
Sub main()
Const flnm = "D:\My Documents\mktxtsamp.txt"
' ↑適当な名前に代えてください
Dim rng As Range
Dim wkbk As Workbook
On Error Resume Next
Set rng = Selection
If Err.Number = 0 Then
If rng.Areas.Count = 1 Then
Set wkbk = Workbooks.Add
rng.Copy wkbk.Worksheets(1).Range("a1")
Application.DisplayAlerts = False
wkbk.SaveAs flnm, FileFormat:=xlText
wkbk.Close False
Application.DisplayAlerts = True
End If
End If
On Error GoTo 0
End Sub
選択しているセル範囲(エリアはひとつのみ)をタブ区切りのテキストファイルとして
作成します。
|
|