| |
>1：B列の値が空白になったらコピーはおわり。
>(データによってはB列の数は異なるため。）
Dim i As long
If Cells(i,2).Value = "" Then
Msgbox "Ｂ列は" & i & " 行目で空白になりました。"
Exit Sub
Else
'処理
End if
>2：opentextで開くデータのファイル名は*.lst
>（今回はho.lstというBOOKになりましたが、
>いつも*部分ファイル名は異なるものを扱いたい。）
その都度、ファイルをユーザーが指定するということであれば、
GetOpenFilename メソッド
が使えると思います。
>3：できれば開いたtextデータのwindowは表示されない。
>（常にBOOK1.xlsを表示していたい。・・・
>マクロの記録ではwindowがころころ切り替わってしまいます。）
ScreenUpdating プロパティで画面の表示を更新させなくするか、
もしくは、Visible プロパティでブックのウィンドウや、
EXCEL自体を非表示にしては如何でしょうか？
>4：コピーが終わったらコピー元のBOOKは終了したい。
>とりあえずは上記4項目です。
Close メソッドの使用例
次の使用例は、Book1.xls のブックを閉じます。内容の変更は保存しません。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
でしょうか？
|
|
INA
- 03/12/19(金) 9:25 -
