選択したExcelファイルをcsvファイルで保存したい

Question

全くの初心者です。
名前を指定して開いた.xlsxのブックを.csvにしてファイル名は元のままで指定フォルダへ保存したいです。
ファイル名：売上_yyyymmddhhmm(yyyymmddhhmmの部分は毎日変わります）

Application.GetOpenFilenameで名前を指定して.xlsxのブックを開いて下記を実施すると、
コピーファイルが出来たところでエラーとなります。
csvで保存するにはどうすればいいのでしょうか。

Dim book1 As Workbook
Dim i As String

ActiveSheet.copy
Set book1 = ActiveWorkbook
i = Range("売上_").Value

book1.SaveAs Filename:="\c" & i & ".csv", _
FileFormat:=xlTextPrinter

book1.Close False

実行時エラー1004
Rangeメゾッドは失敗しましたGlobalオブジェクト

 i = Range("*売上_*").Value

試したこと

i =Range（）の中身を変えてみましたが、変わらず。

補足情報（FW/ツールのバージョンなど）

コピーを省きました。また、元ファイルと同じファイル名にすることにこだわらないことにして
下記のようにしてみました。

Sub Macro1()
SetCurrentDirectory "\○○○\デスクトップ\売上集計"

Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If OpenFileName <> "False" Then
    Workbooks.Open OpenFileName
Else
    MsgBox "キャンセルされました"
End If

End Sub

Sub Macro2()

With ActiveWorkbook
.SaveAs Filename:= "\○○○\デスクトップ\売上.csv" _
, FileFormat:=xlCSV
.Close SaveChanges:=False

End With

Comments

[ttyp03]

Range("*売上_*")は何を意図しているのですか？
ファイル名は同じと言っているのになぜシートから取得しようとしているのですか？
そこの仕様が見えないと答えようがないです。

[KazuSaka]

解決しましたでしょうか？

見た感じ、Range("*売上_*").Valueではファイル名は取得できないと思います。rangeメソッドはセルの範囲を指定するものだと思います。

ファイル名はgetOpenFilenameの戻り値で取得できます。以下のように…
OpenFileName = Application.GetOpenFilename(FileFilter:="Excelファイル,*.xlsx")

やりたいことはこんな感じですか？
1.Aフォルダにあるxlsxのファイルをダイアログで指定。
2.指定したxlsxファイルをBフォルダにcsv形式で保存。(名前は同じ)

以上

[stdio]

「ExcelCsvIO」というエクセルのアドオンを使えばいいのでは？

Answer 1

名前を指定して開いた.xlsxのブックを.csvにしてファイル名は元のままで指定フォルダへ保存したいです。

とりあえず、
ファイルダイアログでワークブックを指定して、
そのワークブックのファイル名で拡張子のみCSVに変更して、CSVファイルとしてデスクトップに保存する
場合のコード例

    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName
    Else
        MsgBox "キャンセルされました"
    End If
    
    With ActiveWorkbook
        Dim csvFileName As String
        csvFileName = "\○○○\デスクトップ\" & Left(.Name, InStrRev(.Name, ".")) & "CSV"
        .SaveAs Filename:=csvFileName, _
                FileFormat:=xlCSV
        .Close SaveChanges:=False
    End With

Comments

[Booom]

InStrRevで後ろから”.”までファイル名検索して持ってくるなんてことができるんですね。大変勉強になりました。
みなさまどうもありがとうございました！

Answer 2

i = Range("売上_").Value

ありえない記述ですが、何を期待してこう書いたのか説明してください。