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
お礼
では私の認識通りですね。ありがとうございました。