Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19836 / 76732 ←次へ　｜　前へ→
【62322】Re:CSVから全角数字を取得すると日付形式になってしまう
お礼  会社員  - 09/7/8(水) 19:38 -
引用なし
パスワード
   ▼会社員 さん：
>kanabunさん
>
>ご提示頂いたサンプルソースでこちらのCSVファイルを読み込んだところ、
>正常に２レコード（それぞれの２列目）を表示するダイアログが出ました。
>kanabunさんのソースでは全く問題ないようです。
>大変参考になりました。ありがとうございました。
>
>こちらのソースのどこに問題（差）があるのか未だ分かりませんが・・
>現在検証中です。

かみちゃんさん
kanabunさん

問題が解消しました。手厚いサポートを頂き本当にありがとうございました。
２レコード目がうまく取得できなかった主な原因は「FieldInfo」と「Array」を
よく理解していなかった事による不当なCells().Value参照だったようです。
Cells().Valueの全てを一旦ワーク領域に退避し、それを使用するようにしたところうまくいきました。具体的には以下のように対処しました。（これがBestかどうかは???ですが・・）


Dim ksdt(1000, 100)
Erase ksdt

Dim FieldInfo(1 To 100)
最大カラム = 100

For i = 1 To 最大カラム
　　FieldInfo(i) = Array(i, 2)
Next
' 入力ファイルオープン
myText = "inputdata.txt"
Workbooks.OpenText myText, Origin:=932, _
　　　TextQualifier:=xlDoubleQuote, _
　　　DataType:=xlDelimited, _
　　　Tab:=False, Semicolon:=False, Comma:=True, _
　　　Space:=False, Other:=False, _
　　　FieldInfo:=FieldInfo
' 入力ファイルから取得したレコードデータを全て退避
For i = 1 To 2
　　For j = 1 To 最大カラム
　　　　ksdt(i, j) = Cells(i, j).Value
　　Next
Next

本当にありがとうございました。
以上
0 hits
▼ 【62296】CSVから全角数字を取得すると日付形式になってしまう 会社員 09/7/8(水) 11:12 質問
【62297】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:17 質問
【62299】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 11:27 質問
【62301】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:33 発言
【62302】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:37 発言
【62304】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:41 発言
【62303】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 11:39 発言
【62306】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 12:00 お礼
【62307】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 13:37 発言
【62308】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 13:53 発言
【62298】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:18 発言
【62300】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 11:32 発言
【62305】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 11:44 発言
【62309】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 14:19 質問
【62310】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 14:38 発言
【62311】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 14:48 発言
【62312】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 14:52 発言
【62314】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 15:05 発言
【62316】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 15:23 発言
【62313】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 15:02 発言
【62315】Re:CSVから全角数字を取得すると日付形式に... kanabun 09/7/8(水) 15:09 発言
【62319】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 16:43 お礼
【62320】Re:CSVから全角数字を取得すると日付形式に... かみちゃん 09/7/8(水) 16:47 発言
【62322】Re:CSVから全角数字を取得すると日付形式に... 会社員 09/7/8(水) 19:38 お礼≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19836 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free