VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/25(Fri) 17:19 |
| 投稿者 | ： ちょう |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 別の問題が。。改行を認識するには。。 |
以下のように記述し、指定されたEXCELファイルの、
2行目の3行目の、B列〜D列のデータを取得することはできたのですが、
読み込んだEXCELファイルと同じように2行にわたって出力したいのに、
この方法だとCSVの内容は1行にズラズラ書かれてしまいます。
EXCEL側の改行を認識するにはどうすればいいでしょうか？
この方法では駄目なんでしょうか？
よろしくお願いします。
Dim objExcelApp As Workbook
Dim c As Range
Dim strBuff As String
'エクセル参照
Set objExcelApp = GetObject("C:\Book1.xls", "Excel.Sheet")
'書き込むファイルが存在する場合削除
If Dir(pstrCSVPath) <> "" Then Kill pstrCSVPath
'書き込むファイルのオープン
Open pstrCSVPath For Output As #1
'指定された範囲のデータ読み込み
For Each c In objExcelApp.Worksheets("Sheet1").Range("B2:D3")
strBuff = strBuff & c.Value & ","
Next
'書き込み
Write #1, Left(strBuff, Len(strBuff) - 1) '最後のカンマを外して書き込み
'書き込むファイルのクローズ
Close #1
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）