[リストへもどる]
一括表示

投稿時間:2003/05/30(Fri) 17:12
投稿者名:Blue
Eメール:
URL :
タイトル:
複数のCSVデータ⇒XLSブック
某社計測器で取得したデータ(CSV)をXLSのデータシートにまとめようとしています。
【使用環境】:WindowsNT VB6.0(SP5) Excel97

1. CSVのセル位置を指定して呼び込み
2. PCメモリ上にスタック
3. XLSのシートを指定して貼り付け(「書き込み」が適切な表現かも)

上記過程を地道に繰り返すと実現可能なのですが、CSVデータを1枚のXLSシートのように
扱ってブックにすることはできないでしょうか?

=================================================================================
Dim xlApp       As Excel.Application
Dim xlBook      As Excel.Workbook
xlBook.Worksheets(IntSheetNo).Copy , xlBook.Worksheets(xlBook.Worksheets.count)
=================================================================================

上記ソース(一部ですが)で同一XLSファイル内であればシートコピーが上手くいったのですが…

どちらかご存知の方がいらっしゃいましたら、お教え下さい。
宜しくお願いします。

投稿時間:2003/05/30(Fri) 19:14
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 複数のCSVデータ⇒XLSブック
ひとつにまとめるだけなら、こんな方法も

Private Sub Command1_Click()
    Dim AFilePath As String
    Dim BFilePath As String
    Dim CFilePath As String
    AFilePath = App.Path & "\AFile.CSV" & " + "
    BFilePath = App.Path & "\BFile.CSV" & " "   '半角スペースを付加
    CFilePath = App.Path & "\CFile.CSV"
    Shell "command.com /c copy " & AFilePath & BFilePath & CFilePath, 0
End Sub

投稿時間:2003/06/06(Fri) 14:19
投稿者名:Blue
Eメール:
URL :
タイトル:
かなり楽になりました!
お礼が遅れましたが、花ちゃんさんどうもありがとうございます。
早速試してみました。
計測回数が増えるたびにCSVの処理に困っていたので非常に助かりました。
また何かあった際にはよろしくお願いします。