Board logo

標題: [發問] 麻煩各位高手看一下 有關設定特定電腦開啟VBA的問題 [打印本頁]
作者: e19821223    時間: 2013-9-13 11:18     標題: 麻煩各位高手看一下 有關設定特定電腦開啟VBA的問題

  1. Private Sub Workbook_Open()
  2. sfolda = "D:\"
  3. '這是設定檔案搜尋的目錄為D:\  可自行設定
  4. sname = "test.TXT"
  5. '設定找一個名為TEST.TXT的檔案
  6. '請自行更改檔名或檔案類型,最好是特別一點
  7. With Application.FileSearch
  8. .LookIn = sfolda
  9. .Filename = sname
  10. rsl = .Execute
  11. ' rsl是找到的檔案數量
  12. If rsl < 1 Then
  13. '如果找不到檔案rsl就會等於0,則執行下面程式
  14. MsgBox "請在指定電腦作業，才能開啟檔案", vbOKOnly
  15. '提示使用者在指定電腦作業才能開啟
  16. ActiveWorkbook.Close SaveChanges:=False
  17. '直接關閉檔案
  18. End If
  19. End With
  20. ActiveSheet.Unprotect Password = "ABCD"
  21. '這是解除工作表密碼
  22. End Sub
複製代碼
以上是我在網路上找到可設定特定電腦開啟的程式碼
只不過..當我執行時 卻發生了以下情況
[attach]16062[/attach]
不知道是不是我還有什麼沒設定到 還是此程式碼本就有缺陷而不可執行

再麻煩各路高手的指教 謝謝
作者: oobird    時間: 2013-9-13 12:24

http://tw.knowledge.yahoo.com/question/question?qid=1012050401242
作者: e19821223    時間: 2013-9-13 15:27

感謝o大的回覆
是我的能力太差了
我看了您貼的網站所敘述的With Application.FileSearch這消失後用dir替代
那意思是 我只要將With Application.FileSearch字串改成dir就好嗎 還是要怎麼寫
謝謝指教
作者: e19821223    時間: 2013-9-13 15:57

Private Sub Workbook_Open()
mypath = "d:\"
myfile = Dir(mypath & "test.TXT")
Execute
If Execute < 1 Then
MsgBox "請在指定電腦作業，才能開啟檔案", vbOKOnly
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

我用我理解的能力改了這個,好像還是缺條件,還是無法運作
作者: GBKEE    時間: 2013-9-13 16:23

回復 4# e19821223
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim mypath As String, myfile As String
  4.     mypath = "d:\"
  5.     myfile = Dir(mypath & "test.TXT")
  6.     If myfile = "" Then
  7.         MsgBox "請在指定電腦作業，才能開啟檔案", vbOKOnly
  8.         ActiveWorkbook.Close SaveChanges:=False
  9.     End If
  10. End Sub
複製代碼
作者: e19821223    時間: 2013-9-13 16:39

解決了!
感謝G版大以及O版大的幫助!
超強的拉!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)