返回列表下一主題上一主題發帖

[發問] 如何使專案VBAProject ( 97學年上學期資料.xls)確實.close

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-25 22:29 | 顯示全部帖子

[發問] 如何使專案VBAProject ( 97學年上學期資料.xls)確實.close

請教諸位大大
最近出現以下問題
Dim FileName As String, E As Workbook
FileName = ThisWorkbook.Path & "\資料庫\"  & "97學年上學期資料.xls"
xlfilenam = Dir(FileName)
Dim fsobj As Object
Set fsobj = CreateObject("Scripting.FileSystemObject")
If fsobj.FileExists(FileName) Then
      With CreateObject(FileName)
         .Windows(xlfilenam).Visible = True
         .Close True
      End With
End If