VBScriptでファイルの種類を変更(Excel使用)

WSH Version 5.6で確認済です。
VBScriptでExcelを開き、別のファイル形式で保存します

set objExcel = CreateObject("Excel.Application") 'Excelのオブジェクトを作成 set objExcelBook = objExcel.workbooks.open("変換前ファイル名", 1) 'ファイルを開く objExcel.Visible=True 'ファイルを可視状態にする(変換だけならこれはいらない) objExcelBook.SaveAs "出力ファイル名",保存形式のフォーマット番号 'ファイルの種類を指定して保存 objExcelBook.Close False 'Excelを閉じる

フォーマット	番号	フォーマット	番号	フォーマット	番号
xlAddIn	18	xlExcel4Workbook	35	xlWJ2WD1	14
xlCSV	6	xlExcel5	39	xlWJ3	40
xlCSVMac	22	xlExcel7	39	xlWJ3FJ3	41
xlCSVMSDOS	24	xlExcel9795	43	xlWK1	5
xlCSVWindows	23	xlHtml	44	xlWK1ALL	31
xlCurrentPlatformText	-4158	xlIntlAddIn	26	xlWK1FMT	30
xlDBF2	7	xlIntlMacro	25	xlWK3	15
xlDBF3	8	xlSYLK	2	xlWK3FM3	32
xlDBF4	11	xlTemplate	17	xlWK4	38
xlDIF	9	xlTextMac	19	xlWKS	4
xlExcel2	16	xlTextMSDOS	21	xlWorkbookNormal	-4143
xlExcel2FarEast	27	xlTextPrinter	36	xlWorks2FarEast	28
xlExcel3	29	xlTextWindows	20	xlWQ1	34
xlExcel4	33	xlUnicodeText	42	-	-

ネタ元=http://plaza.rakuten.co.jp/ajaxplus/diary/200705140000/

ファイルを開くダイアログボックス

Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.InitialDir = "C:\Windows\System32" 'デフォルトのフォルダ objDialog.Filter = "すべてのファイル(*.*)|*.*|テキスト ファイル(*.txt;*.csv)|*.txt;*.csv|" 'ファイルの種類のフィルター objDialog.FilterIndex = 2 '設定したフィルターの何番目をデフォルトにするか 'objDialog.Flags = &H0200 'ファイルを複数選択するにはこれ intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If

※キャンセル時はintResultに0が入ります。(変数名をintResultとした場合)

OFN_READONLY	&H1	[読み取り専用]にチェックが入る	画像
OFN_OVERWRITEPROMPT	&H2	説明	画像
OFN_HIDEREADONLY	&H4	[読み取り専用]チェックボックスが隠れる	画像
OFN_NOCHANGEDIR	&H8	説明	画像
OFN_SHOWHELP	&H10	[ヘルプ]ボタンが表示される	画像
OFN_NOVALIDATE	&H100	説明	画像
OFN_ALLOWMULTISELECT	&H200	複数選択可能なダイアログが開く	画像
OFN_EXTENSIONDIFFERENT	&H400	説明	画像
OFN_PATHMUSTEXIST	&H800	説明	画像
OFN_FILEMUSTEXIST	&H1000	存在しないファイル名を指定した場合、エラーとなる	画像
OFN_CREATEPROMPT	&H2000	存在しないファイル名を指定した場合、新規作成のダイアログが表示される	画像
OFN_SHAREAWARE	&H4000	説明	画像
OFN_NOREADONLYRETURN	&H8000	説明	画像
OFN_NOTESTFILECREATE	&H10000	説明	画像
OFN_NODEREFERENCELINKS	&H100000	リンクを指定した場合、リンク先を参照せずにリンク名を返す	画像
OFN_ENABLEHOOK	&H20	説明	画像

参考資料→http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jan05/hey0128.mspx

ファイルを読み込む

Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objInFile = objFSO.OpenTextFile("ファイルパス",1) '第二引数に"1"とすると読み込み専用 Do While objInFile.AtEndOfStream <> True Wscript.Echo objInFile.ReadLine 'ReadLineで一行ずつ取り出しているので、これで処理をすればOK Loop objInFile.close 'クローズするのを忘れずに

ファイルに書き込む

Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set strOutFile = objFSO.OpenTextFile("ファイルパス",8,true) '第二引数に"8"とすると追記、"2"は上書き。 '第三引数はファイルが無い場合に作成するか、エラーとするか。 objOutFile.Write("文字列" & vbCrLf) 'ここで書く strOutFile.close 'クローズするのを忘れずに

ファイル名取得について

Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Wscript.Echo objFSO.GetAbsolutePathName("ファイル名") 'ファイルの絶対パスを取得 Wscript.Echo objFSO.GetParentFolderName("絶対パス") '絶対パスからフォルダまでを取得 Wscript.Echo objFSO.GetDriveName("絶対パス") '絶対パスからドライブ名を取得 Wscript.Echo objFSO.GetFileName("ファイル名") 'ファイル名のみ取得(拡張子含む) Wscript.Echo objFSO.GetBaseName("ファイル名") 'ファイル名のみ取得(拡張子除く) Wscript.Echo objFSO.GetExtensionName("ファイル名") 'ファイルの拡張子のみ取得 Wscript.Echo objFSO.GetTempName '一時ファイル名を生成してくれます。(ファイルは作らない) Wscript.Echo objFSO.GetSpecialFolder(0).Path 'Windowsフォルダ Wscript.Echo objFSO.GetSpecialFolder(1).Path 'system32フォルダ Wscript.Echo objFSO.GetSpecialFolder(2).Path 'tempフォルダ