4

Excel 2007 ですべて正常に開くことができるディレクトリに、すべて拡張子が .xls の一連の Excel ファイルがあるという奇妙な状況があります。 、同じマシン上で、2007年に最初にファイルを開き、ファイルを「Excel 97-2003 Workbook」として保存しません。ファイルを Excel 2007 から "Excel 97-2003 ブック" として保存する前に、2003 で Excel ファイルを開くと、ファイルが認識可能な形式ではないというエラーが表示されます。

私の質問は、2007年にExcelファイルをすでに開いていて、開いているファイルのファイル名を変数に保存している場合、プログラムで上部の「オフィスボタン」に移動するアクションを模倣するにはどうすればよいですか「名前を付けて保存」を選択してから、「Excel 97-2003 ブック」を選択しますか? 以下のようなことを試しましたが、ファイルがまったく保存されません。

ActiveWorkbook.SaveAs TempFilePath & TempFileName & ".xls", FileFormat:=56

助けや指導をありがとう！

4

6 に答える 6

7

互換パックを試す必要があるようですが、vba が機能しない理由がわかりません。以下を試してみましたが、完全に機能しました。

ThisWorkbook.SaveAs "C:\test" & ".xls", FileFormat:=56
于 2010-01-26T21:49:34.783 に答える
1

ここに私のために働いている解決策があります。基本的に、Excel 97-2003 の互換性を使用して、同じファイルを再度開き、Office ボタンから [名前を付けて保存] をシミュレートします。ただし、警告を非表示にし、互換性をチェックしないように Excel に指定します。これにより、ポップアップ ウィンドウが生成され、バッチ モードでサイレントに作業することができなくなります。

'before that, my code was using Workbooks.Add method, saving and then closing.
'just add the following after your last operation, once your file is closed where
'of course "resultFile" is the workbook to be saved, and resultFileName the path

Application.DisplayAlerts = False
Set resultFile = Workbooks.Open(resultFileName)
resultFile.CheckCompatibility = False
resultFile.SaveAs Filename:=resultFileName, FileFormat:=xlExcel8
resultFile.Close
Application.DisplayAlerts = True
于 2012-04-26T09:40:01.037 に答える
1

このページ: http://www.rondebruin.nl/saveas.htmが役に立ちました。2007 年から 2003 年以前に保存する場合は、別のファイル タイプを宣言する必要があります。

于 2010-01-27T17:07:42.203 に答える
0 
'this script is created by me. But usable to vbscript ( vbs ).
UTILIZAR EL ARCHIVO INICIAL.XLSX COMO COMODÍN PARA CREAR UN ARCHIVO DATOS.XLS.

'Creado por Juan Fernando Arango Trujillo
Set app = CreateObject("Excel.Application")
app.Visible = False
app.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set wb = app.Workbooks.Open("C:\Users\Juan\Documents\Inicial.xlsx") 
wb.SaveAs "C:\Users\Juan\Documents\Datos.xls",  -4143
wb.Close True
app.Quit
Set app = Nothing
Set fso = Nothing

'FIN DEL PROCESO DE CREACIÓN DE DATOS.XLS

于 2016-01-06T13:54:23.480 に答える
0

これらすべてのファイルを変換しようとしているだけなのか、それとも必要なアプリケーションで作業しているのかはわかりません。

前者の場合は、これが役立つかどうかを確認してください: http://www.microsoft.com/downloads/details.aspx?familyid=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=en

以前のバージョンの Office で Office 2007 を開くことができます。

于 2010-01-26T21:22:18.933 に答える
0

アラートを閉じるだけでも機能します。Application.DisplayAlerts = False Workbooks.Add.SaveAs name, FileFormat:=56 * 必要に応じてファイルを変更します Activeworkbook.close SaveChanges:=true Application.DisplayAlerts = True

于 2013-06-20T03:50:18.247 に答える