Excel マクロで.xlsx形式で保存したい
マクロでCSVファイルを開き加工を行った後、名前を付けて保存しようとしていますが（.xls）
では保存できるのですが、（.xlsx）ではエラー1004が出て保存できません。内容としては「この拡張子は、選択したファイル形式には使用できません。[ファイル名]ボックスでファイル拡張子を変更するか、[ファイルの種類]ボックスで別のファイル形式を選択してください」と記述されています。
ご助言の程、宜しくお願い致します。
Dim initPath As String
Dim saveFilePath As Variant
initPath = "\\fileserver\ANT\IT\91_Users\700_SUBJECT\その他業務\Excel\"
'saveFilePath = Application.GetSaveAsFilename(initPath, "Excel File (*.xlsx),*.xlsx")
MsgBox saveFilePath
If Not (saveFilePath = "False") Then
ThisWorkbook.SaveAs saveFilePath '←ここでエラーが発生しています。
Else
MsgBox "キャンセルされました。"
Exit Sub
End If
補足
回答ありがとうございます。 ファイルは２シートだけ使用しております。 シートが沢山あるのが好きではないので基本設定で１シートにしており、そこから増やしていくようにしているため、未使用シートが残ることはないのですが…。 引き続き回答を求めます。おわかりになる方よろしくお願い致します。