No.2ベストアンサー
- 回答日時:
こんにちは。
例えば、こんなことですか?
Dim myPath As String
Dim fn As String
myPath = ThisWorkbook.Path & "\"
fn = InputBox("ファイル名を入力してください")
If fn = "" Then Exit Sub
'拡張子は、".txt"
If InStr(fn, ".txt") = 0 Then fn = fn & ".txt"
If Dir(myPath & fn) <> "" Then
Kill myPath & fn
Else
MsgBox fn & "はありません。", vbCritical
End If
こちらは、ご質問者の、パス、ファイル名の造りなど、状況が分からないのでGetOpenFilenameを使ったのです。初歩的な内容ですが、これで問題が残るのでしたら、何がどのように、お分かりにならないのか、情報やご自身のマクロを提供してください。
>この「製造番号」名のファイルを VBA による所定の処理が終了した時点で、
>ディレクトリ上から確実に削除したいのです。 削除の場合もダイアログ方式ではなく自動的に行いたいのですが。
製品番号とファイル名の関連性とか、こちらでは分からないし、実際のマクロも見ていないので、今の段階では分かりません。
質問が具体性を欠いていたようで、申し訳ありません。 上記にお示しいただいた方法でうまく行きました。 今回のケースでは Path は固定なので、そのパス名を myPath に当てはめて実行してずばり解決いたしました。 ありがとうございました。 因みに製造番号のファイル名は nnnnn.txt (nnnnnは5桁の整数)で、このファイルが C:\Dir-1\nnnnn.txt として格納されています。 このファイルをExcelに取り込み、Excel上の処理を行った後、最後にこの nnnnn.txt を削除するというものです。
No.1
- 回答日時:
こんばんは。
以下のように、ダイアログを使ったらいかがですか?
入力よりも、ファイル名を確認できて楽です。
Dim FileName As String
FileName = Application.GetOpenFilename("テキストファイル*.txt(*.txt),*.txt")
If FileName = "False" Then Exit Sub
後は、ご自分のマクロにつなげてください。
この回答への補足
早速のご回答ありがとうございます。教えていただいたダイアログを使う方法は確かにファイルを確認できてよさそうなのですが、入力される文字列は製品の製造番号で、製品を見ながら入力するのでファイル名を確認できる必要はありません。 むしろ担当者が誤りをおかす心配があるのです。
この「製造番号」名のファイルを VBA による所定の処理が終了した時点で、ディレクトリ上から確実に削除したいのです。 削除の場合もダイアログ方式ではなく自動的に行いたいのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux JSLinuxについて。 Linuxのこの手順のプログラミングは合っているでしょうか。 ①ホームディ 2 2022/06/20 15:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Google Drive Googleドライブで削除できないファイルがある。 5 2023/05/11 09:39
- その他(開発・運用・管理) バッチファイルで特定のファイル・ディレクトリ以外を削除する方法について 4 2022/05/31 14:03
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/10/03 09:55
- Java java 次の機能を有するメソッドを自クラスに作成し、実装したいです。 機能 名前判定機能 →名前が 3 2022/06/16 16:08
- フリーソフト サイトで使用していない画像ファイルの削除ソフトを探しています。 3 2023/04/05 10:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
複数のファイルを同時検索し、...
-
テキストファイルの文字色に色...
-
ExcelVBA テキストファイルから...
-
一気にずばっと複数のメールを...
-
ファイル名の特定文字だけ削除...
-
windowsへscp
-
マクロでメモ帳に貼り付け
-
VBSでテキストファイルのタブ区...
-
【Excel VBA】PDFを作成して,...
-
バッチによるショートカットの...
-
VBAでファイルパスが長すぎてコ...
-
Refreshで落ちる
-
Access2003で「オブジェクト'○○...
-
Microsoft Access エラー 3051
-
ダウンロード不可PDFファイルは...
-
エクセルVBA フォームを開く時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
ファイル名の特定文字だけ削除...
-
マクロでメモ帳に貼り付け
-
VBSでテキストファイルのタブ区...
-
ヘルプファイルの翻訳
-
CADでグラフ作成
-
パイソン(コラボラレイトリー...
-
文字の頭文字順に自動移動
-
Excel2003でマクロを使用してtx...
-
インデザインのテキスト流し込み
-
CDの曲名をテキストファイルで...
-
ExcelVBA テキストファイルから...
-
エクセルにpdfのテキストを表示...
-
エクセルVBA テキストファイ...
おすすめ情報