SaveAs

構文
Workbook.SaveAs( FileName, FileFormat, Password , WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local )
引数
FileName省略可
保存するファイルの名前を示す文字列。フルパスを指定することも可能。
FileFormat省略可
ファイルを保存するときに使用するファイル形式。
Password省略可
ファイルを保護するためのパスワードを表す15文字以内の文字列を指定します。大文字と小文字が区別されます。
WriteResPassword省略可
ファイルの書き込みパスワードを表す文字列を指定します。パスワードを設定して保存したファイルを、パスワードを指定しないで開くと、ファイルは読み取り専用で開かれます。
ReadOnlyRecommended省略可
ファイルを開くとき、ファイルを読み取り専用として開くように勧めるメッセージを表示するには、Trueを指定します。
CreateBackup省略可
バックアップファイルを作成するには、Trueを指定します。
AccessMode省略可
ブックのアクセスモードを指定します。
ConflictResolution省略可
ブックの保存中にメソッドが競合を解決する方法を決定するXlSaveConflictResolution値。 xlUserResolutionを指定すると、競合を解決するためのダイアログボックスが表示されます。xlLocalSessionChangesを指定すると、ローカル ユーザーの変更が自動的に受け入れられます。xlOtherSessionChangesを指定すると、ローカル ユーザーの変更ではなく、他のセッションからの変更が自動的に受け入れられます。この引数を省略すると、競合を解決するためのダイアログ ボックスが表示されます。
AddToMru省略可
最近使用したファイルの一覧にブックを追加するには、Trueを指定します。既定値はFalseです。
TextCodepage省略可
TextVisualLayout省略可
Local省略可
戻り値

Workbook オブジェクトを返すメソッド・プロパティ

Workbooks.Open メソッド
ブックを開きます。
Workbooks.OpenXML メソッド
XMLデータファイルを開きます。Workbookオブジェクトを返します。

定数一覧

XlFileFormat 列挙

名前説明
xlCurrentPlatformText-4158現在のプラットフォームのテキスト、*.txt
xlWorkbookNormal-4143ブックの標準、*.xls
xlSYLK2シンボリック リンク形式、*.slk
xlWKS4Lotus 1-2-3 形式、*.wks
xlWK15Lotus 1-2-3 形式、*.wk1
xlCSV6CSV、*.csv
xlDBF27Dbase 2 形式、*.dbf
xlDBF38Dbase 3 形式、*.dbf
xlDIF9DIF ファイル、*.dif
xlDBF411Dbase 4 形式、*.dbf
xlWJ2WD114Japanese 1-2-3、*.wj2
xlWK315Lotus 1-2-3 形式、WK3
xlExcel216Excel バージョン 2.0 (1987)、*.xls
xlTemplate17Excel テンプレート形式、*.xlt
xlTemplate817テンプレート 8、*.xlt
xlAddIn18Microsoft Excel 97-2003 アドイン、*.xla
xlAddIn818Microsoft Excel 97-2003 アドイン、*.xla
xlTextMac19Macintosh テキスト、*.txt
xlTextWindows20Windows テキスト、*.txt
xlTextMSDOS21MSDOS テキスト、*.txt
xlCSVMac22Macintosh CSV、*.csv
xlCSVWindows23Windows CSV、*.csv
xlCSVMSDOS24MSDOS CSV、*.csv
xlIntlMacro25International Macro、ファイル拡張子なし
xlIntlAddIn26International Add-In、ファイル拡張子なし
xlExcel2FarEast27Excel バージョン 2.0 far east (1987)、*.xls
xlWorks2FarEast28Microsoft Works 2.0 far east 形式、*.wks
xlExcel329Excel バージョン 3.0 (1990)、*.xls
xlWK1FMT30Lotus 1-2-3 形式、*.wk1
xlWK1ALL31Lotus 1-2-3 形式、*.wk1
xlWK3FM332Lotus 1-2-3 形式、WK3
xlExcel433Excel バージョン 4.0 (1992)、*.xls
xlWQ134Quattro Pro 形式、*.wq1
xlExcel4Workbook35Excel バージョン 4.0 ブックの形式 (1992)、*.xlw
xlTextPrinter36プリンター テキスト、*.prn
xlWK438Lotus 1-2-3 形式、*.wk4
xlExcel539Excel バージョン 5.0 (1994)、*.xls
xlExcel739Excel 95 (バージョン 7.0)、*.xls
xlWJ340Japanese 1-2-3、*.wj3
xlWJ3FJ341Japanese 1-2-3 形式、*.wj3
xlUnicodeText42Unicode テキスト、ファイル拡張子なし。*.txt
xlExcel979543Excel バージョン 95 およびバージョン 97、*.xls
xlHtml44HTML 形式、.htm。.html
xlWebArchive45Web アーカイブ、.mht。.mhtml
xlXMLSpreadsheet46XML スプレッドシート、*.xml
xlExcel1250Excel バイナリ ブック、*.xlsb
xlOpenXMLWorkbook51XML ブックを開く、*.xlsx
xlWorkbookDefault51ブックの既定、*.xlsx
xlOpenXMLWorkbookMacroEnabled52マクロを有効にした XML ブックを開く、*.xlsm
xlOpenXMLTemplateMacroEnabled53マクロを有効にした XML テンプレートを開く、*.xltm
xlOpenXMLTemplate54XML テンプレートを開く、*.xltx
xlOpenXMLAddIn55XML アドインを開く、*.xlam
xlExcel856Excel 97-2003 ブック、*.xls
xlOpenDocumentSpreadsheet60OpenDocument スプレッドシート、*.ods
xlOpenXMLStrictWorkbook61XML ファイルを厳密に開く、*.xlsx
xlCSVUTF862UTF8 CSV、*.csv
CONST xlCurrentPlatformText = -4158
CONST xlWorkbookNormal = -4143
CONST xlSYLK = 2
CONST xlWKS = 4
CONST xlWK1 = 5
CONST xlCSV = 6
CONST xlDBF2 = 7
CONST xlDBF3 = 8
CONST xlDIF = 9
CONST xlDBF4 = 11
CONST xlWJ2WD1 = 14
CONST xlWK3 = 15
CONST xlExcel2 = 16
CONST xlTemplate = 17
CONST xlTemplate8 = 17
CONST xlAddIn = 18
CONST xlAddIn8 = 18
CONST xlTextMac = 19
CONST xlTextWindows = 20
CONST xlTextMSDOS = 21
CONST xlCSVMac = 22
CONST xlCSVWindows = 23
CONST xlCSVMSDOS = 24
CONST xlIntlMacro = 25
CONST xlIntlAddIn = 26
CONST xlExcel2FarEast = 27
CONST xlWorks2FarEast = 28
CONST xlExcel3 = 29
CONST xlWK1FMT = 30
CONST xlWK1ALL = 31
CONST xlWK3FM3 = 32
CONST xlExcel4 = 33
CONST xlWQ1 = 34
CONST xlExcel4Workbook = 35
CONST xlTextPrinter = 36
CONST xlWK4 = 38
CONST xlExcel5 = 39
CONST xlExcel7 = 39
CONST xlWJ3 = 40
CONST xlWJ3FJ3 = 41
CONST xlUnicodeText = 42
CONST xlExcel9795 = 43
CONST xlHtml = 44
CONST xlWebArchive = 45
CONST xlXMLSpreadsheet = 46
CONST xlExcel12 = 50
CONST xlOpenXMLWorkbook = 51
CONST xlWorkbookDefault = 51
CONST xlOpenXMLWorkbookMacroEnabled = 52
CONST xlOpenXMLTemplateMacroEnabled = 53
CONST xlOpenXMLTemplate = 54
CONST xlOpenXMLAddIn = 55
CONST xlExcel8 = 56
CONST xlOpenDocumentSpreadsheet = 60
CONST xlOpenXMLStrictWorkbook = 61
CONST xlCSVUTF8 = 62

パスワード

パスワードには以下の文字が使えます。

英数字(a~z、0~9)
記号(! @ # $ % ^ & * ( ) + =)

エラー

SaveAsメソッドで既に存在しているパスを保存しようとすると以下のようなダイアログボックスが表示されます。

ここで「いいえ」を選ぶとCOMエラーが発生するため、TRYなどでエラー処理をする必要があります。

以下はApplication.GetSaveAsFilename メソッドでダイアログボックスを表示し、入力されたファイル名で保存するプログラム。重複している場合は「置き換えますか?」に対して「いいえ」を選択するとエラーが発生するので、再度ファイル名の入力を求める例です。

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

REPEAT
	path = Excel.Application.GetSaveAsFilename("Book1.xlsx", "Excel ブック,*.xlsx")
	IFB path = FALSE THEN
		PRINT "キャンセルされました。"
	ELSE
		TRY
			PRINT Excel.ActiveWorkbook.SaveAs(path)
		EXCEPT
			CONTINUE
		ENDTRY
	ENDIF
UNTIL TRUE