エクセルで、テキスト又はcsvのデータをそのまま開くと「0001」となっているデータが「1」だけになってしまいますが、「テキストファイルウィザード」や「データの取り込み」「’をつける」といった方法以外でエクセルに展開した時に「0001」と表示させる方法はあるでしょうか?

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/07/26 15:47:48
  • 終了:--

回答(5件)

id:Cedry No.1

Cedry回答回数96ベストアンサー獲得回数02004/07/26 15:54:10

ポイント15pt

http://www.microsoft.com/

Microsoft Corporation

URLはダミーです。

結局、0001というのは書式になってしまうので。。

CSV/テキストには書式が無いので文字列で取り込ませるか、取り込み後書式変更するしかない気がします。

id:pyonmya

うーむ、やはりそうですよね。

テキストデータ事態に形式を選択できるようなデータ部を設けるような方法は無いものでしょうか?

2004/07/26 15:57:33
id:cartoon No.2

cartoon回答回数63ベストアンサー獲得回数02004/07/26 16:10:02

ポイント15pt

URLはダミーです

ALT=代替テキスト

id:name_mm No.3

name_mm回答回数94ベストアンサー獲得回数02004/07/26 16:29:17

ポイント15pt

http://support.microsoft.com/default.aspx?scid=kb;JA;149090

ACC テキスト データにアクセスするための 使用Schema.ini の方法

URLは Schema.ini 部分を参考下さい。

ODBC データソースアドミニストレータで、Text DriverでDSNを作成する際、csvファイルが配置されているフォルダを選択し、書式定義を行い、Schema.ini を作成すれば、Excel で外部データの取り込み>>データの取り込み から、作成済み DSN を選択する事で、読込む事が可能です。

でも、何故テキストファイルウィザードは使用できないのでしょう。素朴な疑問でした。(^^

id:pyonmya

なるほど、こうゆうやり方もありますね。

参考にしてみます。

テキストファイルウィザードが使えないというか、別の方法があるのならその方法を知りたいという自己満足です。

2004/07/26 17:48:18
id:name_mm No.4

name_mm回答回数94ベストアンサー獲得回数02004/07/26 17:05:56

URLはダミーです。

ポイント不要です。

先ほど、質問の内容を誤解し記述してしまいました。データの取り込みは不可なのですね。

VBAではどうですか?

参考までに。

Sub csvImp()

Const csFName As String = ”C:¥Documents and Settings¥m.ichinohe¥デスクトップ¥aaaa.csv”

Const csDelimiter As String = ”,”

Dim FNo As Integer

Dim wsObj As Worksheet

Dim strGet As String

Dim lRowCnt As Long

Dim i As Long

FNo = FreeFile

If Dir(csFName) <> ”” Then

Open csFName For Input As #FNo

Set wsObj = ActiveWorkbook.ActiveSheet

lRowCnt = 1

Do Until EOF(FNo)

Line Input #FNo, strGet

For i = LBound(Split(strGet, csDelimiter)) To UBound(Split(strGet, csDelimiter))

If IsNumeric(Split(strGet, csDelimiter)(i)) = True And Left(Split(strGet, csDelimiter)(i), 1) = ”0” Then

wsObj.Cells(lRowCnt, i + 1).NumberFormatLocal = ”@”

End If

wsObj.Cells(lRowCnt, i + 1) = Split(strGet, csDelimiter)(i)

Next i

lRowCnt = lRowCnt + 1

Loop

Set wsObj = Nothing

Close #FNo

End If

End Sub

id:pyonmya

回答ありがとうございます。

VBAという手もありますね。

参考にしてみます。

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

2004/07/26 17:50:19
id:honey3 No.5

honey3回答回数350ベストアンサー獲得回数02004/07/26 17:11:07

ポイント35pt

http://homepage2.nifty.com/e-ka/win32/index.htm

超個人的なプログラムの倉庫-[え〜か?よっしゃ!]

私も色々やってみた経験がありますが、結局エクセルは勝手に書式設定してしまいますので、おそらく無理だと思います。でURLにある「ExcelでCSVファイルを全て文字列として読み込むマクロ(Excel VBA) 」を使っています。

id:pyonmya

なるほど!

これは一つの解決策かも!

すべて文字列にするという考え方は目から鱗が落ちました。

参考にします。ありがとうございます。

2004/07/26 17:51:39

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません