Excel VBA質問箱 IV

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

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


6117 / 13645 ツリー ←次へ | 前へ→

【47096】シートの指定箇所をテキストファイル化したいです。 VBA初心者 07/2/28(水) 18:58 質問[未読]
【47102】Re:シートの指定箇所をテキストファイル化... ぱっせんじゃー 07/2/28(水) 19:47 発言[未読]
【47103】Re:シートの指定箇所をテキストファイル化... ichinose 07/2/28(水) 20:06 発言[未読]

【47096】シートの指定箇所をテキストファイル化し...
質問  VBA初心者  - 07/2/28(水) 18:58 -

引用なし
パスワード
   はじめまして。VBA初心者です。

エクセルシートの任意箇所をテキストファイル化したいのですが、
VBAでどのようにやればよいかわかりません。
ご存知の方いらっしゃいましたら、ご教授願います。

【47102】Re:シートの指定箇所をテキストファイル...
発言  ぱっせんじゃー  - 07/2/28(水) 19:47 -

引用なし
パスワード
   どのようなテキストファイルにしたいかが??ですが、
↓が参考にアンルと思います。

Excelでお仕事!-テキストデータやファイル操作
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu05.html

【47103】Re:シートの指定箇所をテキストファイル...
発言  ichinose  - 07/2/28(水) 20:06 -

引用なし
パスワード
   こんばんは。

>はじめまして。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

選択しているセル範囲(エリアはひとつのみ)をタブ区切りのテキストファイルとして
作成します。

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