| |
>カンマ区切り、つまりCSVファイルとして保存したいということですね。
>CSVで検索すれば、いっぱい出てくると思います。
回答ありがとうございます。
セルの間はカンマで区切るので拡張子は独自の拡張子に保存します。
A列〜J列にデータがあり6行目〜50行目まで取得します。
(後にデータの最終行まで取得するようにする)
このままだと、1行毎に1セルのデータしか取得できないので
A〜J列を配列もしくは各列の変数に保存してそれを1行ずつデータを読み込み
出力するようにしたいのですがどのようにすればいいのでしょうか？
デバックする時にどのデータを読み込んでいるのかを確認出来るようにしたいと思っています。
Sub test()
'変数定義
Dim int_Row As Integer '行
Dim int_Col As Integer '列
'データの処理
If FreeFile = 1 Then 'ファイルが開いていないとき開く
Open "test.laf" For Output As #1
For int_Row = 6 To 50
For int_Col = 1 To 7
Print #1, Cells(int_Row, int_Col)
Next int_Col
Next int_Row
Close #1 ' ファイルを閉じます
End Sub
|
|
