投稿日 | : 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を初歩から勉強し、何時の日かまたチャレンジします。
お手を煩わせました。ありがとうございました。