iOS 7, iphone, ipad,~iphonenews, ipadnews,平板news, 愛瘋news, 加上vb6和vb.net2010交流。

WindowState = 1
If Dir("d:\sheets\SE2.bz") = "" Then ' 判斷如果EXCEL沒有開啟
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
xlApp.Visible = True '設置EXCEL對象為可見（或不可見）

NAMEW = Trim(Text80.Text)
Text32.Text = Text81.Text

Set xlBook = xlApp.Workbooks.Open(Text80.Text) '打開已經存在的EXCEL檔案文件

Set xlSheet = xlBook.Worksheets(1) '設EXCELsheet1為工作區
xlSheet.Activate 'sheet1作動
'Application.WindowState = xlMinimized '工作視窗最小化

xlSheet.Activate '激活工作表
On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息
Application.ScreenUpdating = False '凍結螢幕，以防螢幕抖動
Application.ScreenUpdating = True '不凍結螢幕
End If