返回列表 上一主題 發帖

請教有關WORD表格內資料連結至EXCEL

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-10-13 09:45 | 顯示全部帖子

RE: EXCEL 的匯入外部資料

回復 7# mgame168
在word程式裡變更doc 後請將檔案 [另存為網頁]   例:文件1.mht
請在xls 檔案中 將下列程式複製於 ThisWorkbook物件裡
存檔後 每當 xls 開啟時 自動更新為 doc的最新資料
  1. Private Sub Workbook_Open()
  2. With Sheet1
  3. If .QueryTables.Count = 0 Then
  4. .QueryTables.Add "URL;file:///D:/TEST/文件1.mht", .[A1]
  5. Else
  6. .QueryTables(1).Connection = "URL;file:///D:/TEST/文件1.mht"
  7. End If
  8. .QueryTables(1).Refresh
  9. End With
  10. End Sub
複製代碼

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題