.txtを読み込むと最初に区切り指定やフィールドの書式指定が
表示されますが、.csvでも表示させることはできますでしょうか?

「123456789012345」といったものが「2E+14」とか勝手に変換
されるので、いちいち拡張子を.txtにして、全フィールド「文字列」
に指定して読み込ませているので非常に効率が悪いのです。

もしくは読み込み時のデフォルト書式を「文字列」にするという
方法はありますでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

CSVファイルをダブルクリックで開くと、書式指定ができません。


メニューの「ファイル」-「開く...」でファイル選択ダイアログを表示させて、そこでファイルを選択して開いてやると、開く前に各列ごとの書式指定などができるはずです。
    • good
    • 0
この回答へのお礼

拡張子「.txt」だとウィザードが出ますが「.csv」だと表示
されないようです。それともなにかオプションがあるのでしょうか?

お礼日時:2001/04/26 10:40

こんにちは



 以下のページがご参考になるのでは?

1-3-4を日付と認識させないようにするには?
http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cg …

参考URL:http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cg …
    • good
    • 0
この回答へのお礼

ありがとうございます、大変役に立ちました。
結局
・拡張子.txtに変更してウィザードで指定
・空ファイルにインポートする時ウィザードで指定
・テンプレートを作っておきデータ更新で行う
のいずれかの方法しかないようですね。^^;

「文字列として読み込むをデフォルトに」とか
もしくは変換セットを保存できるようにしておけば
いいのにつくづく真っ黒ソフトってやつぁ…。TДT)

お礼日時:2001/04/26 10:45

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q数値を文字列として読み込ませたい。(TXT,CSVファイルの取り込み)

TXT(TAB区切り),CSVファイルを読み込むさいに"0001101"などの数値は必ず"1101"と表示されます。
読み込んで開いた際に"0001101"と表示させたいのですが
どのようにすればよいでしょうか?
なるべく読み込んだときに既に変わっているのがいいのですが、開いた後に何か操作を行って表示するのでもかまいません。
読み込んで開いたあと数値を文字列に変換しても"1101"のままになっています。
(Text editorで開いて見るのはNGです)

宜しくお願い致します。

Aベストアンサー

補足の補足です。

テキストファイル(拡張子はTXT)にして読み込みます。

テキストファイルウィザードの3/3というところで、指定したいところを反転させて指定します。

最初から最後まですべて文字列なら、最初の列を反転させておいて、シフトキーを押したまま、下のスクロールキーを最後まで移動して、最後の列をクリックすればOKです。

これでわかるでしょうか?

QExcelのtxt読み込み

Excelでtxtを読み込んでいるのですが、
行数が256以上あるため全て読み込んでくれません。
そこで読み込むときに何行おきに読み込むような方法はありますでしょうか?
また、Excel以外で読み込むことが出来るようなソフトはありますか?(Originのような)
よろしくお願いします

Aベストアンサー

こんにちは。

> 256列以上

Excel でも Access でもフィールド数(列数)が多いデータはパフォーマンス
が悪くなります。また、現実的な目に見える問題として、多くのアプリで読み
込めないという問題がありますよね。

なるべくなら設計段階から見直した方が良いと思いますよ。
で本題ですが、VBA を使うのが簡単なのでは?

> この結果の中で必要なデータは1列目、7列目、13列目と5列置きなので、

OpenText メソッドを使って、名前付き引数 FieldInfo に間引く列、読み込む
列という情報を入れた配列を渡せばよろしいかと。こんな感じで。

何区切りなのか本文に書かれてませんので、一応タブまたはカンマ区切りに
してますが。

Sub Sample()

  Dim fi       As XlColumnDataType
  Dim nCol      As Long
  Dim def_(1 To 360) As Variant
  
  ' // 5行置きに読み込むように各列のデータ形式を示す配列を作成
  ' // xlSkipColumn を指定するとスキップ列となる
  
  For nCol = 1 To 360
    If (nCol Mod 6) = 1 Then
      fi = xlGeneralFormat
    Else
      fi = xlSkipColumn
    End If
    def_(nCol) = Array(nCol, fi)
  Next

  Workbooks.OpenText Filename:="C:\test.txt", _
            Origin:=932, _
            StartRow:=1, _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            Comma:=True, _
            Tab:=True, _
            FieldInfo:=def_

End Sub

こんにちは。

> 256列以上

Excel でも Access でもフィールド数(列数)が多いデータはパフォーマンス
が悪くなります。また、現実的な目に見える問題として、多くのアプリで読み
込めないという問題がありますよね。

なるべくなら設計段階から見直した方が良いと思いますよ。
で本題ですが、VBA を使うのが簡単なのでは?

> この結果の中で必要なデータは1列目、7列目、13列目と5列置きなので、

OpenText メソッドを使って、名前付き引数 FieldInfo に間引く列、読み込む
列という情報を入れ...続きを読む

QExcelでtxtファイルをVBAで読み込む方法

スペース区切りのテキストファイル(拡張子はtxt)が有ります。
データは、数字ですが上桁には0が入っています。
00001 0003 010222 302033 00025
等のデータです。
このファイルを、ウイザードを使わずにVBAにて直接文字列(テキスト)として読み込むコマンドを失念してしまいました。
教えて下さい。宜しくお願い致します。

Aベストアンサー

こんばんは。#2 Wendy02です。
>ファイル名を直接書くのではなく、「Application.FindFile」の様に
>ボックスにファイル名を並べて、選択したいと考えています。

ご質問なのかは分かりませんが、

Dim FileName As Variant 'String型なら、FileName ="False"
FileName = Application.GetOpenFilename("Text ファイル(*.txt),*.txt")
If VarType(FileName) = vbBoolean Then
  Exit Sub
End If

QエクセルVBA:テキストデータ(txt)の読込(改行が変なところでされる)

勉強しながら、エクセルVBAを組んでみたのですが
うまくいきません。

テキストデータを以下のようなプログラムで読んだのですが
(100行のデータを縦に並ぶように100個のセルの書き出す)
読み込みデータに「↓」で改行されているところでは
「↓」の間は同一行と見なされてしまうのですが
どのようにしたら一行で一つのデータと見てくれるのでしょうか?

分かる方がいましたら教えて下さい。
よろしくお願いします。



Sub pon()
'*** 変数の宣言 ***
Dim filenum As String
Dim i As Integer
Dim num As Integer, ms As String, cnt As Integer
Dim BookName As String, PathName As String
Dim ca As String

cnt = 1
i = 1

ca = Cells(1, 56)

PathName = "C:\"
textpath = Dir(PathName & "pon" & ca & ".txt")

BookName = Dir(PathName & "pon" & ca & ".txt")

Open PathName & BookName For Input As #1 'ファイルを開きます

Do While Not EOF(1)
Line Input #1, ms
cnt = cnt + 1
Cells(1, 57) = BookName 'データの書き出し

Cells(cnt, 56) = ms 'データの書き出し

Loop
Close #1

End Sub

勉強しながら、エクセルVBAを組んでみたのですが
うまくいきません。

テキストデータを以下のようなプログラムで読んだのですが
(100行のデータを縦に並ぶように100個のセルの書き出す)
読み込みデータに「↓」で改行されているところでは
「↓」の間は同一行と見なされてしまうのですが
どのようにしたら一行で一つのデータと見てくれるのでしょうか?

分かる方がいましたら教えて下さい。
よろしくお願いします。



Sub pon()
'*** 変数の宣言 ***
Dim filenum As String
Dim i As Integer
...続きを読む

Aベストアンサー

FileSystemObjectを使って入力すれば、改行コードに悩まされることなく同じようにプログラムできます。
Public Sub pon()
Dim objFs, file, filename, BookName
Dim cnt
Dim ca, ms

Set objFs = CreateObject("Scripting.FileSystemObject")

ca = Cells(1, 56)
filename = "C:\pon" & ca &".txt"
BookName = dir(filename)
Set file = objFs.OpenTextFile(filename, 1) 'read Only

Cells(1, 57) = BookName 'データの書き出し
cnt = 1
Do Until file.AtEndOfStream
ms = file.ReadLine
cnt = cnt + 1
Cells(cnt, 56) = ms 'データの書き出し
Loop
file.Close
End Sub

FileSystemObjectを使って入力すれば、改行コードに悩まされることなく同じようにプログラムできます。
Public Sub pon()
Dim objFs, file, filename, BookName
Dim cnt
Dim ca, ms

Set objFs = CreateObject("Scripting.FileSystemObject")

ca = Cells(1, 56)
filename = "C:\pon" & ca &".txt"
BookName = dir(filename)
Set file = objFs.OpenTextFile(filename, 1) 'read Only

Cells(1, 57) = BookName 'データの書き出し
cnt = 1
Do Until file.AtEndOfStream
ms = file.ReadLine
...続きを読む

Q*.txtをexcelで読込、""内の改行で…

年賀状の印刷のためにoutlookの顧客データを利用しています。
outlookでデータをエクスポートで*.txtファイルへ出力し、これをexcelへインポートして整理してから、accessへ渡し、年賀状宛名印刷しています。
通常、郵便番号、住所、氏名などであれば問題ないのですが、outlookのメモ欄にいろいろな過去のデータも記してあり、これに改行記号が含まれています。
今回、このメモも一緒にエクスポートし、顧客リストも合せて作成しようと思いました。
しかし、excelで*.txtファイルを読み込んだ時に、どうも、このメモ欄の中の改行記号で、excelの行が変わってしまうようです。
(秀丸で見たところ、"メモ欄内のデータ"となっているが、""内に改行記号があると、行が変わってしまう)
顧客データが沢山になり、いちいちこれを整えるのも面倒ですが、何か良い方法はあるのでしょうか。

Aベストアンサー

テキスト形式のファイルを作ってテストして見ました。
多分16進表示「0d」(jiscode13)「0a」(jiscode10)が問題なのだと思います。(改行と復帰のコード。)
    エクセル読込み・メモ帳表示
chr(13)----------OK------------改行せず     chr(10)----------OK-------------改行せず
chr(10)+chr(13)--空白行入る-------改行せず
chr(13)+chr(10)--OK-------------改行する
メモ欄を、秀丸で16進表示したとき、0a,0dの在りかたが、どうなっているのか、パターンを説明していただければ、10行ぐらいのVBAコードで修正が出来そうですが(お望みなら)。#2のご回答のように、全置換で解決すれば、結構なんですが。(範囲指定の全置換も出来ますので、要らぬ所へ影響しないように、活用する場面があるかもしれません。)


このカテゴリの人気Q&Aランキング

おすすめ情報