Excel 如何用VBA設定儲存檔案的格式

2021-05-28 17:00:25

No.1

Excel工作表製作完成後，要進行儲存檔案，通常Excel有預設儲存格式，也就是說不需要指定檔案的格式，應用會自主進行儲存一種格式，一般有.xls或.xlsx。

本節將就這個預設格式如何設定進行一下了解。

VBA是一個可以做到很多事情的一個程式碼集合，也就是說Excel中的大多數都可以進行自主設定，當然了，這需要一點點來認識。

這裡用到一個屬性：DefaultSaveFormat

這個屬性是Application物件下的。

語法：

Application.DefaultSaveFormat=xlWorkbookNormal

xlWorkbookNormal是一個常量，可選常量如下圖所示：

DefaultSaveFormat屬性有兩個功能，一個是返回當前預設檔案儲存格式，另一種就是設定預設檔案儲存格式。

如下示例，實現對預設檔案格式進行設定和顯示：

No.2

顯示預設儲存格式

Private Sub CommandButton1_Click()Dfile = Application.DefaultFilePathDfor = Application.DefaultSaveFormatDim s As WorksheetSet s = ThisWorkbook.Worksheets(2)s.ActivateDim cell As Range, r As RangeSet cell = s.Range(s.Cells(5, 3), s.Cells(s.UsedRange.Rows.Count, 3))For Each r In cellIf r.Value = Dfor ThenThisWorkbook.Worksheets(1).ActivateMe.Label1.Caption = r.Offset(0, 1).Value & VBA.vbCrLf & r.Offset(0, 2).ValueExit ForEnd IfNext rEnd Sub

儲存預設檔案格式

Private Sub CommandButton2_Click()Dim X, XnX = Me.ComboBox1.ValueDim s As WorksheetSet s = ThisWorkbook.Worksheets(2)s.ActivateDim cell As Range, r As RangeSet cell = s.Range(s.Cells(5, 4), s.Cells(s.UsedRange.Rows.Count, 4))For Each r In cellIf r.Value = X ThenThisWorkbook.Worksheets(1).ActivateXn = r.Offset(0, -1).ValueMsgBox XnExit ForEnd IfNext rApplication.DefaultSaveFormat = XnEnd Sub

這個屬性還是比較容易理解的，主要是認識不同版本對應的不同檔案字尾，這需要檔案類型的相關知識，有興趣可以自己試一下。

歡迎關注、收藏

---END---

Excel 如何用VBA設定儲存檔案的格式

熱門文章