Excel VBA質問箱 IV

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

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


62762 / 76732 ←次へ | 前へ→

【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 質問
【18576】Re:エクセルシートの内容をテキストファイ... ちゃっぴ 04/9/29(水) 23:31 回答
【18590】Re:エクセルシートの内容をテキストファイ... Jaka 04/9/30(木) 17:37 回答
【18602】Re:エクセルシートの内容をテキストファ... Cat 04/9/30(木) 23:57 お礼

62762 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free