- 帖子
- 27
- 主題
- 7
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- Office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-9-19
- 最後登錄
- 2014-2-18
|
請問前輩
依照這樣的作法，修改了另外一個檔案
程式碼可以執行，但是全部都貼在sheet1
而非指定的CFQ, INC, ISQ, BSQ當中
這是程式碼哪個地方沒指定清楚呢？
Private Sub CommandButton1_Click()
With Sheets("CFSQ")
With QueryTables.Add(Connection:= _
"URL;http://dj.mybank.com.tw/z/zc/zc3/zc3_2002.djhtm", Destination:=Range( _
"$A$1"))
.Name = "zc3_2002.djhtm"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
With Sheets("ISQ")
With QueryTables.Add(Connection:= _
"URL;http://dj.mybank.com.tw/z/zc/zcq/zcq_2002.asp.htm", Destination:=Range( _
"$A$1"))
.Name = "zcq_2002.asp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
With Sheets("BSQ")
With QueryTables.Add(Connection:= _
"URL;http://dj.mybank.com.tw/z/zc/zcp/zcpa/zcpa_2002.asp.htm", Destination:= _
Range("$A$1"))
.Name = "zcpa_2002.asp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """oMainTable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
With Sheets("INC")
With QueryTables.Add(Connection:= _
"URL;http://dj.mybank.com.tw/z/zc/zch/zch_2002.asp.htm", Destination:=Range( _
"$A$1"))
.Name = "zch_2002.asp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """oMainTable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
End Sub |
|
發表於 2014-1-20 12:01
| 