Emily 分享學習 VBA

Use VBA SaveAs in Excel 2007

Emily | 1st Jul 2008, 12:37 PM | General | (24 Reads)

Use VBA SaveAs in Excel 2007

Information

If you run the code in Excel 2007 it will look at the FileFormat of the parent workbook and save the new file in that format.
Only if the parent workbook is an xlsm file and if there is no code in the new workbook it will save the new file as xlsx,
If the parent workbook is not an xlsx, xlsm, or xls then it will be saved as xlsb.

This are the main formats in Excel 2007 :

51 = xlOpenXMLWorkbook (without macro's in 2007, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007 with or without macro’s, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007, xls)

More details and examples: http://www.rondebruin.nl/saveas.htm

(閱讀全文)

留言(0) | 引用(0)

Application.filesearch Replacement For Office 2007

Emily | 28th Jun 2008, 00:20 AM | General | (34 Reads)

Application.filesearch Replacement For Office 2007

Please read this post:

http://www.ozgrid.com/forum/showthread.php?t=71409

留言(0) | 引用(0)

關於清空Office的剪切板 (Clear Office Clipboard)

Emily | 1st May 2008, 10:41 AM | Excellent Sites | (460 Reads)

關於清空Office的剪切板

wangminbai 一位令我對 Excel 再產生興趣的小伙子

A remarkable topic to clear Office Clipboard written in Chinese Simplified.

(閱讀全文)

留言(0) | 引用(0)

More than 100000 Visitors

Emily | 1st Apr 2008, 16:45 PM | 雜談 | (242 Reads)

More than 100000 Visitors

Thanks

10000 Visitors

留言(0) | 引用(0)

判斷 Excel 單格是否處於編輯狀態 (Determine Excel in Edit Mode)

Emily | 3rd Feb 2008, 12:17 PM | API / Add-in | (859 Reads)

判斷 Excel 單格是否處於編輯狀態

以下代碼就是當處於編輯狀態時在Excel的狀態欄上顯示 正處於編輯狀態…

The code will display "Excel in edit mode ......" in Status bar if Excel is in edit mode

(閱讀全文)

留言(2) | 引用(0)

顯示自定檢視模式名稱 CurrentViews

Emily | 3rd Jan 2008, 13:34 PM | WB & WS | (358 Reads)

顯示自定檢視模式名稱 CurrentViews

Function CurrentView(Optional DummyArg As Variant) As String
Dim cbo As CommandBarComboBox

On Error Resume Next
Set cbo = Application.CommandBars.FindControl(ID:=950)

On Error GoTo 0
If cbo Is Nothing Then
    With Application.CommandBars.Add(Temporary:=True)
        Set cbo = .Controls.Add(ID:=950)
        .Enabled = False
    End With
End If

CurrentView = cbo.Text

End Function

Sub Test()
    'Application.DisplayStatusBar = True
    'Application.StatusBar = CurrentView
    MsgBox CurrentView
End Sub

留言(0) | 引用(0)

Download Videos from YouTube

Emily | 14th Dec 2007, 21:27 PM | Excellent Sites | (871 Reads)

Download Videos from YouTube

Please read Download Videos from YouTube by Ivan F Moala

More New Excel VBA Examples

留言(0) | 引用(0)

Google Chart API

Emily | 9th Dec 2007, 12:22 PM | 雜談 | (597 Reads)

Google Chart API

The Google Chart API lets you dynamically generate charts.