VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2006/04/26(Wed) 13:09
投稿者おじん
Eメール
URL
タイトルRe^2: ありがとうございました

> > でやってのですが、"A1"から展開され、うまくいきません。
> > また、"C4"から展開したい(読み込みたい)場合にはどのようにしたら
>
> Excel のファイルのオープン機能には、途中から読み込むとか、一部だけ読み込む
> ような機能はありません。
> 又、VBでCSVファイルを読み込むにしたって、同様に途中からとか一部だけとかを
> 読み込む事はできません。
>
毎度のこと、言葉足らず=様子を説明しきらないで申し訳ありません。
データは1件目からすべて読みます。それをエクセルのセルB4から展開したい
ということです。
ハンドワーク(マクロを記録して)では、
    Range("B4").Select
    ChDir "F:\"
    Workbooks.Open Filename:="F:\file11x11.csv"
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    ActiveWindow.Close
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;F:\file11x11.csv", _
        Destination:=Range("B4"))
  以下略
のようになって、B4から展開されました。
6個のCSVファイルをエクセルテンプレートファイルの6つのsheetsに展開する
作業がこれを単位として1日に100回近くあります。どうにか「簡単:手間
いらず」にできないものかと(現在は手分けしてハンドワーク。大変そうな
様子をみると、つい好奇心にかられて、、)。
エクセル・VBAを初歩から勉強し、何時の日かまたチャレンジします。
お手を煩わせました。ありがとうございました。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -