程式碼是哪裡語法錯誤,要如何修該

請問要從工作表名稱為WebSht中將下載的資料複製至作用的工作表中，以下語法如何修改，謝謝
*資料可依uRng的值來下載資料下來，但就是轉貼不過來。

Dim lastrow&, TT, DD, SS
TT = Left(WebSht.[B4], Len(WebSht.[B4]) - 7) '要從WebSht.[B4]取出字串前半部，"台泥(1101)法人持股明細，其中有")"，所以先取")"之前的半段字串，台泥(1101
DD = Right(TT, Len(uRng)) '再從DD字串取出要用的字串
SS = Left(TT, Len(TT) - Len(uRng) - 1)  '取出其半段，台泥
lastrow = WebSht.[b13].End(xlDown).Row  '算資料列
If DD <> uRng Then Exit Sub  '比對DD字串和uRng的值有相等嗎
uRng(2) = SS
uRng(2, -1).Resize(lastrow - 7, 1) = WebSht.[b13].Resize(lastrow - 7, 1).Value '日期資料欄
uRng(2, 1).Resize(lastrow - 7, 10) = WebSht.[c12].Resize(lastrow - 7, 10).Value '三大法人資料

End Sub

TOP

a510684

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WINDOWN7
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2013-10-19
最後登錄: 2026-4-16

2^#

發表於 2014-5-15 13:12 | 顯示全部帖子

另外可以請問你的urng代表的是什麼嗎？
urng是代表儲存格中的代號、
Dim WebSht As Worksheet, xURL$, GetInfo$, uRng As Range, ErrNo, LL, RR, CC, TT

Sub 更新全部()
Dim y&, TM, i&
If MsgBox("要全部更新嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
TM = Time:  ErrNo = 0: [A1] = "00:00:00"
[L5:ZZ600].ClearContents: [K6:K600].ClearContents: [L4].Select
Application.ScreenUpdating = False
y = [zz4].End(xlToLeft).Column: If y < 12 Then Exit Sub
For i = 12 To y Step 10
If ErrNo > 0 Then GoTo 102
Set uRng = Cells(4, i)
uRng.Select
If uRng <> "" Then Call 更新Web: Call 載入數據
[A1] = Format(Time - TM, "hh:mm:ss")
Next i
Application.ScreenUpdating = True

102: Beep
End Sub

Sub 載入數據()
Dim lastrow&, TT, DD, SS
TT = Left(WebSht.[B4], Len(WebSht.[B4]) - 7)
DD = Right(TT, Len(uRng))
SS = Left(TT, Len(TT) - Len(uRng) - 1)
lastrow = WebSht.[b13].End(xlDown).Row
If DD <> uRng Then Exit Sub
uRng(2) = SS
uRng(2, -1).Resize(lastrow - 7, 1) = WebSht.[b13].Resize(lastrow - 7, 1).Value '日期資料欄
uRng(2, 1).Resize(lastrow - 7, 10) = WebSht.[c12].Resize(lastrow - 7, 10).Value '三大法人資料

End Sub

Sub 更新Web()
Dim DY1, DY2, DY3, DY4
Application.EnableCancelKey = xlErrorHandler
DY1 = Year(Date) - 1
DY2 = Year(Date)
DY3 = Month(Date)
DY4 = Day(Date)

Set WebSht = Sheets("Web")
WebSht.Cells.Clear
ErrNo = 0
On Error GoTo 101
xURL = "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl.djhtm?a=" & uRng & "&c=" & DY1 & "-" & DY3 & "-" & DY4 & "&d=" & DY2 & "-" & DY3 & "-" & DY4 & ""

With WebSht.QueryTables.Add(Connection:=xURL, Destination:=WebSht.[A1])
      .AdjustColumnWidth = False
      .WebSelectionType = xlAllTables
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .Refresh BackgroundQuery:=False
      .Delete
End With
Exit Sub
101: ErrNo = Err.Number
End Sub

TOP

a510684

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WINDOWN7
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2013-10-19
最後登錄: 2026-4-16

3^#

發表於 2014-5-15 13:20 | 顯示全部帖子

剛剛試一下還是不行將web工作表的資料貼到作用的查詢表中，請幫忙，我試了好久，都查不出來

TOP

a510684

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WINDOWN7
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2013-10-19
最後登錄: 2026-4-16

4^#

發表於 2014-5-15 21:07 | 顯示全部帖子

Sub 載入數據()

Dim Ln As Long, TT, DD, SS As String

Ln = Worksheets("Web").Range("B2000").End(xlUp).Row
TT = Left(Sheets("Web").[B4], Len(Sheets("Web").[B4]) - 7)
SS = Replace(TT, "(", "")
DD = Left(SS, Len(SS) - Len(uRng)) 執行時錯誤顯示為uRng沒有設定物件變數，但前面不適設定過了，有大大要協助幫忙嗎?謝謝
If Right(SS, Len(uRng)) <> uRng Then Exit Sub
uRng(2) = SS
uRng(2, -1).Resize(Ln - 6, 1).Value = Sheets("Web").[B13].Resize(Ln - 6, 1).Value '日期資料欄
uRng(2, 1).Resize(Ln - 6, 10).Value = Sheets("Web").[c12].Resize(Ln - 6, 10).Value '三大法人資料

End Sub

TOP

a510684

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WINDOWN7
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2013-10-19
最後登錄: 2026-4-16

5^# 倒序看帖

打印

字體大小: tT

發表於 2014-5-16 12:54 | 顯示全部帖子

[發問] 出現"沒有設定物件變數或With區塊變數"錯誤

出現"沒有設定物件變數或With區塊變數"錯誤在紅色字地方，請各位先進幫忙

Dim WebSht As Worksheet, xURL$, GetInfo$, ErrNo, TT As String, DD As String, SS As String, uRng As Range

Sub 更新全部()
Dim y&, TM, i&
If MsgBox("要全部更新嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
TM = Time:  ErrNo = 0: [A1] = "00:00:00"
[L5:ZZ600].ClearContents: [K6:K600].ClearContents: [L4].Select
y = [zz4].End(xlToLeft).Column: If y < 12 Then Exit Sub
For i = 12 To y Step 10
If ErrNo > 0 Then GoTo 102
Set uRng = Cells(4, i)
uRng.Select
If uRng <> "" Then Call 更新Web: Call 載入數據
[A1] = Format(Time - TM, "hh:mm:ss")
Next i
102: Beep
End Sub

Sub 載入數據()

Dim Ln As Long

Ln = Worksheets("Web").Range("B2000").End(xlUp).Row
TT = Left(Sheets("Web").[B4], Len(Sheets("Web").[B4]) - 7)
SS = Replace(TT, "(", "")
DD = Left(SS, Len(SS) - Len(uRng))
If Right(SS, Len(uRng)) <> uRng Then Exit Sub
uRng(2) = DD
uRng(2, -1).Resize(Ln - 6, 1) = Sheets("Web").[B13].Resize(Ln - 6, 1).Value '日期資料欄
uRng(2, 1).Resize(Ln - 6, 10) = Sheets("Web").[c12].Resize(Ln - 6, 10).Value '三大法人資料

End Sub

Sub 更新Web()
Dim DY1, DY2, DY3, DY4
Application.EnableCancelKey = xlErrorHandler
DY1 = Year(Date) - 1
DY2 = Year(Date)
DY3 = Month(Date)
DY4 = Day(Date)

Set WebSht = Sheets("Web")
WebSht.Cells.Clear
ErrNo = 0
On Error GoTo 101
xURL = "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl.djhtm?a=" & uRng & "&c=" & DY1 & "-" & DY3 & "-" & DY4 & "&d=" & DY2 & "-" & DY3 & "-" & DY4 & ""

With WebSht.QueryTables.Add(Connection:=xURL, Destination:=WebSht.[A1])
      .AdjustColumnWidth = False
      .WebSelectionType = xlAllTables
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .Refresh BackgroundQuery:=False
      .Delete
End With
Exit Sub
101: ErrNo = Err.Number
End Sub