Excelマクロでファイルを開き、別名での保存方法
Excel VBAについて確認させてください。
Excel VBAで下記のようなプログラムを作成しました。
簡単に言えば元のファイルを開いて、元のファイルにある処理をして
ファイル名を変えて保存するといったマクロです。
ですが、下記のプログラムはInputBox 関数で
ユーザにわざわざフルパス（C:\・・・）で入力させる必要があります。
（変数A1の部分です。）
この部分をこのマクロの存在するディレクトリの場所を何らかの関数？で
あらかじめ検索してその場所を引数に渡して指定しておき、
ユーザにはファイル名のみ入力させる方法に改良したいのですが
その方法をご教授いただけますでしょうか。
（チェックするファイルはこのマクロと同じディレクトリにあることになっている設定です。）
そして保存するときもフルパス（C:\・・・）でわざわざ入力する必要があります。
（下記のプログラムでは変数A2）
そこでこのマクロの存在するディレクトリの場所を何らかの関数？で
あらかじめ検索してその場所を引数に渡して指定しておき、
そこに自動的に名前を変えて保存する方法に改良したいのですが
その方法をご教授いただけますでしょうか。
（たとえば１１１.txtを処理した場合、１１１処理済.txtとして自動的に保存。）
以下、プログラム本文です。
-------------------------------------
Sub charactercheck()
Dim a As String
Dim y As Long
Dim A1 As String
Dim A2 As String
A1 = InputBox("チェックしたいファイル名をパス名から入力してください。")
A2 = InputBox("チェック結果を保存するファイル名をパス名から入力してください。")
With CreateObject("Scripting.FileSystemObject").GetFile(A1).OpenAsTextStream
a = .ReadAll
For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row
a = Replace(a, Cells(i, 1), "")
Next
.Close
End With
With CreateObject("Scripting.FileSystemObject").OpenTextfile(A2, 2, True)
.Write a
.Close
End With
End Sub
補足
Ｂドライブは会社の１つの部署の範囲のみ共有となっており、Ａドライブはそれぞれの部が共有できる会社全体の共有ドライブのような使い方のため、部署内のデータはやはりＢに保存しておきたいのです。Ａにも保存したいと言うのは正の文書を自分のドライブに保存しておいて写しをみんなが見られるドライブにも別に置きたいということです。説明が下手で申し訳ありません。大勢の人が閲覧できる場合、書式を変更されてしまったり、間違って移動されてしまったり削除されてしまったりと、苦い経験があるためです。