作者wrltertnnn (布施，爱语，利行，同事)
看板Visual_Basic
标题[VBA ] 型态不符
时间Wed Jul 25 02:12:13 2012
请问大大...在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)
1F：→ Catbert:Nextrow = WSQ.Range("A65536").End(xlUp).Row + 1 07/25 05:28
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)