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
補足
ありがとうございます。 何かの間違えではなく、perlで動作するスクリプトに おいて、UTF-8で何も問題なく動作していたものです それですので、Unicode で保存して、今までは (かなり前の話ですが)問題はなかったはずです といいながら、数文字で新規でExcelシートを作ってみると 普通にExcel 2003 でもUTF16で保存されています。 自作の大した計算式しか入れていなかったExcelシートではありますが なぜ、(Unicodeテキストで)UTF-8で保存されているのでしょうか? なぜか、質問が変わってしまっていますが、よろしくお願いします。