| |
▼yuhmo さん：
>yama さんへ
>
>早速の返信ありがとうございます。
>
>ところで下記の方法ですと、
>
>> ChDir "C:\Documents and Settings\xxxx\デスクトップ"
>> ActiveWorkbook.SaveAs Filename:= _
>> "C:\Documents and Settings\xxxx\デスクトップ\tabtab.txt", _
>> FileFormat:=xlText, CreateBackup:=False
>
>ブックそのものをテキスト形式で保存するようなことになると思いますが、
>Print でデータを“書き出す”ように別物としてデータ保存したいのです。
>そのような方法はないものでしょうか？
あれれ。。シートが複数あって任意のシートの
任意の範囲を出力する...等でしょうか？
単にprintでやりたいのであれば
For iRow = iStartRow To iEndRow
For iCol = iStartCol To iEndCol
If iCol = iStartCol Then
Print #intFp, Cells(iRow, iCol);
Else
Print #intFp, vbTab & Cells(iRow, iCol);
End If
Next
Print #intFp,
Next
といった感じでしょうか？
(適当に書き込んでるのでコピペでは動かないかも)
|
|
yama
- 05/10/4(火) 17:19 -
