- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBA 新規作成したファイルを開くときにエラー）
VBA新規作成ファイルを開く時にエラー
このQ&Aのポイント
- Excel 2007のVBAで新規に作成したファイルを開くときにエラーが出ることがあります。
- ActiveWorkbook.SaveAsを使用してファイルを保存する際、警告が表示され、ファイルを開くときに問題が起こることがあります。
- この問題を解決するためには、ActiveWorkbook.SaveAsの保存方法やファイル名の指定方法を変更する必要があります。
- dooom767
- お礼率66% (12/18)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
メッセージが読めませんが、おそらく 「開こうとしているファイル 'Book1.xls' の形式は、ファイル拡張子が示す形式とは異なります。 このファイルを開く前に、ファイルが破損していないこと、信頼できる発行元からのファイルで あることを確認してください。ファイルを今すぐ開きますか？」 でしょう。 Excel 2007 で保存する場合は、拡張子は .xlsx にする 必要があります。 .xls は Excel 2000 や 2003 の保存形式で、ファイルの内容が 大きく異なります。また、拡張子を変えただけでは、保存される ファイル形式は変わりません。 つまり、実質のファイル形式は 2007 なのに、2003 以前の拡張子 を使っているから警告されています。 2007 の形式で保存したいなら、拡張子は .xlsx にしてください。 2003 以前の形式で保存したいなら、SaveAs の引数でファイル形式を 指定してください。
お礼
ありがとうございます。 下記のようにFileFormatを指定することで解決しました。 ' シート枚数を指定 Application.SheetsInNewWorkbook = 5 Workbooks.Add ' 上書き保存 Application.DisplayAlerts = False ' ファイル名を指定して保存 ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path + "\" + "新しいファイル.xls" _ , FileFormat:=xlWorkbookNormal