Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62837 / 76807

←次へ　｜　前へ→


	【18571】エクセルシートの内容をテキストファイル...

Cat - 04/9/29(水) 22:50 -


	引用なし

	パスワード

こんにちは。以前お世話になった者です。
表題の件で、ご質問致します。
過去ログで、類似項目を拝見しましたが解決に至りません。
よろしくお願いします。

【マクロの内容】
エクセルシートの中身を、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

以上。よろしくお願い致します。

0 hits

▼

【18571】エクセルシートの内容をテキストファイル... Cat 04/9/29(水) 22:50

≪