Emily 分享學習 VBA

"InsertPic" Excel 2007問題

Emily | 19th Jul 2008, 11:50 AM | Excel 2007 | (669 Reads)

"InsertPic" Excel 2007問題

2003運行完全沒問題的 , 但2007就運行不能了

Question

(閱讀全文)

留言(0) | 引用(0)

Use VBA SaveAs in Excel 2007

Emily | 1st Jul 2008, 12:37 PM | Excel 2007 | (2010 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 | Excel 2007 | (1060 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 | (1309 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 | 雜談 | (733 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 | (1741 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 | (803 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