Excel VBA質問箱 IV

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

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


51743 / 76732 ←次へ | 前へ→

【29850】Re:CSVからデータの取込
発言  ほびっと  - 05/10/14(金) 17:14 -

引用なし
パスワード
   小僧さん、」早速に回答ありがとうございます。
>▼ほびっと さん:
>こんにちは。
>
>>小僧さんの方法ですと、数の頭の0が落ちてしまうのですが?
>> 「01111」→「1111」
>
>セルを文字列型にする前にデータを貼り付けてしまいました。
>
>ActiveSheet.Cells(1, 1).Resize(UBound(Data, 2) + 1, 8).Value = Application.Transpose(Data)
>ActiveSheet.Cells(1, 1).Resize(UBound(Data, 2) + 1, 8).NumberFormatLocal = "@"
>
>上記2行を入れ替えてみて下さい。

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

>>ADOで、できるのであれば考えていただけないでしょうか。
>>ぜひともよろしくお願いします。
>>例えば、ADOでKen_ALL.csvに接続できたとして
>> .MoveFirst
>> .Find 条件, , adSearchForward
>>で見ていった場合、Ken_ALL.csvの1行目から順に見ていってくれないのでしょうか?
>
>まず、Ken_ALLには見出し行がないのを忘れていました。
>CSVファイルを ADO で処理するためには1行目にフィールド名を
>入れる必要がでてきてしまいますね。
>
>次に…
>Ken_ALL をそのまま開いてしまうと、約12万レコードの処理となります。
>さすがに12万レコードのテーブルに対して「MoveNext」を繰り返し使う処理をすると
>時間がかかるため、SQL の Where句などを駆使して
>Open するレコードに制限を掛けるべきだと思います。
>
>そこで
>
>>>>テーブルを扱う上では「一番上」という概念がないので
>
>という表現になってしまったのですが…。
>Ken_ALL に ID のような連番がついていて、フィールド1 でグループ化してIDが最小のもの
>というような条件でしたら、SQL で一回で処理できると思います。

大変わかりやすい説明ありがとうございます。
納得いたしました。

VBAでKen_ALLの見出し行(1行目にフィールド名)を挿入することはできるのですか?
0 hits

【29823】CSVからデータの取込 ほびっと 05/10/14(金) 12:01 質問
【29828】Re:CSVからデータの取込 awu 05/10/14(金) 14:34 回答
【29830】Re:CSVからデータの取込 小僧 05/10/14(金) 14:58 発言
【29838】Re:CSVからデータの取込 ほびっと 05/10/14(金) 15:59 質問
【29845】Re:CSVからデータの取込 小僧 05/10/14(金) 16:53 発言
【29850】Re:CSVからデータの取込 ほびっと 05/10/14(金) 17:14 発言
【29852】Re:CSVからデータの取込 小僧 05/10/14(金) 18:34 発言
【29853】Re:CSVからデータの取込 ほびっと 05/10/14(金) 19:25 お礼
【29848】Re:CSVからデータの取込 小僧 05/10/14(金) 17:09 発言
【29834】Re:CSVからデータの取込 awu 05/10/14(金) 15:15 発言
【29839】Re:CSVからデータの取込 ほびっと 05/10/14(金) 16:02 発言

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