VBAで名前を付けて保存
テキストファイルをエクセル出力する処理を考えております。
テキストファイルを開き、名前をつけて保存する処理が上手くできません。
シート1のある2つのセルに入力パスと出力パスが設定されているとします。
例えばcells(4,4)に入力パスが設定されており(¥~~~.txt)
cells(6,4)に出力パスが設定されており(¥~~~xls)
上記のような状態とします。
cells(4,4)にあるテキストファイルを開き、
それを拡張子をエクセルにしてcells(6.4)にある出力先に名前をつけて保存をしたいのです。
オープンする場合は
Workbooks.OpenText Filename:=Workbooks("○○.xlsm").Sheets(1).Cells(4, 4).Value & ".TXT"
で上手くいきました。
しかし保存の際に
ActiveWorkbook.SaveAs Filename:=Sheets(1).Cells(6, 4).Value & ".xls"
で実行するとエラーがでてしまいます。
どうすれば良いでしょうか。
お礼
出来ました(^o^)丿 ありがとうございます。