Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22777 / 76738

←次へ　｜　前へ→


	【59338】Re:KILL関数って不安定なのでしょうか？

neptune - 08/12/7(日) 9:41 -


	引用なし

	パスワード

▼大目玉さん：

サンプルです。動作確認はしてませんので動作保障はないです。

>必要なのは5行目のB列からはじまるファイルパスのファイルを削除することです｡
>ファイルパスは5つのときもあれば､50や100つの時もあります｡
>5 つのときは当然にそれ以下のせるは空欄になります
だけに着目して書いてます。

ファイルパスは正確なフルパスである前提です。
ワイルドカードは考慮してません。（どういう結果がほしいか不明なので考慮しようがない）

Sub t()
Dim i As Long
Dim ret As Long

　　With Worksheets("Sheet1")
　　　　On Error Resume Next
　　　　i = 5
　　　　Do Until .Cells(i, 2).Text = ""
　　　　　　Kill .Cells(i, 2).Text
　　　　　　If Err.Number <> 0 Then
　　　　　　　　ret = MsgBox(Err.Number & ": " & Err.Description & vbCrLf _
　　　　　　　　　　　　& .Cells(i, 2).Text & "の削除が正常に行われませんでした。処理を続けますか？", _
　　　　　　　　　　　　vbYesNo Or vbQuestion, "ﾌｧｲﾙ削除ｴﾗｰ")
　　　　　　　　If ret = vbNo Then Exit Do
　　　　　　　　Err.Clear
　　　　　　End If
　　　　　　i = i + 1
　　　　Loop
　　　　On Error GoTo 0
　　End With
End Sub

よければ参考にして適当に改造して下さい。

0 hits

▼

【59327】KILL関数って不安定なのでしょうか？ 大目玉 08/12/6(土) 15:17