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