Sub Seve_As() '名前をつけて保存「ファイル名月日.xlsx」
Dim Motoneta As String
Motoneta = ActiveWorkbook.Name 'ファイル名のみ
Application.DisplayAlerts = False '確認メッセージを出さない
Workbooks(Motoneta).SaveAs Filename:=("ファイル名" & Format(Date, "mmdd") & ".xlsx"), FileFormat:=xlOpenXMLWorkbook'ファイル名mmdd.xlsxで保存
End Sub
| FileForma定数 | 拡張子 | 説明 |
| xlOpenXMLWorkbook | *.xlsx | Excelブック |
| xlOpenXMLWorkbookMacroEnabled | *.xlsm | |
| xlExcel12 | *.xlsb | Excelバイナリブック |
| lExcel8 | *.xls | Excel97-2003ブック |
| XMLデータ | ||
| xlWebArchive | *.mht | 単一ファイルWebページ |
| xlHtml | *.htm | Webページ |
| xlOpenXMLTemplate | *.xltx | Excelテンプレート |
| xlOpenXMLTemplateMacroEnabled | *.xltm | Excelマクロ有効テンプレート |
| xlTemplate8 | *.xlt | Excel97-2003テンプレート |
| xlText | *.txt | テキスト（タブ区切り） |
| xlUnicodeText | *.txt | Unicodeテキスト |
| xlXMLSpreadsheet | *.xml | XMLスプレットシート2003 |
| xlCSV | *.csv | CSV（カンマ区切り） |
| xlTextPrinter | *.prn | テキスト（スペース区切り） |
| xlDIF | *.dif | |
| xlSYLK | *.slk | |
| xlOpenDocumentSpreadsheet | *.ods | OpenDocumentスプレッドシート |
0 件のコメント:
コメントを投稿
comment Thank you.