CSVのデータをExcelのセルへ貼り付けるには？

解決

しんしん 2004-03-06 03:06:12 No: 112208

初めまして。

似たような質問が多かったのですが、微妙に違うような気がしてしまったので
質問させていただきました。

VBを使用して、CSV形式で保存されたデータをExcelのテンプレートの指定されたセルへ貼り付けたいのですが、LinkItem、LinkMode、LinkTopicなどを使用して一度VBへ取り込んでからLinkPokeなどでExcelへ貼り付けるのでしょうか？

それともダイレクトにファイルやシート名を指定してCSVからExcelへ貼り付けることは可能なのでしょうか？

可能でしたらどのようにすればよろしいのでしょうか？

どうぞよろしくお願いいたします。

特攻隊長まるるう 2004-03-08 20:15:58 No: 112209

一度、花ちゃんのサイトで勉強されることをお勧めしますが…
http://www.bcap.co.jp/hanafusa/
CSVファイルの拡張子のまま読込むとExcelとの関連付けがしてある為に、
自動的にExcel形式で読込まれるようです。一度テキストファイルに変更
してデータを読み込むサンプルソースが公開されてます。ひと通り目を
通してみてください。

で、質問は指定されたセルへの貼り付けという事ですので VB で配列に
読み込んで
Dim DataX() As Variant
Dim ExcelSheet As Excel.Worksheet
Dim CellAddress As String ' 先頭セルアドレス
ExcelSheet.Range(CellAddress).Resize(UBound(DataX, 1) + 1, UBound(DataX, 2) + 1).Value = DataX
みたいな感じで貼り付ける方法を…ボクは使ってます。

しんしん 2004-03-09 04:04:25 No: 112210

特攻隊長まるるう様。

大変ありがとうございました。
紹介していただいたサイトが大変役立ちました。
このサイトの情報を元に多少手直ししましたら私のほしかった処理ができました。
これからも、よろしくお願いいたします。

しんしん 2004-03-09 04:04:37 No: 112211

特攻隊長まるるう様。