- 帖子
- 12
- 主題
- 5
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-10
- 最後登錄
- 2026-8-23
|
大大你的程式我看得懂但是我不知道該怎麼結合自己的程式碼
這是我的程式碼:
Sub 更新外部資料()
'
' 更新外部資料 Macro
' Queen 在 2010/10/7 錄製的巨集
'
'
Application.ScreenUpdating = False
On Error Resume Next
Sheets("損益表").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("資產負債表").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("基本資料").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("股價").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("資料").Select
Application.ScreenUpdating = True
End Sub |
|