|
こんにちは。以前お世話になった者です。
表題の件で、ご質問致します。
過去ログで、類似項目を拝見しましたが解決に至りません。
よろしくお願いします。
【マクロの内容】
エクセルシートの中身を、A列でフィルターし、
フィルタされているデータを全てテキストファイルに出力する。
【質問事項】
テキストファイル化したファイルの最終行に改行が入ってしまいます。
この改行を削除したいのです。いい方法がありましたらご教授お願いします。
【動作環境】
Excel2000
【エクセルシートの中身】
A列 B列 C列 ・・・・
A 1C 7C
A 1C 7C
B 3C 9C
B 3C 9C
A 1C 7C
C 6C 4C
A 1C 7C
A 1C 7C
A 1C 7C
A 1C 7C
B 3C 9C
【作成経過】
Sub Output_file()
Dim DObj As New DataObject
Dim MySt As String
Current_Sheet = ActiveSheet.Name
MyPath = ThisWorkbook.Path
MyFile = MyPath & "\" & "集計_" & Current_Sheet & ".txt"
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="A"
Range("A1:U1").Select
Range(Selection, Selection.End(xlDown)).Copy
DObj.GetFromClipboard
MySt = DObj.GetText(1)
Open MyFile For Output Access Write As #1
Print #1, MySt
Close #1
Selection.AutoFilter
End Sub
以上。よろしくお願い致します。
|
|