Excel VBA質問箱 IV

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

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


4326 / 13644 ツリー ←次へ | 前へ→

【57272】外部データのとりこみで たかたか 08/8/4(月) 15:58 質問[未読]
【57273】Re:外部データのとりこみで neptune 08/8/4(月) 17:19 発言[未読]
【57292】Re:外部データのとりこみで たかたか 08/8/5(火) 8:41 お礼[未読]
【57296】Re:外部データのとりこみで neptune 08/8/5(火) 15:35 回答[未読]
【57301】Re:外部データのとりこみで neptune 08/8/5(火) 17:12 発言[未読]
【57302】Re:外部データのとりこみで たかたか 08/8/5(火) 17:39 お礼[未読]

【57272】外部データのとりこみで
質問  たかたか  - 08/8/4(月) 15:58 -

引用なし
パスワード
   はじめまして エクセル初心者です。
マクロをつかって同じフォルダにある三種類のテキストファイルをとりこみ、それぞれ別のシートにして、そこからデータを別のシートにとりこみたいのです。いまはコピーペーストでやってます。
いちおうファイルオープンでシートに取り込むところまではできたのですが、ファイルサイズが大きい(100MB以上)ものがあって、全て入らず途中で終わってしまうときがあります。
データを取り込む時にファイル全てじゃなくて、最初と最後の一部分だけ取り込むことは可能でしょうか?
教えて下さい。よろしくお願いします。

【57273】Re:外部データのとりこみで
発言  neptune  - 08/8/4(月) 17:19 -

引用なし
パスワード
   ▼たかたか さん:
こんにちは

>はじめまして エクセル初心者です。
>マクロをつかって同じフォルダにある三種類のテキストファイルをとりこみ、それぞれ別のシートにして、そこからデータを別のシートにとりこみたいのです。いまはコピーペーストでやってます。
>いちおうファイルオープンでシートに取り込むところまではできたのですが、ファイルサイズが大きい(100MB以上)ものがあって、全て入らず途中で終わってしまうときがあります。
>データを取り込む時にファイル全てじゃなくて、最初と最後の一部分だけ取り込むことは可能でしょうか?
可能ですよ。

>教えて下さい。よろしくお願いします。
どうぞ
h tp://msdn.microsoft.com/ja-jp/library/cc428071.aspx
h tp://msdn.microsoft.com/ja-jp/library/cc428074.aspx
メソッド、プロパティをパラパラと見て行って、組み合わせればできます。
そのものずばりはありません。

【57292】Re:外部データのとりこみで
お礼  たかたか  - 08/8/5(火) 8:41 -

引用なし
パスワード
   neptune さん
早速の回答ありがとうございます。
とりあえず挑戦してみたいと思います。
わからなくなったらまたお願いします。

【57296】Re:外部データのとりこみで
回答  neptune  - 08/8/5(火) 15:35 -

引用なし
パスワード
   ▼たかたか さん:
こんにちは


>とりあえず挑戦してみたいと思います。
偉い。

最終行の取得方法で迷うかもしれないので一応書いておきます。
多分このような力技しかないと思います。

Sub t()
Const sPath As String = "ファイルのフルパス"
Dim fso As Object
Dim srm As Object
Dim firstLine As String, endLine As String

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set srm = fso.OpenTextFile(sPath)
  firstLine = srm.ReadLine
  Debug.Print firstLine
  
  Do Until srm.AtEndOfStream
    endLine = srm.ReadLine
  Loop
  Debug.Print endLine
  
  srm.Close
  Set srm = Nothing
  Set fso = Nothing
End Sub

【57301】Re:外部データのとりこみで
発言  neptune  - 08/8/5(火) 17:12 -

引用なし
パスワード
   ▼たかたか さん:
こんにちは

>最初と最後の一部分だけ
だったんですね。^ ^;

サンプルは最初と最後だけの取得方法でした。
まぁ、少しは役に立つと思いますので、残しておきます。

【57302】Re:外部データのとりこみで
お礼  たかたか  - 08/8/5(火) 17:39 -

引用なし
パスワード
   neptune さん
こんにちは

いろいろとお手数おかけします。
最初のアドレスをのぞいてみたのですが、ちょっと難しくて
わからなかったのですが、neputuneさんが書いてくださったものを
コピペしてやりくりしたところ
一行ずつ読み取っていってたので、それをもとに必要なとこだけ取り込む形にしました。
当初考えていた方法とは違う形ですが、ネライ通り取り込むことができました。
すごく感動しました。
まったくの素人で独学ですがこれからもいろいろ勉強していきたいと思います。
本当にありがとうございました。
またなにかあったらおねがいします。

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