[VBA ] 型態不符
請問大大...在nextrow那行一直出現這error是為什麼呢? thx
Private Sub CommandButton1_Click()
Dim Nextrow As Long
Set WSQ = Worksheets("webquery")
Application.OnTime earliesttime:= _
Time + TimeSerial(0, 0, 15), procedure:="DebtClock"
WSQ.Range("A2").QueryTable.Refresh BackgroundQuery:=False
Nextrow = WSQ.Range("A65536").End("xlUp").Row + 1 <---
WSQ.Range("A2:B2").Copy WSQ.Cells(Nextrow, 1)
WSQ.Cells("nextrow,2").Value = WSQ.Cells(Nextrow, 2).Value
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.246.132.167
※ 編輯: wrltertnnn 來自: 60.246.132.167 (07/25 02:12)
→
07/25 05:28, , 1F
07/25 05:28, 1F
Private Sub CommandButton2_Click()
Dim mytime As Date
mytime = CStr(Now())
MsgBox mytime
Dim wbk As Workbook
Set wbk = Workbooks(2)
wbk.Activate
Dim sheet As Object
Set sheet = wbk.Worksheets(3)
MsgBox sheet.Name
MsgBox wbk.Name
MsgBox wbk.ActiveSheet.Name
End Sub
※ 編輯: wrltertnnn 來自: 182.93.47.244 (08/14 00:32)
※ 編輯: wrltertnnn 來自: 182.93.47.244 (08/14 00:45)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章