返回列表下一主題上一主題發帖

請教excel 巨集的問題如果出現圖示這種可以寫程式讓他確定?

keovin790916

中學生 Rank: 2

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-2-29 09:53 | 顯示全部帖子

請教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