Excel VBA質問箱 IV

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

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


9081 / 13644 ツリー ←次へ | 前へ→

【29418】データのタブ区切りtxtファイル出力 yuhmo 05/10/4(火) 16:40 質問[未読]
【29421】Re:データのタブ区切りtxtファイル出力 yama 05/10/4(火) 16:53 回答[未読]
【29422】Re:データのタブ区切りtxtファイル出力 yuhmo 05/10/4(火) 17:02 質問[未読]
【29424】Re:データのタブ区切りtxtファイル出力 小僧 05/10/4(火) 17:13 発言[未読]
【29426】Re:データのタブ区切りtxtファイル出力 yama 05/10/4(火) 17:19 回答[未読]
【29443】Re:データのタブ区切りtxtファイル出力 yuhmo 05/10/5(水) 9:20 お礼[未読]

【29418】データのタブ区切りtxtファイル出力
質問  yuhmo  - 05/10/4(火) 16:40 -

引用なし
パスワード
   教えてください。

複数列にわたってデータがあるシートを
タブ区切り形式でテキスト出力したいのですが、
print でやってみましたがうまくいきません。
どのような方法がありますでしょうか。
皆様教えてください。

【29421】Re:データのタブ区切りtxtファイル出力
回答  yama  - 05/10/4(火) 16:53 -

引用なし
パスワード
   ▼yuhmo さん:
>教えてください。
>
>複数列にわたってデータがあるシートを
>タブ区切り形式でテキスト出力したいのですが、
>print でやってみましたがうまくいきません。
>どのような方法がありますでしょうか。
>皆様教えてください。

マクロ記録してみるといいですね。
※保存時のダイアログで、ファイルの種類を
 "テキスト(タブ区切り)"にすると一発です。

  ChDir "C:\Documents and Settings\xxxx\デスクトップ"
  ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\xxxx\デスクトップ\tabtab.txt", _
    FileFormat:=xlText, CreateBackup:=False

【29422】Re:データのタブ区切りtxtファイル出力
質問  yuhmo  - 05/10/4(火) 17:02 -

引用なし
パスワード
   yama さんへ

早速の返信ありがとうございます。

ところで下記の方法ですと、

>  ChDir "C:\Documents and Settings\xxxx\デスクトップ"
>  ActiveWorkbook.SaveAs Filename:= _
>    "C:\Documents and Settings\xxxx\デスクトップ\tabtab.txt", _
>    FileFormat:=xlText, CreateBackup:=False

ブックそのものをテキスト形式で保存するようなことになると思いますが、
Print でデータを“書き出す”ように別物としてデータ保存したいのです。
そのような方法はないものでしょうか?

【29424】Re:データのタブ区切りtxtファイル出力
発言  小僧  - 05/10/4(火) 17:13 -

引用なし
パスワード
   ▼yuhmo さん、yama さん
こんにちは。

>print でやってみましたがうまくいきません。

の具体的な例が載っていないので詳しくは解りませんが、

普通にPrint # ステートメントであれば
Chr(9)でTABを出力できますよ。

【29426】Re:データのタブ区切りtxtファイル出力
回答  yama  - 05/10/4(火) 17:19 -

引用なし
パスワード
   ▼yuhmo さん:
>yama さんへ
>
>早速の返信ありがとうございます。
>
>ところで下記の方法ですと、
>
>>  ChDir "C:\Documents and Settings\xxxx\デスクトップ"
>>  ActiveWorkbook.SaveAs Filename:= _
>>    "C:\Documents and Settings\xxxx\デスクトップ\tabtab.txt", _
>>    FileFormat:=xlText, CreateBackup:=False
>
>ブックそのものをテキスト形式で保存するようなことになると思いますが、
>Print でデータを“書き出す”ように別物としてデータ保存したいのです。
>そのような方法はないものでしょうか?

あれれ。。シートが複数あって任意のシートの
任意の範囲を出力する...等でしょうか?
単にprintでやりたいのであれば

  For iRow = iStartRow To iEndRow
    For iCol = iStartCol To iEndCol
      If iCol = iStartCol Then
        Print #intFp, Cells(iRow, iCol);
      Else
        Print #intFp, vbTab & Cells(iRow, iCol);
      End If
    Next
    Print #intFp,
  Next

といった感じでしょうか?
(適当に書き込んでるのでコピペでは動かないかも)

【29443】Re:データのタブ区切りtxtファイル出力
お礼  yuhmo  - 05/10/5(水) 9:20 -

引用なし
パスワード
   ▼yama さん

お返事遅れましてごめんなさい。

まだコード自体の意味はよく解りませんが、
自身のコードにあてはめてみると、思ったとおりのものが
できました!

ありがとうございました。

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