Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47668 / 76732

←次へ　｜　前へ→


	【34014】Re:デキストデータの取込み時、条件にて必要データのみを読む込むには？

inoue

- 06/1/25(水) 0:10 -


	引用なし

	パスワード

>コードを一つ一つ説明すると長くなりそうなので、端的に申しますと、
長いコードを提示したのだから説明だけ「端的」では分かりません。

>OpenFileにてテキストファイルを開き、ReadDeteに１ﾚｺｰﾄﾞ長を保存し、
>最終行までそれをおこなったあと、セルA1000番地にそれを貼りつけておきます。
「最終行までそれをおこなったあと」はなぜ？
A1000番地に貼ったのは先頭レコードでしょう？
それに「A1000番地」は何の役割ですか？

>それから、取りこんだテキストデータの必要な列だけをシートに貼りつけておりますが、
>必要な行だけを逆に取りこもうとすると、難しいのですか？
QueryTablesでテキストを読むことは私はやらないので良く知りません。
でもそれ以前にやっている「空読み」が何をやっているのか分からないし、
未宣言変数も、
　　Dim Stime
　　Dim CNT
　　Dim WFlg
　　Dim i
　　Dim カンマ数
　　Dim STAdd
　　Dim huhu
　　Dim popo
　　Dim yuio
　　Dim LPC
　　Dim Ag
　　Dim AcShNam
これだけあって、何の役だか分かりません。

それに「StartAddSet」なる非提示関数もありますね。

>それとも１ﾚｺｰﾄﾞずつ、読込ませる際、IFにてF1の最終番号を取得し、そこから
>上に30行分DELETEするようなコードにすればよいのですか？
どうあれ、読み込まないと「最後の30件」は分からないので、
読み込めているならそのようにしてみてはいかがでしょう。

0 hits

▼

【34003】デキストデータの取込み時、条件にて必要データのみを読む込むには？ まさ～る 06/1/24(火) 20:12