Board logo

標題: [發問] 表單_連結word [打印本頁]
作者: solely    時間: 2010-10-1 00:27     標題: 表單_連結word

本帖最後由 solely 於 2011-6-5 22:16 編輯

[attach]2941[/attach]
請問關閉word視窗時，能否不出現上圖之對話方塊(修改的資料不存檔)
[attach]2942[/attach]
如果找不到相對應的word檔時，請問要如何避免跳異常?
[attach]2943[/attach]
作者: jackdream    時間: 2010-10-1 10:12

請問關閉word視窗時，能否不出現上圖之對話方塊(修改的資料不存檔)
如果找不到相對應的word檔時，請問要如何避免跳異常?
solely 發表於 2010-10-1 00:27


開啟檔案後,若有修改到內容,手動關閉時出現對話方塊是正常的,不然就找找看可否修改環境設定選項.

>>如果找不到相對應的word檔時，請問要如何避免跳異常?
增加判斷檔案是否存在..修改為:
  1. Private Sub Frame1_Click()

  3. Set fs = CreateObject("Scripting.FileSystemObject")

  5. If Not Cmbx_no.Text = "" And fs.FileExists("D:\test\圖片\" & Cmbx_no.Text & ".doc") Then
  6.     Dim wd As Object, myRange As Object
  7.     Set wd = CreateObject("word.application")
  8.     With wd
  9.         .Visible = True
  10.         .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc")
  11.     End With
  12. End If
  13.    
  14. End Sub
複製代碼
作者: solely    時間: 2010-10-2 12:31

回復 2# jackdream
謝謝jackdream
原碼加上wd.Close False似乎也能防止跳異常~
想關閉詢問對話方塊，是為了防止...習慣性的動作_儲存修改
曾試過Application.DisplayAlerts = False似乎無效
如果找不到方法.我可能會放棄連結XD
(我怕不小心改到別人的資料...會被追殺-.-"")
作者: jackdream    時間: 2010-10-2 12:49

回復  jackdream
(我怕不小心改到別人的資料...會被追殺-.-"")
solely 發表於 2010-10-2 12:31


如果是怕修改到 word 檔案內容,為何不考慮以唯讀方式開啟word檔案呢?

將 .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc")
修改為 .documents.Open ("D:\test\圖片\" & Cmbx_no.Text & ".doc"), ReadOnly:=True
作者: solely    時間: 2010-10-2 13:12

回復 4# jackdream

用唯讀的方式開啟，這招挺不錯的，謝謝了~



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