請教excel 巨集 的問題 如果出現圖示這種 可以寫程式讓他 確定?
- 帖子
- 119
- 主題
- 39
- 精華
- 0
- 積分
- 164
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-11-1
- 最後登錄
- 2019-2-21
|
請教excel 巨集 的問題 如果出現圖示這種 可以寫程式讓他 確定?
本帖最後由 keovin790916 於 2016-2-29 09:57 編輯
Workbooks.OpenText Filename:="G:\data\PRICE1.TXT", Origin:=950 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), _
TrailingMinusNumbers:=True
Range("A1:I42").Select
Selection.Copy
ActiveWindow.Close
Range("A2").Select ----- 我在這選取A2 貼上 怎麼又會上移到A1
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
Range("L41").Select
End Sub
|
|
|
|
|
|
|
|
- 帖子
- 2825
- 主題
- 10
- 精華
- 0
- 積分
- 2881
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-9-15
|
2#
發表於 2016-3-2 13:25
| 只看該作者
本帖最後由 准提部林 於 2016-3-2 13:27 編輯
Selection.Copy
Application.DisplayAlerts = False '加這行,不顯示視窗, 可以一直貼
ActiveWorkbook.Close 0 '不存檔關閉
程式結尾:
Application.CutCopyMode = False '結束複製模式 |
|
|
|
|
|
|
|
- 帖子
- 119
- 主題
- 39
- 精華
- 0
- 積分
- 164
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-11-1
- 最後登錄
- 2019-2-21
|
3#
發表於 2016-3-2 19:01
| 只看該作者
回復 2# 准提部林
大大 請教一下 我這樣貼上去 還是一樣會開啟 |
|
|
|
|
|
|
|
- 帖子
- 2825
- 主題
- 10
- 精華
- 0
- 積分
- 2881
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-9-15
|
4#
發表於 2016-3-2 21:55
| 只看該作者
|
|
|
|
|
|
|
